subroutine __module_sf_noahmplsm_f90__::srt |
( |
type (noahmp_parameters), intent(in) | parameters, |
|
|
integer, intent(in) | nsoil, |
|
|
real (kind=kind_phys), dimension(1:nsoil), intent(in) | zsoil, |
|
|
real (kind=kind_phys), intent(in) | dt, |
|
|
real (kind=kind_phys), intent(in) | pddum, |
|
|
real (kind=kind_phys), dimension(1:nsoil), intent(in) | etrani, |
|
|
real (kind=kind_phys), intent(in) | qseva, |
|
|
real (kind=kind_phys), dimension(1:nsoil), intent(in) | sh2o, |
|
|
real (kind=kind_phys), dimension(1:nsoil), intent(in) | smc, |
|
|
real (kind=kind_phys), intent(in) | zwt, |
|
|
real (kind=kind_phys), dimension(1:nsoil), intent(in) | fcr, |
|
|
real (kind=kind_phys), intent(in) | sicemax, |
|
|
real (kind=kind_phys), intent(in) | fcrmax, |
|
|
integer, intent(in) | iloc, |
|
|
integer, intent(in) | jloc, |
|
|
real (kind=kind_phys), intent(in) | smcwtd, |
|
|
real (kind=kind_phys), dimension(1:nsoil), intent(out) | rhstt, |
|
|
real (kind=kind_phys), dimension(1:nsoil), intent(out) | ai, |
|
|
real (kind=kind_phys), dimension(1:nsoil), intent(out) | bi, |
|
|
real (kind=kind_phys), dimension(1:nsoil), intent(out) | ci, |
|
|
real (kind=kind_phys), intent(out) | qdrain, |
|
|
real (kind=kind_phys), dimension(1:nsoil), intent(out) | wcnd ) |
|
private |