Skip to content

Commit

Permalink
clean up compiler warnings
Browse files Browse the repository at this point in the history
  • Loading branch information
jedwards4b committed May 15, 2024
1 parent e10beac commit 522dd60
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions mediator/med_phases_prep_glc_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down Expand Up @@ -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
!---------------------------------------------------------------

Expand Down

0 comments on commit 522dd60

Please sign in to comment.