From 5ee47220188697a9da80df92ac764816cf48c0b2 Mon Sep 17 00:00:00 2001 From: Matthew Thompson Date: Thu, 29 Sep 2022 12:22:57 -0400 Subject: [PATCH] Fix incorrect mass flux units --- DynCore_GridCompMod.F90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/DynCore_GridCompMod.F90 b/DynCore_GridCompMod.F90 index 6d8f2a2..d8d669c 100644 --- a/DynCore_GridCompMod.F90 +++ b/DynCore_GridCompMod.F90 @@ -993,17 +993,17 @@ 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) @@ -1011,7 +1011,7 @@ Subroutine SetServices ( gc, rc ) 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 )