Commit cf3c730f authored by Jannis Teunissen's avatar Jannis Teunissen

Make time step limit (dt_lim) argument intent(inout)

parent e9430ad0
......@@ -212,7 +212,7 @@ contains
type(af_t), intent(inout) :: tree
real(dp), intent(in) :: dt
real(dp), intent(in) :: time
real(dp), intent(out) :: dt_lim
real(dp), intent(inout) :: dt_lim
integer, intent(in) :: s_deriv
integer, intent(in) :: s_prev
integer, intent(in) :: s_out
......
......@@ -166,7 +166,7 @@ contains
i_step, n_steps)
type(af_t), intent(inout) :: tree
real(dp), intent(in) :: dt
real(dp), intent(out) :: dt_lim
real(dp), intent(inout) :: dt_lim
real(dp), intent(in) :: time
integer, intent(in) :: s_deriv
integer, intent(in) :: s_prev
......
......@@ -24,7 +24,7 @@ module m_af_advance
import
type(af_t), intent(inout) :: tree
real(dp), intent(in) :: dt !< Time step
real(dp), intent(out) :: dt_lim !< Computed time step limit
real(dp), intent(inout) :: dt_lim !< Computed time step limit
real(dp), intent(in) :: time !< Current time
integer, intent(in) :: s_deriv !< State to compute derivatives from
integer, intent(in) :: s_prev !< Previous state
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment