One more dme_adjust cleanup

ESCOMP · Feb 27, 2025 · 3b801b3 · 3b801b3
1 parent dea02c7
commit 3b801b3
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/physics/cam/physics_types.F90 b/src/physics/cam/physics_types.F90
@@ -1260,16 +1260,20 @@ subroutine physics_dme_adjust(state, tend, qini, liqini, iceini, dt)
     lchnk = state%lchnk
     ncol  = state%ncol
 
-    ! adjust dry mass in each layer back to input value, while conserving
-    ! constituents, momentum, and total energy
-    state%ps(:ncol) = state%pint(:ncol,1)
+!    ! adjust dry mass in each layer back to input value, while conserving
+!    ! constituents, momentum, and total energy
+!    state%ps(:ncol) = state%pint(:ncol,1)
 
     !
     ! original code for backwards compatability with FV
     !
     if (.not.(dycore_is('MPAS') .or. dycore_is('SE'))) then
       do k = 1, pver
 
+        ! adjust dry mass in each layer back to input value, while conserving
+        ! constituents, momentum, and total energy
+        state%ps(:ncol) = state%pint(:ncol,1)
+
         ! adjusment factor is just change in water vapor
         fdq(:ncol) = 1._r8 + state%q(:ncol,k,1) - qini(:ncol,k)