a quick fix for incorrect usage of real(i_kind) in mg_input.f90 , wh…

…ich was identified by D. Kokron. #757 . Co-author : D. Kokron
NOAA-EMC · Jun 23, 2024 · fac0607 · fac0607
1 parent f82dc34
commit fac0607
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