subroutine module_sf_ruclsm::vilka |
( |
real (kind_phys), intent(in) |
tn, |
|
|
real (kind_phys), intent(in) |
d1, |
|
|
real (kind_phys), intent(in) |
d2, |
|
|
real (kind_phys), intent(in) |
pp, |
|
|
real (kind_phys), intent(out) |
qs, |
|
|
real (kind_phys), intent(out) |
ts, |
|
|
real (kind_phys), dimension(1:5001), intent(in) |
tt, |
|
|
integer, intent(in) |
nstep, |
|
|
integer, intent(in) |
ii, |
|
|
integer, intent(in) |
j, |
|
|
integer, intent(in) |
iland, |
|
|
integer, intent(in) |
isoil, |
|
|
real (kind_phys), intent(in) |
xlat, |
|
|
real (kind_phys), intent(in) |
xlon |
|
) |
| |
|
private |