epilogue Module Reference

Functions/Subroutines
subroutine, public	normal_end ()
subroutine, public	abnormal_end
logical function, public	run_is_complete (step)
	Test for the completion of the run.
real(kind=r8) function	tremain ()

Function/Subroutine Documentation

abnormal_end()

subroutine, public epilogue::abnormal_end

Here is the call graph for this function:

Here is the caller graph for this function:

normal_end()

subroutine, public epilogue::normal_end

Here is the call graph for this function:

Here is the caller graph for this function:

run_is_complete()

logical function, public epilogue::run_is_complete

(

integer, intent(in)

step

)

Test for the completion of the run.

Parameters

[in]

step

Current timestep

1. Check if the number of steps is greater than nrun

1. Check if the remaining time is smaller than the extra time

Note

For the time limit, we have to use a similar procedure as for the external stop signal, i.e. if one of the MPI tasks finds that the time limit is exceeded, we have to make sure that all the tasks get the information. Otherwise, there may be subtle bugs where not all the tasks exit the time loop leading to a MPI hang.

1. Check if an external stop signal is found in the mystop file (every 30 seconds at most frequent)

If any of the tasks is complete, make everybody stop to prevent job hanging

Here is the call graph for this function:

Here is the caller graph for this function:

tremain()

real(kind=r8) function epilogue::tremain

private

Here is the call graph for this function:

Here is the caller graph for this function: