fixes #3073

GEOS-ESM · Oct 18, 2024 · f89ac71 · f89ac71
1 parent ba62073
commit f89ac71
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/gridcomps/ExtData2G/ExtDataBracket.F90 b/gridcomps/ExtData2G/ExtDataBracket.F90
@@ -21,8 +21,8 @@ module MAPL_ExtDataBracket
       real             :: offset = 0.0
       logical          :: disable_interpolation = .false.
       logical          :: intermittent_disable = .false.
-      logical          :: new_file_right
-      logical          :: new_file_left
+      logical          :: new_file_right = .false.
+      logical          :: new_file_left = .false.
       logical          :: exact = .false.
       contains
          procedure :: interpolate_to_time

diff --git a/gridcomps/ExtData2G/ExtDataOldTypesCreator.F90 b/gridcomps/ExtData2G/ExtDataOldTypesCreator.F90
@@ -116,6 +116,7 @@ subroutine fillin_primary(this,item_name,base_name,primary_item,time,clock,unusa
          primary_item%cycling=.true.
       else if (trim(time_sample%extrap_outside) == "persist_closest") then
          primary_item%persist_closest=.true.
+         primary_item%cycling=.false.
       else if (trim(time_sample%extrap_outside) == "none") then
          primary_item%cycling=.false.
          primary_item%persist_closest=.false.

diff --git a/gridcomps/ExtData2G/ExtDataSample.F90 b/gridcomps/ExtData2G/ExtDataSample.F90
@@ -38,14 +38,14 @@ function new_ExtDataTimeSample(config,unusable,rc) result(TimeSample)
 
       call TimeSample%set_defaults()
 
+      TimeSample%extrap_outside = "none"
       if (ESMF_HConfigIsDefined(config,keyString="extrapolation")) then
          TimeSample%extrap_outside=ESMF_HConfigAsString(config,keyString="extrapolation",_RC)
       end if
 
+      TimeSample%time_interpolation = .true.
       if (ESMF_HConfigIsDefined(config,keyString="time_interpolation")) then
          TimeSample%time_interpolation = ESMF_HConfigAsLogical(config,keyString="time_interpolation",_RC)
-      else
-         TimeSample%time_interpolation = .true.
       end if
 
       if (ESMF_HConfigIsDefined(config,keyString="exact")) then