tem_restart_closeRead_single Subroutine

  1. tem_restart_module.f90
  2. tem_restart_module
  3. tem_restart_closeRead_single

public subroutine tem_restart_closeRead_single(me)

Close the restart dump file corresponding to a particular variable system

Arguments

Type IntentOptional AttributesName
type(tem_restart_type) :: me

the restart infotmation

Calls

proc~~tem_restart_closeread_single~~CallsGraph proc~tem_restart_closeread_single tem_restart_closeRead_single proc~check_mpi_error check_mpi_error proc~tem_restart_closeread_single->proc~check_mpi_error mpi_file_close mpi_file_close proc~tem_restart_closeread_single->mpi_file_close 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

Contents

Source Code

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