tem_aux_module Module

Some auxilary routines, providing frequently needed common tasks.


Uses

  • module~~tem_aux_module~~UsesGraph module~tem_aux_module tem_aux_module module~aotus_module aotus_module module~tem_aux_module->module~aotus_module module~tem_revision_module tem_revision_module module~tem_aux_module->module~tem_revision_module module~env_module env_module module~tem_aux_module->module~env_module module~tem_comm_env_module tem_comm_env_module module~tem_aux_module->module~tem_comm_env_module module~tem_logging_module tem_logging_module module~tem_aux_module->module~tem_logging_module module~flu_binding flu_binding module~tem_aux_module->module~flu_binding module~aot_table_module aot_table_module module~tem_aux_module->module~aot_table_module module~tem_tools_module tem_tools_module module~tem_aux_module->module~tem_tools_module module~tem_lua_requires_module tem_lua_requires_module module~tem_aux_module->module~tem_lua_requires_module mpi mpi module~tem_aux_module->mpi module~env_module->module~aotus_module module~env_module->module~flu_binding module~env_module->mpi iso_fortran_env iso_fortran_env module~env_module->iso_fortran_env module~tem_comm_env_module->mpi module~tem_logging_module->module~aotus_module module~tem_logging_module->module~env_module module~tem_logging_module->module~aot_table_module module~tem_tools_module->module~env_module module~tem_lua_requires_module->module~aotus_module module~tem_lua_requires_module->module~env_module module~tem_lua_requires_module->module~flu_binding module~tem_lua_requires_module->module~aot_table_module iso_c_binding iso_c_binding module~tem_lua_requires_module->iso_c_binding

Used by


Contents


Functions

public function tem_global_vmhwm() result(hwm)

Obtain the memory status from all processes (min, max, avg).

Read more…

Arguments

None

Return Value real(kind=rk)(3)

public function utc_date_string() result(dat_string)

Function to create a human readable UTC date string.

Read more…

Arguments

None

Return Value character(len=26)


Subroutines

public subroutine tem_open_distconf(L, fileName, proc)

Read a Lua file on the first process and distribute it to all.

Read more…

Arguments

TypeIntentOptionalAttributesName
type(flu_State) :: L
character(len=*), intent(in) :: fileName
type(tem_comm_env_type), intent(in) :: proc

Process description to use.

public subroutine tem_open_distconf_array(L, fileName, proc)

Open an array of Lua handles.

Read more…

Arguments

TypeIntentOptionalAttributesName
type(flu_State) :: L(:)
character(len=*), intent(in) :: fileName
type(tem_comm_env_type) :: proc

public subroutine tem_open(file, unit, newunit, status, position, action, form, access, recl)

Wrapper around Fortran open of files to take care of errors and improve the error message in case the opening goes wrong.

Read more…

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: file
integer, intent(in), optional :: unit
integer, intent(out), optional :: newunit
character(len=*), intent(in), optional :: status
character(len=*), intent(in), optional :: position
character(len=*), intent(in), optional :: action
character(len=*), intent(in), optional :: form
character(len=*), intent(in), optional :: access
integer, intent(in), optional :: recl

public subroutine tem_abort(errorMsg)

Abort the program with finalization of the environment

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in), optional :: errorMsg

An optional error message to print a reason for the abort.

public subroutine tem_unit_close(me)

Check, if a unit is open, and close it

Arguments

TypeIntentOptionalAttributesName
integer :: me

the restart type to close

public subroutine tem_checkLabel(label, nLabels)

check whether the current label is already given

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: label(:)

holding array of labels with label(n) contains current label

integer, intent(in) :: nLabels

Number of schemes already existing in the scheme array (they are being added currently, so we only have to compare against the ones coming before the current one, up to nSchemes-1)

public subroutine tem_print_execInfo()

Print information of the executable

Arguments

None

public subroutine check_mpi_error(iError, event_string)

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: iError
character(len=*), intent(in) :: event_string