From 8113ca1cd03a7b746b9a4dacc2e6fdbbca43ab1f Mon Sep 17 00:00:00 2001 From: Raffaele Montuoro Date: Thu, 22 Aug 2019 20:42:22 +0000 Subject: [PATCH] Add standard name to NUOPC Field Dictionary defining instantaneous specific humidity tendency due to convection. --- src/module_EARTH_GRID_COMP.F90 | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/module_EARTH_GRID_COMP.F90 b/src/module_EARTH_GRID_COMP.F90 index 5b93bf60..3336eec3 100644 --- a/src/module_EARTH_GRID_COMP.F90 +++ b/src/module_EARTH_GRID_COMP.F90 @@ -3017,6 +3017,18 @@ SUBROUTINE EARTH_REGISTER(EARTH_GRID_COMP,RC_REG) return ! bail out endif + if (.not.NUOPC_FieldDictionaryHasEntry( & + "inst_spec_humid_conv_tendency_levels")) then + call NUOPC_FieldDictionaryAddEntry( & + standardName="inst_spec_humid_conv_tendency_levels", & + canonicalUnits="kg kg-1 s-1", & + rc=rc) + if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, & + line=__LINE__, & + file=__FILE__)) & + return ! bail out + endif + if (.not.NUOPC_FieldDictionaryHasEntry( & "inst_friction_velocity")) then call NUOPC_FieldDictionaryAddEntry( &