tem_restart_readData_single Subroutine

  1. tem_restart_module.f90
  2. tem_restart_module
  3. tem_restart_readData_single

public subroutine tem_restart_readData_single(restart, chunk, offset)

subroutine which reads data from restart file corresponding to the input variable system

Arguments

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

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

Memory to chunk to put the data into
integer, intent(in) :: offset

Offset of the chunk of data to get in the global data

Calls

proc~~tem_restart_readdata_single~~CallsGraph proc~tem_restart_readdata_single 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_single~~CalledByGraph proc~tem_restart_readdata_single tem_restart_readData_single proc~tem_restart_readdata tem_restart_readData proc~tem_restart_readdata->proc~tem_restart_readdata_single proc~tem_restart_closeread tem_restart_closeRead proc~tem_restart_closeread->proc~tem_restart_readdata

Contents

Source Code

tem_restart_readData_single

Source Code

  subroutine tem_restart_readData_single( restart, chunk, offset )
    ! -------------------------------------------------------------------- !
    !> Restart object to read the data from
    type(tem_restart_type), intent(inout) :: restart
    !> Memory to chunk to put the data into
    real(kind=rk), intent(out)            :: chunk(:)
    !> Offset of the chunk of data to get in the global data
    integer, intent(in)                   :: offset
    ! -------------------------------------------------------------------- !
    ! defining local variables
    integer :: iostatus( MPI_STATUS_SIZE )
    integer :: iError
    ! -------------------------------------------------------------------- !

    ! MPI_FILE_READ_ALL(fh, buf, count, datatype, status)
    call mpi_file_read_all( restart%binaryUnit, chunk(offset), &
      &                     restart%nChunkElems,               &
      &                     restart%read_file%vectype,         &
      &                     iostatus, iError                   )

    call check_mpi_error( iError,'File write all in tem_restart_readData_single')

  end subroutine tem_restart_readData_single