diff --git a/mediator/med.F90 b/mediator/med.F90 index 98b98534..914e35ad 100644 --- a/mediator/med.F90 +++ b/mediator/med.F90 @@ -2261,7 +2261,7 @@ subroutine SetRunClock(gcomp, rc) use NUOPC , only : NUOPC_CompCheckSetClock, NUOPC_CompAttributeGet use NUOPC_Mediator , only : NUOPC_MediatorGet ! NUOPC_shr_methods is now in cesm_share and cdeps - use nuopc_shr_methods, only : get_minimum_timestep, AlarmInit + use nuopc_shr_methods, only : AlarmInit ! input/output variables type(ESMF_GridComp) :: gcomp @@ -2277,8 +2277,6 @@ subroutine SetRunClock(gcomp, rc) character(len=CL) :: stop_option integer :: stop_n, stop_ymd logical, save :: stopalarmcreated=.false. - integer :: min_timestep = 0 ! used for nsteps option - character(len=*), parameter :: optNsteps = "nstep" character(len=*), parameter :: subname = '('//__FILE__//':SetRunClock)' !----------------------------------------------------------- @@ -2321,11 +2319,6 @@ subroutine SetRunClock(gcomp, rc) call NUOPC_CompAttributeGet(gcomp, name="stop_ymd", value=cvalue, rc=rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return read(cvalue,*) stop_ymd - - if (stop_option(1:len(optnsteps)) .eq. optNSteps) then - min_timestep = get_minimum_timestep(gcomp, rc) - endif - call AlarmInit(mclock, stop_alarm, stop_option, opt_n=stop_n, opt_ymd=stop_ymd, & alarmname='alarm_stop', rc=rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return diff --git a/mediator/med_phases_history_mod.F90 b/mediator/med_phases_history_mod.F90 index 51068340..b1e0f896 100644 --- a/mediator/med_phases_history_mod.F90 +++ b/mediator/med_phases_history_mod.F90 @@ -24,7 +24,6 @@ module med_phases_history_mod use med_io_mod , only : med_io_write, med_io_wopen, med_io_enddef, med_io_close use perf_mod , only : t_startf, t_stopf use pio , only : file_desc_t - use nuopc_shr_methods, only : get_minimum_timestep implicit none private @@ -128,7 +127,6 @@ module med_phases_history_mod character(CL) :: case_name = 'unset' ! case name character(CS) :: inst_tag = 'unset' ! instance tag logical :: debug_alarms = .true. - character(len=*), parameter :: optNsteps = "nstep" character(*), parameter :: u_FILE_u = & __FILE__ @@ -186,7 +184,7 @@ subroutine med_phases_history_write(gcomp, rc) type(ESMF_TimeInterval) :: ringInterval integer :: ringInterval_length logical :: first_time = .true. - integer :: min_timestep = 0 ! used for nsteps option + character(len=*), parameter :: subname='(med_phases_history_write)' !--------------------------------------- @@ -224,10 +222,6 @@ subroutine med_phases_history_write(gcomp, rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return call ESMF_ClockGet(mclock, startTime=starttime, rc=rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return - - if (hist_option_all_inst(1:len(optnsteps)) == optnsteps) then - min_timestep = get_minimum_timestep(gcomp, rc=rc) - endif call alarmInit(mclock, alarm, option=hist_option_all_inst, opt_n=hist_n_all_inst, & reftime=starttime, alarmname=alarmname, rc=rc) call ESMF_AlarmSet(alarm, clock=mclock, rc=rc)