From 522dd60d382d0e2e76012f617a611dc0d0e78fbc Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Wed, 15 May 2024 16:41:04 -0600 Subject: [PATCH] clean up compiler warnings --- mediator/med_phases_prep_glc_mod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mediator/med_phases_prep_glc_mod.F90 b/mediator/med_phases_prep_glc_mod.F90 index 4a1df0ee..8d8685f4 100644 --- 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 !---------------------------------------------------------------