phys_get_dt Subroutine

private subroutine phys_get_dt(w, x, dx, dtnew)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: w(nw_phys)
real(kind=dp), intent(in) :: x(1:ndim)
real(kind=dp), intent(in) :: dx(1:ndim)
real(kind=dp), intent(out) :: dtnew

Called by

proc~~phys_get_dt~~CalledByGraph proc~phys_get_dt phys_get_dt proc~setdt setdt proc~setdt->proc~phys_get_dt

Source Code

  subroutine phys_get_dt(w, x, dx, dtnew)
  
    real(dp), intent(in)   :: w(nw_phys), x(1:ndim), dx(1:ndim)
    real(dp), intent(out)  :: dtnew

    dtnew = huge(1.0d0)
    
    ! TODO: user-set time step limit, also in other physics modules!!!

  end subroutine phys_get_dt