subroutine, private module_sf_noahmplsm::thermoprop |
( |
type (noahmp_parameters), intent(in) |
parameters, |
|
|
integer, intent(in) |
nsoil, |
|
|
integer, intent(in) |
nsnow, |
|
|
integer, intent(in) |
isnow, |
|
|
integer, intent(in) |
ist, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |
dzsnso, |
|
|
real (kind=kind_phys), intent(in) |
dt, |
|
|
real (kind=kind_phys), intent(in) |
snowh, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(in) |
snice, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(in) |
snliq, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) |
smc, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) |
sh2o, |
|
|
real (kind=kind_phys), intent(in) |
tg, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |
stc, |
|
|
real (kind=kind_phys), intent(in) |
ur, |
|
|
real (kind=kind_phys), intent(in) |
lat, |
|
|
real (kind=kind_phys), intent(in) |
z0m, |
|
|
real (kind=kind_phys), intent(in) |
zlvl, |
|
|
integer, intent(in) |
vegtyp, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(out) |
df, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(out) |
hcpct, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(out) |
snicev, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(out) |
snliqv, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(out) |
epore, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(out) |
fact |
|
) |
| |
|
private |