Return Dt(n+s)/Dt(n+Ns)
ratio.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=R_P), | intent(in) | :: | Dt(:) | Time steps. |
||
integer(kind=I_P), | intent(in) | :: | s | Step index. |
Time steps ratio.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
pure function dt_ratio(Dt, s) result(ratio)
!< Return `Dt(n+s)/Dt(n+Ns)` ratio.
real(R_P), intent(in) :: Dt(:) !< Time steps.
integer(I_P), intent(in) :: s !< Step index.
real(R_P) :: ratio !< Time steps ratio.
ratio = Dt(s)/Dt(ubound(Dt, dim=1))
endfunction dt_ratio