Returns the current simulation time stored in the model % t attribute
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Model), | intent(in) | :: | this | |||
real(kind=prec), | intent(out) | :: | t |
subroutine GetSimulationTime(this,t)
!! Returns the current simulation time stored in the model % t attribute
implicit none
class(Model),intent(in) :: this
real(prec),intent(out) :: t
t = this%t
endsubroutine GetSimulationTime