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.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_time_type), | intent(in) | :: | time |
Time definition to create the stamp off. |
String representation of the given simulation time.
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