From 730fd26ae72ea7a07d7082301fafce070093c2c2 Mon Sep 17 00:00:00 2001 From: Matthew Thompson Date: Sat, 6 May 2023 07:18:49 -0400 Subject: [PATCH] Fix missing inquires --- CHANGELOG.md | 6 ++++++ ESMF/GOCART2G_GridComp/NI2G_GridComp/NI2G_GridCompMod.F90 | 1 + ESMF/GOCART2G_GridComp/SS2G_GridComp/SS2G_GridCompMod.F90 | 1 + 3 files changed, 8 insertions(+) diff --git a/CHANGELOG.md b/CHANGELOG.md index a89a5d83..d8421e77 100644 --- 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 index 2e646df7..8b77bd68 100644 --- 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 index 076788bb..a14effdb 100644 --- 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