update_s_t Subroutine

private subroutine update_s_t(mp, n, dx, h0, S, thetai, Tsoil, infil, nsteps, var, par, qlsig, again, ih0, ns, dt, sig, dy, qhsig, deltaS, dTsoil, dJcol_latent_S, dJcol_latent_T, dJcol_sensible, deltaJ_latent_S, deltaJ_latent_T, deltaJ_sensible_S, deltaJ_sensible_T, qrunoff, tmp1d1, tmp1d2, tmp1d3, tmp1d4, deltah0, Tfreezing, dtdT, LHS_h, i, j, k, kk, theta, cp, hice, hice_tmp, J0, tmp1, tmp2, h_ex, wpi)

Arguments

Type IntentOptional Attributes Name
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(1:n) :: S
real(kind=r_2), DIMENSION(1:n) :: thetai
real(kind=r_2), DIMENSION(1:n) :: Tsoil
real(kind=r_2), DIMENSION(1:mp) :: infil
integer(kind=i_d), DIMENSION(1:mp) :: nsteps
type(vars), DIMENSION(1:n) :: var
type(params), DIMENSION(1:n) :: par
real(kind=r_2), DIMENSION(-nsnow_max:n) :: qlsig
logical, DIMENSION(1:mp) :: again
integer(kind=i_d), DIMENSION(1:mp) :: ih0
integer(kind=i_d), DIMENSION(1:mp) :: ns
real(kind=r_2), DIMENSION(1:mp) :: dt
real(kind=r_2), DIMENSION(1:mp) :: sig
real(kind=r_2), DIMENSION(-nsnow_max+1:n) :: dy
real(kind=r_2), DIMENSION(-nsnow_max:n) :: qhsig
real(kind=r_2), DIMENSION(1:n) :: deltaS
real(kind=r_2), DIMENSION(1:n) :: dTsoil
real(kind=r_2), DIMENSION(1:mp) :: dJcol_latent_S
real(kind=r_2), DIMENSION(1:mp) :: dJcol_latent_T
real(kind=r_2), DIMENSION(1:mp) :: dJcol_sensible
real(kind=r_2), DIMENSION(1:n) :: deltaJ_latent_S
real(kind=r_2), DIMENSION(1:n) :: deltaJ_latent_T
real(kind=r_2), DIMENSION(1:n) :: deltaJ_sensible_S
real(kind=r_2), DIMENSION(1:n) :: deltaJ_sensible_T
real(kind=r_2), DIMENSION(1:mp) :: qrunoff
real(kind=r_2), DIMENSION(1:mp) :: tmp1d1
real(kind=r_2), DIMENSION(1:mp) :: tmp1d2
real(kind=r_2), DIMENSION(1:mp) :: tmp1d3
real(kind=r_2), DIMENSION(1:mp) :: tmp1d4
real(kind=r_2), DIMENSION(1:mp) :: deltah0
real(kind=r_2), DIMENSION(1:mp) :: Tfreezing
real(kind=r_2), DIMENSION(1:mp) :: dtdT
real(kind=r_2), DIMENSION(-nsnow_max+1:n) :: LHS_h
integer(kind=i_d) :: i
integer(kind=i_d) :: j
integer(kind=i_d) :: k
integer(kind=i_d) :: kk
real(kind=r_2) :: theta
real(kind=r_2), DIMENSION(1:mp) :: cp
real(kind=r_2), DIMENSION(1:mp) :: hice
real(kind=r_2), DIMENSION(1:mp) :: hice_tmp
real(kind=r_2), DIMENSION(1:n) :: J0
real(kind=r_2) :: tmp1
real(kind=r_2) :: tmp2
real(kind=r_2), DIMENSION(1:n) :: h_ex
real(kind=r_2) :: wpi

Calls

proc~~update_s_t~~CallsGraph proc~update_s_t update_s_t proc~dthetalmaxdth dthetalmaxdTh proc~update_s_t->proc~dthetalmaxdth proc~gtfrozen GTfrozen proc~update_s_t->proc~gtfrozen proc~jsoillayer JSoilLayer proc~update_s_t->proc~jsoillayer proc~rtbis_tfrozen rtbis_Tfrozen proc~update_s_t->proc~rtbis_tfrozen proc~tfrz Tfrz proc~update_s_t->proc~tfrz proc~thetalmax thetalmax proc~update_s_t->proc~thetalmax proc~dthetalmaxdth->proc~tfrz proc~gtfrozen->proc~tfrz proc~jsoillayer->proc~tfrz proc~rtbis_tfrozen->proc~gtfrozen proc~thetalmax->proc~tfrz

Called by

proc~~update_s_t~~CalledByGraph proc~update_s_t update_s_t proc~iflux_loop iflux_loop proc~iflux_loop->proc~update_s_t proc~timestep_loop timestep_loop proc~timestep_loop->proc~iflux_loop proc~solve solve proc~solve->proc~timestep_loop proc~sli_main sli_main proc~sli_main->proc~solve