From d0d1ac356f18f645aaad4be063b3c7ff66892915 Mon Sep 17 00:00:00 2001 From: Weiyuan Jiang Date: Fri, 16 Feb 2024 12:16:16 -0500 Subject: [PATCH] Bypass i_clients call when there is no Extdata --- CHANGELOG.md | 2 ++ gridcomps/ExtData/ExtDataGridCompMod.F90 | 9 +++++++++ 2 files changed, 11 insertions(+) diff --git a/CHANGELOG.md b/CHANGELOG.md index ab56da24bb88..10a1e9ac244a 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -14,6 +14,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 ### Changed +- Bypassed the I-Server reading call when there is no extdata + ### Fixed - removed unnecessary memory allocation for tile reads. This is critical for high res runs on SCU17 diff --git a/gridcomps/ExtData/ExtDataGridCompMod.F90 b/gridcomps/ExtData/ExtDataGridCompMod.F90 index 729ef9b78559..63b3ac6ed89c 100644 --- a/gridcomps/ExtData/ExtDataGridCompMod.F90 +++ b/gridcomps/ExtData/ExtDataGridCompMod.F90 @@ -1432,6 +1432,15 @@ SUBROUTINE Run_ ( GC, IMPORT, EXPORT, CLOCK, rc ) call lgr%debug('ExtData Run_: READ_LOOP: Done') + if (IOBundles%size() == 0) then + deallocate(doUpdate) + deallocate(useTime) + if (hasRun .eqv. .false.) hasRun = .true. + call MAPL_TimerOff(MAPLSTATE,"-Read_Loop") + call MAPL_TimerOff(MAPLSTATE,"Run") + _RETURN(ESMF_SUCCESS) + endif + bundle_iter = IOBundles%begin() do while (bundle_iter /= IoBundles%end()) io_bundle => bundle_iter%get()