Fix missing inquires

GEOS-ESM · May 6, 2023 · 730fd26 · 730fd26
1 parent 5ad8714
commit 730fd26
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -13,6 +13,12 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Changed
 
+## [sdr_v2.1.2.6] - 2023-05-06
+
+### Fixed
+
+- Fixed missing `inquire()` checks
+
 ## [sdr_v2.1.2.5] - 2023-05-04
 
 ### Changed

diff --git a/ESMF/GOCART2G_GridComp/NI2G_GridComp/NI2G_GridCompMod.F90 b/ESMF/GOCART2G_GridComp/NI2G_GridComp/NI2G_GridCompMod.F90
@@ -354,6 +354,7 @@ subroutine Initialize (GC, IMPORT, EXPORT, CLOCK, RC)
 !  Load resource file and get number of bins
 !  -------------------------------------------
     cfg = ESMF_ConfigCreate (__RC__)
+    inquire(file='NI2G_instance_'//trim(COMP_NAME)//'.rc', exist=file_exists)
     if (file_exists) then
        call ESMF_ConfigLoadFile (cfg, 'NI2G_instance_'//trim(COMP_NAME)//'.rc', __RC__)
     else

diff --git a/ESMF/GOCART2G_GridComp/SS2G_GridComp/SS2G_GridCompMod.F90 b/ESMF/GOCART2G_GridComp/SS2G_GridComp/SS2G_GridCompMod.F90
@@ -375,6 +375,7 @@ subroutine Initialize (GC, IMPORT, EXPORT, CLOCK, RC)
 !  Load resource file and get number of bins
 !  -------------------------------------------
     cfg = ESMF_ConfigCreate (__RC__)
+    inquire(file='SS2G_instance_'//trim(COMP_NAME)//'.rc', exist=file_exists)
     if (file_exists) then
        call ESMF_ConfigLoadFile (cfg, 'SS2G_instance_'//trim(COMP_NAME)//'.rc', __RC__)
     else