Go to the source code of this file.
|
subroutine | swde (KIDIA, KFDIA, KLON, PGG, PREF, PRMUZ, PTO1, PW, PRE1, PRE2, PTR1, PTR2) |
|
subroutine swde |
( |
integer(kind=jpim), intent(in) |
KIDIA, |
|
|
integer(kind=jpim), intent(in) |
KFDIA, |
|
|
integer(kind=jpim), intent(in) |
KLON, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PGG, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PREF, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PRMUZ, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PTO1, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PW, |
|
|
real(kind=jprb), dimension(klon), intent(out) |
PRE1, |
|
|
real(kind=jprb), dimension(klon), intent(out) |
PRE2, |
|
|
real(kind=jprb), dimension(klon), intent(out) |
PTR1, |
|
|
real(kind=jprb), dimension(klon), intent(out) |
PTR2 |
|
) |
| |