tem_time_iter_stamp Function

public function tem_time_iter_stamp(time) result(timeStamp)

Generate a time stamp from the iteration in the given time definition.

This basically generates a string identifying the solution time and writing it in a meaningful format, so that it can be easily recognized.

Arguments

Type IntentOptional Attributes Name
type(tem_time_type), intent(in) :: time

Time definition to create the stamp off.

Return Value character(len=labelLen)

String representation of the given simulation time.


Called by

proc~~tem_time_iter_stamp~~CalledByGraph proc~tem_time_iter_stamp tem_time_iter_stamp proc~hvs_vtk_open hvs_vtk_open proc~hvs_vtk_open->proc~tem_time_iter_stamp proc~hvs_dump_debug_array hvs_dump_debug_array proc~hvs_dump_debug_array->proc~hvs_vtk_open proc~hvs_output_open hvs_output_open proc~hvs_output_open->proc~hvs_vtk_open proc~tem_tracker tem_tracker proc~tem_tracker->proc~hvs_output_open

Source Code

  function tem_time_iter_stamp(time) result(timeStamp)
    ! -------------------------------------------------------------------- !
    !> Time definition to create the stamp off.
    type(tem_time_type), intent(in) :: time

    !> String representation of the given simulation time.
    character(len=labelLen) :: timeStamp
    ! -------------------------------------------------------------------- !
    ! -------------------------------------------------------------------- !

    write(timeStamp, '(I0)') time%iter

    ! remove leading empty spaces in the timestamp
    timeStamp = adjustl(timeStamp)

  end function  tem_time_iter_stamp