estimate_timestep Subroutine

private subroutine estimate_timestep(irec, tfin, mp, n, dx, h0, qh, qhTa, qadvTa, qhTb, qadvTb, nsteps, vlit, vsnow, var, dxL, plit, par, deltaTa, qL, qhL, again, ns, nsat, nsatlast, nsteps0, dmax, dt, qpme, t, q, qadv, tmp2d1, tmp2d2, tmp1d1, tmp1d3, iflux, litter, kk, advection, iqex)

Arguments

Type IntentOptional Attributes Name
integer(kind=i_d) :: irec
real(kind=r_2) :: tfin
integer(kind=i_d) :: mp
integer(kind=i_d) :: n
real(kind=r_2), DIMENSION(1:n) :: dx
real(kind=r_2), DIMENSION(1:mp) :: h0
real(kind=r_2), DIMENSION(-nsnow_max:n) :: qh
real(kind=r_2), DIMENSION(-nsnow_max:n) :: qhTa
real(kind=r_2), DIMENSION(-nsnow_max:n) :: qadvTa
real(kind=r_2), DIMENSION(-nsnow_max:n) :: qhTb
real(kind=r_2), DIMENSION(-nsnow_max:n) :: qadvTb
integer(kind=i_d), DIMENSION(1:mp) :: nsteps
type(vars), DIMENSION(1:mp) :: vlit
type(vars_snow), DIMENSION(1:mp) :: vsnow
type(vars), DIMENSION(1:n) :: var
real(kind=r_2), DIMENSION(1:mp) :: dxL
type(params), DIMENSION(1:mp) :: plit
type(params), DIMENSION(1:n) :: par
real(kind=r_2), DIMENSION(1:mp) :: deltaTa
real(kind=r_2), DIMENSION(1:mp) :: qL
real(kind=r_2), DIMENSION(1:mp) :: qhL
logical, DIMENSION(1:mp) :: again
integer(kind=i_d), DIMENSION(1:mp) :: ns
integer(kind=i_d), DIMENSION(1:mp) :: nsat
integer(kind=i_d), DIMENSION(1:mp) :: nsatlast
integer(kind=i_d), DIMENSION(1:mp) :: nsteps0
real(kind=r_2), DIMENSION(1:mp) :: dmax
real(kind=r_2), DIMENSION(1:mp) :: dt
real(kind=r_2), DIMENSION(1:mp) :: qpme
real(kind=r_2), DIMENSION(1:mp) :: t
real(kind=r_2), DIMENSION(-nsnow_max:n) :: q
real(kind=r_2), DIMENSION(-nsnow_max:n) :: qadv
real(kind=r_2), DIMENSION(0:n) :: tmp2d1
real(kind=r_2), DIMENSION(0:n) :: tmp2d2
real(kind=r_2), DIMENSION(1:mp) :: tmp1d1
real(kind=r_2), DIMENSION(1:mp) :: tmp1d3
integer(kind=i_d), DIMENSION(1:mp) :: iflux
logical :: litter
integer(kind=i_d) :: kk
integer(kind=i_d) :: advection
real(kind=r_2), DIMENSION(1:n) :: iqex