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