InitRestart Subroutine

public subroutine InitRestart(Restartfile_in)

Uses

  • proc~~initrestart~~UsesGraph proc~initrestart InitRestart module~modgvec_globals MODgvec_Globals proc~initrestart->module~modgvec_globals module~modgvec_restart_vars MODgvec_Restart_Vars proc~initrestart->module~modgvec_restart_vars iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env module~modgvec_restart_vars->module~modgvec_globals

Initialize Module

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: Restartfile_in

Source Code

SUBROUTINE InitRestart(RestartFile_in)
! MODULES
USE MODgvec_Globals,ONLY:UNIT_stdOut,fmt_sep
USE MODgvec_Restart_Vars
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
CHARACTER(LEN=*),INTENT(IN),OPTIONAL    :: Restartfile_in
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT/OUTPUT VARIABLES
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
!===================================================================================================================================
  IF(.NOT.MPIroot) RETURN
  WRITE(UNIT_stdOut,'(A)')'INIT RESTART ...'
  doRestart=.TRUE.
  IF(PRESENT(restartFile_in))THEN
    restartfile=restartfile_in
  ELSE
    restartfile=""  !nothing to save!
  END IF
  WRITE(UNIT_stdOut,'(A)')'... DONE'
  WRITE(UNIT_stdOut,fmt_sep)
END SUBROUTINE InitRestart