Fix incorrect usage of real(i_kind) in mg_input.f90 (#760)

NOAA-EMC · Aug 6, 2024 · e82365d · e82365d
1 parent 04896a7
commit e82365d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/mgbf/mg_input.f90 b/src/mgbf/mg_input.f90
@@ -57,7 +57,7 @@ subroutine input_2d &
 integer(i_kind),intent(in):: imax0
 integer(i_kind),intent(in):: ampl
 real(r_kind),dimension(imin:imax,jmin:jmax),intent(out):: V
-real(i_kind):: ng,mg,L,m,n
+integer(i_kind):: ng,mg,L,m,n
 !-----------------------------------------------------------------------
 
      do m=imin,jmax
@@ -134,7 +134,7 @@ subroutine input_3d &
 integer(i_kind),intent(in):: imax0
 integer(i_kind),intent(in):: ampl,incrm
 real(r_kind),dimension(lmin:lmax,imin:imax,jmin:jmax),intent(out):: V
-real(i_kind):: ng,mg,L,m,n
+integer(i_kind):: ng,mg,L,m,n
 !-----------------------------------------------------------------------
 
    do l=lmin,lmax