From bf79029debad3927a54e2ab846fbbcc0eb639d32 Mon Sep 17 00:00:00 2001 From: Yuanjian Zhang Date: Wed, 30 Oct 2024 16:14:40 -0500 Subject: [PATCH] Add negative sign to make UpwardsMassFlux really positive = "up" --- .../GCHPctmEnv_GridComp/GCHPctmEnv_GridCompMod.F90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/GCHP_GridComp/GCHPctmEnv_GridComp/GCHPctmEnv_GridCompMod.F90 b/src/GCHP_GridComp/GCHPctmEnv_GridComp/GCHPctmEnv_GridCompMod.F90 index d7f424d59..b62d2500c 100644 --- a/src/GCHP_GridComp/GCHPctmEnv_GridComp/GCHPctmEnv_GridCompMod.F90 +++ b/src/GCHP_GridComp/GCHPctmEnv_GridComp/GCHPctmEnv_GridCompMod.F90 @@ -953,8 +953,9 @@ subroutine prepare_massflux_exports(IMPORT, EXPORT, PLE, dt, RC) ! Get vertical mass flux call fv_getVerticalMassFlux(MFX_EXPORT, MFY_EXPORT, UpwardsMassFlux, dt) - ! Flip vertical so that GCHP diagnostic is positive="up" - UpwardsMassFlux(:,:,:) = UpwardsMassFlux(:,:,LM:0:-1)/dt + ! Flip vertical so that GCHP diagnostic level is follwing GEOS-Chem convetion + ! Add negative sign to make positive = "up" + UpwardsMassFlux(:,:,:) = -UpwardsMassFlux(:,:,LM:0:-1)/dt end if ! nullify pointers