Skip to content

Commit

Permalink
Fix incorrect mass flux units
Browse files Browse the repository at this point in the history
  • Loading branch information
mathomp4 committed Sep 29, 2022
1 parent aa5c416 commit 5ee4722
Showing 1 changed file with 6 additions and 6 deletions.
12 changes: 6 additions & 6 deletions DynCore_GridCompMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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 )
Expand All @@ -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 )
Expand Down

0 comments on commit 5ee4722

Please sign in to comment.