tem_restart_openRead_single Subroutine

public subroutine tem_restart_openRead_single(me)

Open the restart dump file and set file view for the input variable system

Arguments

Type IntentOptional Attributes Name
type(tem_restart_type) :: me

the restart information

Calls

proc~~tem_restart_openread_single~~CallsGraph proc~tem_restart_openread_single tem_restart_openRead_single mpi_file_open mpi_file_open proc~tem_restart_openread_single->mpi_file_open mpi_file_set_view mpi_file_set_view proc~tem_restart_openread_single->mpi_file_set_view proc~check_mpi_error check_mpi_error proc~tem_restart_openread_single->proc~check_mpi_error 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_openread_single~~CalledByGraph proc~tem_restart_openread_single tem_restart_openRead_single proc~tem_restart_openread tem_restart_openRead proc~tem_restart_openread->proc~tem_restart_openread_single

Source Code

  subroutine tem_restart_openRead_single(me)
    ! -------------------------------------------------------------------- !
    !> the restart information
    type(tem_restart_type) :: me
    ! -------------------------------------------------------------------- !
    ! variables to catch possible MPI I/O errors
    integer :: iError
    ! -------------------------------------------------------------------- !

    ! open the binary file for MPI I/O
    call MPI_FILE_OPEN( me%comm%comm,                 &
      &                 trim( me%header%binName ),    &
      &                 MPI_MODE_RDONLY,              &
      &                 MPI_INFO_NULL, me%binaryUnit, &
      &                 iError                        )
    call check_mpi_error( iError,'Open File in tem_restart_openRead_single')

    ! set the view of each process on the file opened above
    call MPI_FILE_SET_VIEW( me%binaryUnit, me%read_file%displacement,      &
      &                     me%read_file%vectype,                          &
      &                     me%read_file%ftype, "native",                  &
      &                     MPI_INFO_NULL, iError                          )
    call check_mpi_error( iError,'Set File view in tem_restart_openRead_single')

  end subroutine tem_restart_openRead_single