FIXME : Add documentation
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | njobs | ||||
| logical, | private, | parameter | :: | debug | = | .false. | |
| real, | private | :: | wall_clock_initial_time | = | 0. | ||
| logical, | private | :: | checktime_initialized | = | .false. |
Returns CPU time in seconds. Currently just a thin wrapper to method of the same name in mp. In the future we probably want to remove the method here and change the relevant use statements.
This routine counts elapsed time between two calls. Currently just a thin wrapper to method of the same name in mp. In the future we probably want to remove the method here and change the relevant use statements.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| logical, | intent(in) | :: | lprint | |||
| real, | intent(inout) | :: | targ(2) | |||
| character(len=*), | intent(in) | :: | chmessage |
FIXME : Add documentation We need to set this for the group proc0, as it is previously only set for the global proc0
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in), | optional | :: | n_ensembles |
Check whether the stop file
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| logical, | intent(inout) | :: | exit | |||
| type(exit_code), | intent(inout) | :: | exit_reason | |||
| logical, | intent(in), | optional | :: | list |
FIXME : Add documentation
Check whether elapsed run time is within a 5 minutes of exceeding the available CPU time, and if so trigger the code exit.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in) | :: | avail_time | |||
| logical, | intent(inout) | :: | exit | |||
| real, | intent(in), | optional | :: | margin_in |