From f89ac714c3adcc978a4b4dc7f0729541237a4a5d Mon Sep 17 00:00:00 2001 From: Benjamin Auer Date: Fri, 18 Oct 2024 13:08:33 -0400 Subject: [PATCH] fixes #3073 --- gridcomps/ExtData2G/ExtDataBracket.F90 | 4 ++-- gridcomps/ExtData2G/ExtDataOldTypesCreator.F90 | 1 + gridcomps/ExtData2G/ExtDataSample.F90 | 4 ++-- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/gridcomps/ExtData2G/ExtDataBracket.F90 b/gridcomps/ExtData2G/ExtDataBracket.F90 index 09ad0b08b2d5..c3d0a1023571 100644 --- 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 index 73015ec07363..3968e481153b 100644 --- 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 index e7d9c6ce168f..ef5f075cab20 100644 --- 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