subroutine __module_sf_noahmplsm_f90__::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), intent(in) | shdfac, |
|
|
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 |