subroutine __module_sf_noahmplsm_f90__::water |
( |
type (noahmp_parameters), intent(in) | parameters, |
|
|
integer, intent(in) | vegtyp, |
|
|
integer, intent(in) | nsnow, |
|
|
integer, intent(in) | nsoil, |
|
|
integer, dimension(-nsnow+1:0), intent(in) | imelt, |
|
|
real (kind=kind_phys), intent(in) | dt, |
|
|
real (kind=kind_phys), intent(in) | uu, |
|
|
real (kind=kind_phys), intent(in) | vv, |
|
|
real (kind=kind_phys), intent(in) | fcev, |
|
|
real (kind=kind_phys), intent(in) | fctr, |
|
|
real (kind=kind_phys), intent(in) | qprecc, |
|
|
real (kind=kind_phys), intent(in) | qprecl, |
|
|
real (kind=kind_phys), intent(in) | elai, |
|
|
real (kind=kind_phys), intent(in) | esai, |
|
|
real (kind=kind_phys), intent(in) | sfctmp, |
|
|
real (kind=kind_phys), intent(in) | qvap, |
|
|
real (kind=kind_phys), intent(in) | qdew, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) | zsoil, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) | btrani, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(in) | ficeold, |
|
|
real (kind=kind_phys), intent(inout) | ponding, |
|
|
real (kind=kind_phys), intent(in) | tg, |
|
|
integer, intent(in) | ist, |
|
|
real (kind=kind_phys), intent(in) | fveg, |
|
|
integer, intent(in) | iloc, |
|
|
integer, intent(in) | jloc, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) | smceq, |
|
|
real (kind=kind_phys), intent(in) | bdfall, |
|
|
real (kind=kind_phys), intent(in) | fp, |
|
|
real (kind=kind_phys), intent(in) | rain, |
|
|
real (kind=kind_phys), intent(in) | snow, |
|
|
real (kind=kind_phys), intent(in) | qsnow, |
|
|
real (kind=kind_phys), intent(in) | qrain, |
|
|
real (kind=kind_phys), intent(in) | snowhin, |
|
|
real (kind=kind_phys), intent(in) | latheav, |
|
|
real (kind=kind_phys), intent(in) | latheag, |
|
|
logical, intent(in) | frozen_canopy, |
|
|
logical, intent(in) | frozen_ground, |
|
|
integer, intent(inout) | isnow, |
|
|
real (kind=kind_phys), intent(inout) | canliq, |
|
|
real (kind=kind_phys), intent(inout) | canice, |
|
|
real (kind=kind_phys), intent(inout) | tv, |
|
|
real (kind=kind_phys), intent(inout) | snowh, |
|
|
real (kind=kind_phys), intent(inout) | sneqv, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(inout) | snice, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(inout) | snliq, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) | stc, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) | zsnso, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(inout) | sh2o, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(inout) | smc, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(inout) | sice, |
|
|
real (kind=kind_phys), intent(inout) | zwt, |
|
|
real (kind=kind_phys), intent(inout) | wa, |
|
|
real (kind=kind_phys), intent(inout) | wt, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) | dzsnso, |
|
|
real (kind=kind_phys), intent(inout) | wslake, |
|
|
real (kind=kind_phys), intent(inout) | smcwtd, |
|
|
real (kind=kind_phys), intent(inout) | deeprech, |
|
|
real (kind=kind_phys), intent(inout) | rech, |
|
|
real (kind=kind_phys), intent(out) | cmc, |
|
|
real (kind=kind_phys), intent(out) | ecan, |
|
|
real (kind=kind_phys), intent(out) | etran, |
|
|
real (kind=kind_phys), intent(out) | fwet, |
|
|
real (kind=kind_phys), intent(out) | runsrf, |
|
|
real (kind=kind_phys), intent(out) | runsub, |
|
|
real (kind=kind_phys), intent(out) | qin, |
|
|
real (kind=kind_phys), intent(out) | qdis, |
|
|
real (kind=kind_phys), intent(out) | ponding1, |
|
|
real (kind=kind_phys), intent(out) | ponding2, |
|
|
real (kind=kind_phys), intent(out) | qsnbot, |
|
|
real (kind=kind_phys), intent(out) | esnow ) |
|
private |