diff --git a/external/io_int/module_io_int_read.F90 b/external/io_int/module_io_int_read.F90
index 5e2a8f6e68..8bd9d7d1e1 100644
--- a/external/io_int/module_io_int_read.F90
+++ b/external/io_int/module_io_int_read.F90
@@ -87,7 +87,7 @@ end module module_io_int_read
 module module_io_int_read
 
     use module_io_int_idx,           only: io_int_loc, r_info
-    use, intrinsic :: iso_c_binding, only: c_int32_t
+    use, intrinsic :: iso_c_binding, only: c_int32_t, c_int64_t
 
     implicit none
 
@@ -127,9 +127,9 @@ subroutine read_i0(ifd, records, varname, dst, ierr)
     integer,                 intent(out) :: dst
     integer,                 intent(out) :: ierr
 
-    integer(kind=mpi_offset_kind)       :: offset
-    integer                             :: count
-    integer                             :: tmp
+    integer(c_int64_t)                   :: offset
+    integer(c_int32_t)                   :: count
+    integer                              :: tmp
 
     call io_int_loc(varname, records, offset, count, ierr)
     if (ierr .ne. 0) then
@@ -161,8 +161,8 @@ subroutine read_i1(ifd, records, varname, dst, ierr)
     integer,                 intent(inout) :: dst(:)
     integer,                 intent(out)   :: ierr
 
-    integer(kind=mpi_offset_kind)          :: offset
-    integer                                :: count
+    integer(c_int64_t)                     :: offset
+    integer(c_int32_t)                     :: count
     integer                                :: num
     integer                                :: i
     integer                                :: its, ite
@@ -219,8 +219,8 @@ subroutine read_i2(ifd, records, varname, dst, ierr)
     integer,                 intent(inout) :: dst(:,:)
     integer,                 intent(out)   :: ierr
 
-    integer(kind=mpi_offset_kind)          :: offset
-    integer                                :: count
+    integer(c_int64_t)                     :: offset
+    integer(c_int32_t)                     :: count
     integer                                :: num
     integer                                :: i, j
     integer                                :: its, ite, jts, jte
@@ -279,8 +279,8 @@ subroutine read_i3(ifd, records, varname, dst, ierr)
     integer,                 intent(inout) :: dst(:,:,:)
     integer,                 intent(out)   :: ierr
 
-    integer(kind=mpi_offset_kind)          :: offset
-    integer                                :: count
+    integer(c_int64_t)                     :: offset
+    integer(c_int32_t)                     :: count
     integer                                :: num
     integer                                :: i, j, k
     integer                                :: its, ite, jts, jte, kts, kte
@@ -343,8 +343,8 @@ subroutine read_r0(ifd, records, varname, dst, ierr)
     real,                    intent(out) :: dst
     integer,                 intent(out) :: ierr
 
-    integer(kind=mpi_offset_kind)        :: offset
-    integer                              :: count
+    integer(c_int64_t)                   :: offset
+    integer(c_int32_t)                   :: count
     integer                              :: tmp
 
     call io_int_loc(varname, records, offset, count, ierr)
@@ -377,8 +377,8 @@ subroutine read_r1(ifd, records, varname, dst, ierr)
     real,                    intent(inout) :: dst(:)
     integer,                 intent(out)   :: ierr
 
-    integer(kind=mpi_offset_kind)          :: offset
-    integer                                :: count
+    integer(c_int64_t)                     :: offset
+    integer(c_int32_t)                     :: count
     integer                                :: num
     integer                                :: i
     integer                                :: its, ite
@@ -435,8 +435,8 @@ subroutine read_r2(ifd, records, varname, dst, ierr)
     real,                    intent(inout) :: dst(:,:)
     integer,                 intent(out)   :: ierr
 
-    integer(kind=mpi_offset_kind)          :: offset
-    integer                                :: count
+    integer(c_int64_t)                     :: offset
+    integer(c_int32_t)                     :: count
     integer                                :: num
     integer                                :: i, j
     integer                                :: its, ite, jts, jte
@@ -495,8 +495,8 @@ subroutine read_r3(ifd, records, varname, dst, ierr)
     real,                    intent(inout) :: dst(:,:,:)
     integer,                 intent(out)   :: ierr
 
-    integer(kind=mpi_offset_kind)          :: offset
-    integer                                :: count
+    integer(c_int64_t)                     :: offset
+    integer(c_int32_t)                     :: count
     integer                                :: num
     integer                                :: i, j, k
     integer                                :: its, ite, jts, jte, kts, kte
@@ -559,8 +559,8 @@ subroutine read_c1(ifd, records, varname, dst, ierr)
     character(len=*),        intent(inout) :: dst
     integer,                 intent(out)   :: ierr
 
-    integer(kind=mpi_offset_kind)          :: offset
-    integer                                :: count
+    integer(c_int64_t)                     :: offset
+    integer(c_int32_t)                     :: count
     integer                                :: num
     integer                                :: i
     integer, allocatable, dimension(:)     :: tmp