tem_restart_readData Subroutine

public subroutine tem_restart_readData(restart, chunk)

Read data from a restart file.

Arguments

Type IntentOptional Attributes Name
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


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