Return omega=sum(dt_ratio(i)), i=1, s
.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=R_P), | intent(in) | :: | Dt(:) | Time steps. |
||
integer(kind=I_P), | intent(in) | :: | s | Step index. |
Omega sum.
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.
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 omega(Dt, s)
!< Return `omega=sum(dt_ratio(i)), i=1, s`.
real(R_P), intent(in) :: Dt(:) !< Time steps.
integer(I_P), intent(in) :: s !< Step index.
real(R_P) :: omega !< Omega sum.
integer(I_P) :: i !< Counter.
omega = 0._R_P
do i=1, s
omega = omega + dt_Ratio(Dt=Dt, s=i)
enddo
endfunction omega