Fix #46 add inst_suffix to interpolated finidat default file so can w…

…ork with multi-instance
ESCOMP · Feb 23, 2018 · 4b24b08 · 4b24b08
1 parent 2aab8cc
commit 4b24b08
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/main/clm_varctl.F90 b/src/main/clm_varctl.F90
@@ -111,7 +111,7 @@ module clm_varctl
   ! from finidat if use_init_interp is .true.
 
   character(len=fname_len), public :: finidat_interp_source = ' '
-  character(len=fname_len), public :: finidat_interp_dest   = 'finidat_interp_dest.nc'     
+  character(len=fname_len), public :: finidat_interp_dest   = ''
 
   !----------------------------------------------------------
   ! Crop & Irrigation logic

diff --git a/src/main/controlMod.F90 b/src/main/controlMod.F90
@@ -258,6 +258,7 @@ subroutine control_init( )
        write(iulog,*) 'Attempting to initialize run control settings .....'
     endif
 
+    finidat_interp_dest = 'finidat_interp_dest'//trim(inst_suffix)//'.nc'
     runtyp(:)               = 'missing'
     runtyp(nsrStartup  + 1) = 'initial'
     runtyp(nsrContinue + 1) = 'restart'