mods for nag compiler failure (#3)

apcraig · Sep 21, 2018 · 2e6e351 · 2e6e351
1 parent 0c4af68
commit 2e6e351
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cicecore/cicedynB/infrastructure/ice_grid.F90 b/cicecore/cicedynB/infrastructure/ice_grid.F90
@@ -1232,8 +1232,8 @@ subroutine rectgrid
 
             ! land in the upper left and lower right corners,
             ! otherwise open boundaries
-            imid = aint(real(nx_global)/c2,kind=int_kind)
-            jmid = aint(real(ny_global)/c2,kind=int_kind)
+            imid = nint(aint(real(nx_global)/c2))
+            jmid = nint(aint(real(ny_global)/c2))
 
             do j = 3,ny_global-2
             do i = 3,nx_global-2