From 59b0c10da06f1681cc3163d4e36f554714ce538d Mon Sep 17 00:00:00 2001
From: Jim Edwards <jedwards@ucar.edu>
Date: Wed, 21 Aug 2024 14:45:24 -0600
Subject: [PATCH] remove unused code

---
 mediator/med.F90                    | 9 +--------
 mediator/med_phases_history_mod.F90 | 8 +-------
 2 files changed, 2 insertions(+), 15 deletions(-)

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)