@@ -5163,12 +5163,12 @@ function create_flipped_field(field,rc) result(flipped_field)
5163
5163
end function create_flipped_field
5164
5164
5165
5165
subroutine MAPL_ReadTilingNC4 (File , GridName , im , jm , nx , ny , n_Grids , iTable , rTable , N_PfafCat , AVR ,rc )
5166
- character (* ), intent (IN ) :: File
5167
- character (* ), optional , intent (out ) :: GridName(:)
5168
- integer , optional , intent (out ) :: IM(:), JM(:)
5169
- integer , optional , intent (out ) :: nx, ny, n_Grids
5170
- integer , optional , allocatable , intent (out ) :: iTable(:,:)
5171
- real (kind= 8 ), optional , allocatable , intent (out ) :: rTable(:,:)
5166
+ character (* ), intent (IN ) :: File
5167
+ character (* ), optional , intent (out ) :: GridName(:)
5168
+ integer , optional , intent (out ) :: IM(:), JM(:)
5169
+ integer , optional , intent (out ) :: nx, ny, n_Grids
5170
+ integer , optional , allocatable , intent (out ) :: iTable(:,:)
5171
+ real (kind= REAL64 ), optional , allocatable , intent (out ) :: rTable(:,:)
5172
5172
integer , optional , intent (out ) :: N_PfafCat
5173
5173
real , optional , pointer , intent (out ) :: AVR(:,:) ! used by GEOSgcm
5174
5174
integer , optional , intent (out ) :: rc
@@ -5182,11 +5182,11 @@ subroutine MAPL_ReadTilingNC4(File, GridName, im, jm, nx, ny, n_Grids, iTable, r
5182
5182
class(* ), pointer :: attr_val(:)
5183
5183
class(* ), pointer :: char_val
5184
5184
integer , allocatable :: tmp_int(:)
5185
- real (kind= 8 ), allocatable :: fr(:)
5185
+ real (kind= REAL64), allocatable :: fr(:)
5186
5186
5187
5187
integer :: NumCol
5188
5188
integer , allocatable :: iTable_(:,:)
5189
- real (kind= 8 ), allocatable :: rTable_(:,:)
5189
+ real (kind= REAL64 ), allocatable :: rTable_(:,:)
5190
5190
5191
5191
call formatter% open (File, pFIO_READ, rc= status)
5192
5192
meta = formatter% read (rc= status)
0 commit comments