clean up compiler warnings

ESCOMP · May 15, 2024 · 522dd60 · 522dd60
1 parent e10beac
commit 522dd60
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/mediator/med_phases_prep_glc_mod.F90 b/mediator/med_phases_prep_glc_mod.F90
@@ -523,7 +523,7 @@ subroutine med_phases_prep_glc_avg(gcomp, rc)
     logical             :: isPresent, isSet
     logical             :: write_histaux_l2x1yrg
     character(len=*) , parameter   :: subname=' (med_phases_prep_glc) '
-    integer :: k,cnt
+
     !---------------------------------------
 
     call t_startf('MED:'//subname)
@@ -1255,7 +1255,7 @@ subroutine dynOcnMaskProc(dynamicMaskList, dynamicSrcMaskValue, dynamicDstMaskVa
     integer           , intent(out)           :: rc
 
     ! local variables
-    integer  :: no, ni, i, j
+    integer  :: no, ni
     real(ESMF_KIND_R8)  :: renorm
     !---------------------------------------------------------------