Merge pull request #183 from GEOS-ESM/hotfix/mathomp4/units-fix

Fix incorrect mass flux units
GEOS-ESM · Sep 29, 2022 · d9d4036 · d9d4036
2 parents aa5c416 + 5ee4722
commit d9d4036
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/DynCore_GridCompMod.F90 b/DynCore_GridCompMod.F90
@@ -993,25 +993,25 @@ Subroutine SetServices ( gc, rc )
      VERIFY_(STATUS)
 
     call MAPL_AddExportSpec ( gc,                                  &
-         SHORT_NAME = 'MX',                                       &
+         SHORT_NAME = 'MX',                                        &
          LONG_NAME  = 'pressure_weighted_accumulated_eastward_mass_flux', &
-         UNITS      = 'Pa m+2 s-1',                                &
+         UNITS      = 'Pa m+2',                                    &
          DIMS       = MAPL_DimsHorzVert,                           &
          VLOCATION  = MAPL_VLocationCenter,             RC=STATUS  )
      VERIFY_(STATUS)
 
     call MAPL_AddExportSpec ( gc,                                  &
-         SHORT_NAME = 'MY',                                       &
+         SHORT_NAME = 'MY',                                        &
          LONG_NAME  = 'pressure_weighted_accumulated_northward_mass_flux', &
-         UNITS      = 'Pa m+2 s-1',                                &
+         UNITS      = 'Pa m+2',                                    &
          DIMS       = MAPL_DimsHorzVert,                           &
          VLOCATION  = MAPL_VLocationCenter,             RC=STATUS  )
      VERIFY_(STATUS)
 
     call MAPL_AddExportSpec ( gc,                                  &
          SHORT_NAME = 'MFX',                                       &
          LONG_NAME  = 'pressure_weighted_accumulated_eastward_mass_flux', &
-         UNITS      = 'Pa m+2 s-1',                                &
+         UNITS      = 'Pa m+2',                                    &
          PRECISION  = ESMF_KIND_R8,                                &
          DIMS       = MAPL_DimsHorzVert,                           &
          VLOCATION  = MAPL_VLocationCenter,             RC=STATUS  )
@@ -1020,7 +1020,7 @@ Subroutine SetServices ( gc, rc )
     call MAPL_AddExportSpec ( gc,                                  &
          SHORT_NAME = 'MFY',                                       &
          LONG_NAME  = 'pressure_weighted_accumulated_northward_mass_flux', &
-         UNITS      = 'Pa m+2 s-1',                                &
+         UNITS      = 'Pa m+2',                                    &
          PRECISION  = ESMF_KIND_R8,                                &
          DIMS       = MAPL_DimsHorzVert,                           &
          VLOCATION  = MAPL_VLocationCenter,             RC=STATUS  )