diff --git a/src/interpol_mod.f90 b/src/interpol_mod.f90
index 8cd29e3ffb5739c2524810f0d44d4f528a82817b..8620892bf66adcbcf8b1a82982e492c1dc0171b4 100644
--- a/src/interpol_mod.f90
+++ b/src/interpol_mod.f90
@@ -136,8 +136,8 @@ subroutine find_grid_indices(xt,yt)
     ! jy=int(ytn)
     ! nix=nint(xtn)
     ! njy=nint(ytn)
-    nix=max(min(nint(xtn),nxn(ngrid)-1),0)
-    njy=max(min(nint(ytn),nyn(ngrid)-1),0)
+    nix=max(min(int(xtn),nxn(ngrid)-1),0)
+    njy=max(min(int(ytn),nyn(ngrid)-1),0)
     ix=nix
     jy=njy
     ixp=ix+1
@@ -1987,4 +1987,4 @@ subroutine stdev_meter(iw)
 
 end subroutine stdev_meter
 #endif
-end module interpol_mod
\ No newline at end of file
+end module interpol_mod
diff --git a/src/outgrid_mod.f90 b/src/outgrid_mod.f90
index 97138884050729ef12d3fac1009277e4e6b0d6b4..42da3f162f7db28322fac5bc913dcb123315ebba 100644
--- a/src/outgrid_mod.f90
+++ b/src/outgrid_mod.f90
@@ -273,8 +273,8 @@ subroutine outgrid_init
           if (ngrid.gt.0) then
             xtn=(xl-xln(ngrid))*xresoln(ngrid)
             ytn=(yl-yln(ngrid))*yresoln(ngrid)
-            ix=max(min(nint(xtn),nxn(ngrid)-1),0)
-            jy=max(min(nint(ytn),nyn(ngrid)-1),0)
+            ix=max(min(int(xtn),nxn(ngrid)-1),0)
+            jy=max(min(int(ytn),nyn(ngrid)-1),0)
             ! ix=int(xtn)
             ! jy=int(ytn)
             ddy=ytn-real(jy)