From ba1babb3e4ca499ec2895e5f23fa7f4d04375cdd Mon Sep 17 00:00:00 2001 From: Melissa Sulprizio Date: Fri, 17 Nov 2023 08:58:51 -0500 Subject: [PATCH] Add definition of 0.125x0.51625 horizontal grid resolution Some GEOS-FP meteorology fields are now available at 0125x0.15625. This resolution has now been introduced as an option in HEMCO so that the RES string is properly defined. Signed-off-by: Melissa Sulprizio --- CHANGELOG.md | 4 ++++ src/Core/hco_config_mod.F90 | 2 ++ src/Core/hco_extlist_mod.F90 | 2 ++ 3 files changed, 8 insertions(+) diff --git a/CHANGELOG.md b/CHANGELOG.md index 8f96a6b9..a88df0c8 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -5,6 +5,10 @@ All notable changes to this project will be documented in this file. The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html). +## [Unreleased] +### Added +- Added definition of 0.125x0.15625 grid resolution + ## [3.7.1] - 2023-10-10 ### Changed - Updated version numbers to 3.7.1 diff --git a/src/Core/hco_config_mod.F90 b/src/Core/hco_config_mod.F90 index 91d4d503..03bcf1a9 100644 --- a/src/Core/hco_config_mod.F90 +++ b/src/Core/hco_config_mod.F90 @@ -2116,6 +2116,8 @@ SUBROUTINE ReadSettings( HcoConfig, IU_HCO, EOF, RC ) GridRes = '0.5x0.625' CASE( '025x03125', '0.25x0.3125' ) GridRes = '0.25x0.3125' + CASE( '0125x015625', '0.125x0.15625' ) + GridRes = '0.125x0.15625' CASE DEFAULT Msg = 'Improperly formatted grid resolution: ' // TRIM( GridRes ) CALL HCO_Error( Msg, RC, Loc ) diff --git a/src/Core/hco_extlist_mod.F90 b/src/Core/hco_extlist_mod.F90 index 6c382e54..2e9d1c46 100644 --- a/src/Core/hco_extlist_mod.F90 +++ b/src/Core/hco_extlist_mod.F90 @@ -1579,6 +1579,8 @@ SUBROUTINE HCO_SetDefaultToken( CF, RC ) DEF_RES = '05x0625' ELSE IF ( TRIM(CF%GridRes) == '0.25x0.3125' ) THEN DEF_RES = '025x03125' + ELSE IF ( TRIM(CF%GridRes) == '0.125x0.15625' ) THEN + DEF_RES = '0125x015625' ENDIF ! Wildcard character