tem_time_sim_stamp Function

public function tem_time_sim_stamp(time) result(timeStamp)

Generate a time stamp from the simulation time 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=12)

String representation of the given simulation time.


Called by

proc~~tem_time_sim_stamp~~CalledByGraph proc~tem_time_sim_stamp tem_time_sim_stamp proc~tem_restart_readheader tem_restart_readHeader proc~tem_restart_readheader->proc~tem_time_sim_stamp proc~hvs_vtk_open~2 hvs_vtk_open proc~hvs_vtk_open~2->proc~tem_time_sim_stamp proc~tem_restart_openwrite tem_restart_openWrite proc~tem_restart_openwrite->proc~tem_time_sim_stamp proc~tem_dump_stlb tem_dump_stlb proc~tem_dump_stlb->proc~tem_time_sim_stamp proc~hvs_asciispatial_open hvs_asciiSpatial_open proc~hvs_asciispatial_open->proc~tem_time_sim_stamp proc~tem_load_restart tem_load_restart proc~tem_load_restart->proc~tem_restart_readheader proc~hvs_output_open hvs_output_open proc~hvs_output_open->proc~tem_restart_openwrite proc~hvs_output_open->proc~hvs_asciispatial_open proc~hvs_dump_debug_array hvs_dump_debug_array proc~hvs_dump_debug_array->proc~hvs_vtk_open~2 proc~tem_tracker tem_tracker proc~tem_tracker->proc~hvs_output_open

Contents

Source Code

tem_time_sim_stamp

Source Code

  function tem_time_sim_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=12) :: timeStamp
    ! -------------------------------------------------------------------- !
    ! -------------------------------------------------------------------- !

    write(timeStamp, '(EN12.3)') time%sim

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

  end function  tem_time_sim_stamp