one more 5d file turned off

Author: dnarayanan

src/grid/grid_io_1d_template.f90

@@ -11,7 +11,6 @@ module grid_io
   public :: grid_exists
   public :: read_grid_3d
   public :: read_grid_4d
-  public :: read_grid_5d
   public :: write_grid_3d
   public :: write_grid_4d
 
@@ -29,13 +28,6 @@ module grid_io
      module procedure read_grid_4d_int8
   end interface read_grid_4d
 
-  interface read_grid_5d
-     module procedure read_grid_5d_sp
-     module procedure read_grid_5d_dp
-     module procedure read_grid_5d_int
-     module procedure read_grid_5d_int8
-  end interface read_grid_5d
-
   interface write_grid_3d
      module procedure write_grid_3d_sp
      module procedure write_grid_3d_dp
@@ -71,28 +63,6 @@ end function grid_exists
   !!@FOR real(sp):sp real(dp):dp integer:int integer(idp):int8
 
 
-  subroutine read_grid_5d_<T>(group, path, array, geo)
-
-    implicit none
-
-    integer(hid_t), intent(in) :: group
-    character(len=*), intent(in) :: path
-    @T, intent(out) :: array(:,:,:)
-    type(grid_geometry_desc),intent(in) :: geo
-
-    character(len=32) :: geometry_id_check
-
-    call mp_read_keyword(group,path, 'geometry', geometry_id_check)
-    if(geometry_id_check.ne.geo%id) then
-       call error("read_grid", "geometry IDs do not match")
-    end if
-    call mp_read_array(group, path, array)
-
-    if(any(is_nan(array))) call error("read_grid_5d", "NaN values in 5D array")
-
-  end subroutine read_grid_5d_<T>
-
-
   subroutine read_grid_4d_<T>(group, path, array, geo)
 
     implicit none