From a525ebd63ab2c704a66a55ca930d6df8eb432822 Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Mon, 9 Dec 2024 16:07:28 -0700 Subject: [PATCH] remove unused variable isPresent --- mediator/med_phases_restart_mod.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/mediator/med_phases_restart_mod.F90 b/mediator/med_phases_restart_mod.F90 index d21a3ada0..601ee7424 100644 --- a/mediator/med_phases_restart_mod.F90 +++ b/mediator/med_phases_restart_mod.F90 @@ -506,7 +506,6 @@ subroutine med_phases_restart_read(gcomp, rc) character(ESMF_MAXSTR) :: case_name ! case name character(ESMF_MAXSTR) :: restart_file ! Local path to restart filename character(ESMF_MAXSTR) :: restart_pfile ! Local path to restart pointer filename - logical :: isPresent character(len=*), parameter :: subname='(med_phases_restart_read)' !--------------------------------------- call t_startf('MED:'//subname)