diff --git a/src/module_EARTH_GRID_COMP.F90 b/src/module_EARTH_GRID_COMP.F90 index 9a181cbc..2e5b85c3 100644 --- a/src/module_EARTH_GRID_COMP.F90 +++ b/src/module_EARTH_GRID_COMP.F90 @@ -1023,6 +1023,17 @@ SUBROUTINE EARTH_REGISTER(EARTH_GRID_COMP,RC_REG) file=__FILE__)) & return ! bail out endif + if (.not. NUOPC_FieldDictionaryHasEntry( & + "openwater_frac_in_atm")) then + call NUOPC_FieldDictionaryAddEntry( & + standardName="openwater_frac_in_atm", & + canonicalUnits="1", & + rc=rc) + if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, & + line=__LINE__, & + file=__FILE__)) & + return ! bail out + endif if (.not. NUOPC_FieldDictionaryHasEntry( & "mass_of_overlying_sea_ice")) then call NUOPC_FieldDictionaryAddEntry( &