remove unused variable isPresent

ESCOMP · Dec 13, 2024 · 51db268 · 51db268
1 parent d1b7b71
commit 51db268
Showing 1 changed file with 0 additions and 1 deletion.
diff --git 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)