This module contians subroutine that 1. check if point of dumping condition is arrived. 2. create particular folder for dump. 3. dump data in that folder. 4. purge folders if required.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=FILE_NAME_LENGTH), | private | :: | dump_dirname | Name(check point number) of the directory to create |
|||
| character(len=FILE_NAME_LENGTH), | private | :: | purge_dirname | Name(check point number) of the directory to remove |
Create a checkpoint dump file if the time has come
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(filetype), | intent(inout) | :: | files | |||
| real(kind=wp), | intent(in), | dimension(-2:dims%imx+2,-2:dims%jmx+2,-2:dims%kmx+2, 1:dims%n_var) | :: | qp | ||
| type(nodetype), | intent(in), | dimension(-2:dims%imx+3,-2:dims%jmx+3,-2:dims%kmx+3) | :: | nodes | ||
| type(controltype), | intent(inout) | :: | control | |||
| type(schemetype), | intent(in) | :: | scheme | |||
| type(extent), | intent(in) | :: | dims |
Create a directory to keep the solution files from all the processor
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | dirname |
Remove a directory
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | dirname |
Purge the directory based on the input
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(controltype), | intent(in) | :: | control |
Solution directory and sub-directory in created with particular number
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(controltype), | intent(in) | :: | control |
Call to write save files in the directory
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(filetype), | intent(inout) | :: | files | |||
| real(kind=wp), | intent(in), | dimension(-2:dims%imx+2,-2:dims%jmx+2,-2:dims%kmx+2, 1:dims%n_var) | :: | qp | ||
| type(nodetype), | intent(in), | dimension(-2:dims%imx+3,-2:dims%jmx+3,-2:dims%kmx+3) | :: | nodes | ||
| type(controltype), | intent(in) | :: | control | |||
| type(schemetype), | intent(in) | :: | scheme | |||
| type(extent), | intent(in) | :: | dims |
Call to write log file in the subdirectory "restart". It is useful information while restarting the solver
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(filetype), | intent(in) | :: | files | |||
| type(schemetype), | intent(in) | :: | scheme | |||
| type(controltype), | intent(in) | :: | control |
Writing Initial resnorom in the log file to maintian continuity of resnorm while restrarting
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(filetype), | intent(in) | :: | files | |||
| type(controltype), | intent(in) | :: | control |