From 779d390a978fbdef4bc55ba7633ce1a4e65120e6 Mon Sep 17 00:00:00 2001 From: Matthew Thompson Date: Mon, 19 May 2025 10:10:09 -0400 Subject: [PATCH] v12: Add MZ export --- DynCore_GridCompMod.F90 | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/DynCore_GridCompMod.F90 b/DynCore_GridCompMod.F90 index dc6ef2d..2d259df 100644 --- a/DynCore_GridCompMod.F90 +++ b/DynCore_GridCompMod.F90 @@ -1070,6 +1070,15 @@ Subroutine SetServices ( gc, rc ) VLOCATION = MAPL_VLocationEdge, RC=STATUS ) VERIFY_(STATUS) + call MAPL_AddExportSpec ( gc, & + SHORT_NAME = 'MZ', & + LONG_NAME = 'vertical_mass_flux', & + UNITS = 'kg m-2 s-1', & + PRECISION = ESMF_KIND_R4, & + DIMS = MAPL_DimsHorzVert, & + VLOCATION = MAPL_VLocationEdge, RC=STATUS ) + VERIFY_(STATUS) + call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'PV', & LONG_NAME = 'ertels_isentropic_potential_vorticity', & @@ -4678,6 +4687,7 @@ subroutine Run(gc, import, export, clock, rc) ! Compute and return the vertical mass flux call getVerticalMassFlux(mfxxyz, mfyxyz, mfzxyz, dt) call FILLOUT3r8 (export, 'MFZ' , mfzxyz , rc=status); VERIFY_(STATUS) + call FILLOUT3 (export, 'MZ' , mfzxyz , rc=status); VERIFY_(STATUS) call FILLOUT3 (export, 'U' , ur , rc=status); VERIFY_(STATUS) call FILLOUT3 (export, 'V' , vr , rc=status); VERIFY_(STATUS)