tem_restart_readData Subroutine

  1. tem_restart_module.f90
  2. tem_restart_module
  3. tem_restart_readData

public subroutine tem_restart_readData(restart, chunk)

Read data from a restart file.

Arguments

Type IntentOptional AttributesName
type(tem_restart_type), intent(inout) :: restart

Restart description to read the data from
real(kind=rk), intent(out) :: chunk(:)

Chunk of memory to put the read data into

Calls

proc~~tem_restart_readdata~~CallsGraph proc~tem_restart_readdata tem_restart_readData proc~tem_restart_readdata_single tem_restart_readData_single proc~tem_restart_readdata->proc~tem_restart_readdata_single proc~check_mpi_error check_mpi_error proc~tem_restart_readdata_single->proc~check_mpi_error mpi_file_read_all mpi_file_read_all proc~tem_restart_readdata_single->mpi_file_read_all mpi_error_string mpi_error_string proc~check_mpi_error->mpi_error_string proc~tem_abort tem_abort proc~check_mpi_error->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~tem_restart_readdata~~CalledByGraph proc~tem_restart_readdata tem_restart_readData proc~tem_restart_closeread tem_restart_closeRead proc~tem_restart_closeread->proc~tem_restart_readdata

Contents

Source Code

tem_restart_readData

Source Code

  subroutine tem_restart_readData( restart, chunk )
    ! -------------------------------------------------------------------- !
    !> Restart description to read the data from
    type(tem_restart_type), intent(inout) :: restart
    !> Chunk of memory to put the read data into
    real(kind=rk), intent(out) :: chunk(:)
    ! -------------------------------------------------------------------- !
    ! defining local variables
    integer :: nWords
    integer :: offset        ! offset for the different var systems
    ! -------------------------------------------------------------------- !

    ! @todo:KJ: For the new restart only the requested variable system should
    ! be read.
    offset = 1

    call tem_restart_readData_single( restart, chunk, offset )
    nWords = restart%varMap%nScalars * restart%nChunkElems &
      &                              * restart%read_file%nDofs
    offset = offset + nWords

  end subroutine tem_restart_readData