read_grid Subroutine

  1. read_output_tec.f90
  2. read_output_tec
  3. read_grid

private subroutine read_grid()

Skip the grid read in the restart file

Arguments

None

Calls

proc~~read_grid~2~~CallsGraph proc~read_grid~2 read_grid debugcall debugcall proc~read_grid~2->debugcall

Called by

proc~~read_grid~2~~CalledByGraph proc~read_grid~2 read_grid proc~read_file~2 read_file proc~read_file~2->proc~read_grid~2

Contents

Source Code

read_grid

Source Code

    subroutine read_grid()
      !< Skip the grid read in the restart file
      implicit none
      real(wp) :: dummy

      ! read grid point coordinates
      DebugCall('read_output_tec: read_grid')
      read(IN_FILE_UNIT, *) (((dummy,i=1,imx), j=1,jmx), k=1,kmx)
      read(IN_FILE_UNIT, *) (((dummy,i=1,imx), j=1,jmx), k=1,kmx)
      read(IN_FILE_UNIT, *) (((dummy,i=1,imx), j=1,jmx), k=1,kmx)

    end subroutine read_grid