tem_restart_closeRead_single Subroutine

public subroutine tem_restart_closeRead_single(me)

Close the restart dump file corresponding to a particular variable system

Arguments

Type IntentOptional Attributes Name
type(tem_restart_type) :: me

the restart infotmation

Calls

proc~~tem_restart_closeread_single~~CallsGraph proc~tem_restart_closeread_single tem_restart_closeRead_single mpi_file_close mpi_file_close proc~tem_restart_closeread_single->mpi_file_close proc~check_mpi_error check_mpi_error proc~tem_restart_closeread_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_closeread_single~~CalledByGraph proc~tem_restart_closeread_single tem_restart_closeRead_single proc~tem_restart_closeread tem_restart_closeRead proc~tem_restart_closeread->proc~tem_restart_closeread_single

Source Code

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

    ! now close the binary file
    call MPI_File_close(me%binaryUnit, iError)
    call check_mpi_error( iError, 'File close in tem_restart_closeRead_single' )

  end subroutine tem_restart_closeRead_single