Initialize do_diabatic

NOAA-GFDL · Jan 27, 2025 · 5dec512 · 5dec512
1 parent a31efd1
commit 5dec512
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/core/MOM.F90 b/src/core/MOM.F90
@@ -963,6 +963,7 @@ subroutine step_MOM(forces_in, fluxes_in, sfc_state, Time_start, time_int_in, CS
     !===========================================================================
     ! This is the second place where the diabatic processes and remapping could occur.
     if (do_thermo) then
+      do_diabatic = .false.
       if (thermo_does_span_coupling .or. .not.do_dyn) then
         do_diabatic = (CS%t_dyn_rel_thermo + 0.5*dt > dt_therm)
       else