make dofs i*8 arrays

NOAA-EMC · Oct 8, 2024 · cc7e41c · cc7e41c
1 parent 91f1111
commit cc7e41c
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/model/src/wav_pio_mod.F90 b/model/src/wav_pio_mod.F90
@@ -311,9 +311,9 @@ subroutine wav_pio_initdecomp_2d(iodesc, use_int)
     logical        , optional, intent(in)  :: use_int
 
     ! local variables
-    integer          :: n, isea, jsea, ix, iy, nseal_cpl
-    integer, pointer :: dof2d(:)
-    logical          :: luse_int
+    integer :: n, isea, jsea, ix, iy, nseal_cpl
+    logical :: luse_int
+    integer(kind=8), allocatable :: dof2d(:)
 #ifdef W3_PDLIB
     nseal_cpl = nseal - ng
 #else
@@ -356,8 +356,8 @@ subroutine wav_pio_initdecomp_3d(nz, iodesc)
     type(io_desc_t) , intent(out) :: iodesc
 
     ! local variables
-    integer          :: n, k, isea, jsea, ix, iy, nseal_cpl
-    integer, pointer :: dof3d(:)
+    integer :: n, k, isea, jsea, ix, iy, nseal_cpl
+    integer(kind=8), allocatable :: dof3d(:)
 #ifdef W3_PDLIB
     nseal_cpl = nseal - ng
 #else