remove extra i

llpcarson · Jul 1, 2021 · f7450c2 · f7450c2
1 parent 7178cb2
commit f7450c2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/module_mp_thompson.F90 b/physics/module_mp_thompson.F90
@@ -1435,7 +1435,7 @@ SUBROUTINE mp_gt_driver(qv, qc, qr, qi, qs, qg, ni, nr, nc,     &
 
 !> - Call calc_refl10cm()
 
-           diagflag_presenti: IF ( PRESENT (diagflag) ) THEN
+           diagflag_present: IF ( PRESENT (diagflag) ) THEN
            if (diagflag .and. do_radar_ref == 1) then
 !
              ! Only set melti to true at the output times
@@ -1459,7 +1459,7 @@ SUBROUTINE mp_gt_driver(qv, qc, qr, qi, qs, qg, ni, nr, nc,     &
                refl_10cm(i,k,j) = MAX(-35., dBZ(k))
              enddo
            endif
-           ENDIF diagflag_presenti
+           ENDIF diagflag_present
 
            IF (has_reqc.ne.0 .and. has_reqi.ne.0 .and. has_reqs.ne.0) THEN
              do k = kts, kte