do not stop ringing alarm

ESCOMP · Oct 17, 2024 · 4883961 · 4883961
1 parent 8a892c5
commit 4883961
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/mediator/med_diag_mod.F90 b/mediator/med_diag_mod.F90
@@ -2116,8 +2116,6 @@ subroutine med_phases_diag_print(gcomp, rc)
           if (ChkErr(rc,__LINE__,u_FILE_u)) return
           if (ESMF_AlarmIsRinging(stop_alarm, rc=rc)) then
              output_level = max(output_level, budget_print_ltend)
-             call ESMF_AlarmRingerOff( stop_alarm, rc=rc )
-             if (ChkErr(rc,__LINE__,u_FILE_u)) return
           endif
        endif