diff --git a/src/GCHP_GridComp/GCHPctmEnv_GridComp/GCHPctmEnv_GridCompMod.F90 b/src/GCHP_GridComp/GCHPctmEnv_GridComp/GCHPctmEnv_GridCompMod.F90 index 01ae70d18..17df4acea 100644 --- a/src/GCHP_GridComp/GCHPctmEnv_GridComp/GCHPctmEnv_GridCompMod.F90 +++ b/src/GCHP_GridComp/GCHPctmEnv_GridComp/GCHPctmEnv_GridCompMod.F90 @@ -953,7 +953,7 @@ 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 level is following GEOS-Chem convetion + ! Flip vertical so that GCHP diagnostic level is following GEOS-Chem convention ! Add negative sign to make positive = "up" UpwardsMassFlux(:,:,:) = -UpwardsMassFlux(:,:,LM:0:-1)/dt end if