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 |