subroutine COUPLING_DST_n |
( |
CHARACTER(LEN=*), intent(in) |
HPROGRAM, |
|
|
INTEGER, intent(in) |
KI, |
|
|
INTEGER, intent(in) |
KDST, |
|
|
INTEGER, intent(in) |
KPATCH, |
|
|
REAL, dimension(ki), intent(in) |
PCLAY, |
|
|
REAL, dimension(ki), intent(in) |
PPS, |
|
|
REAL, dimension(ki), intent(in) |
PQA, |
|
|
REAL, dimension(ki), intent(in) |
PRA, |
|
|
REAL, dimension(ki), intent(in) |
PRHOA, |
|
|
REAL, dimension(ki), intent(in) |
PSAND, |
|
|
REAL, dimension(ki), intent(in) |
PSFTH, |
|
|
REAL, dimension(ki), intent(in) |
PSFTQ, |
|
|
REAL, dimension(ki), intent(in) |
PTA, |
|
|
REAL, dimension(ki), intent(in) |
PTG, |
|
|
REAL, dimension(ki), intent(in) |
PU, |
|
|
REAL, dimension(ki), intent(in) |
PUREF, |
|
|
REAL, dimension(ki), intent(in) |
PV, |
|
|
REAL, dimension(ki), intent(in) |
PWG, |
|
|
REAL, dimension(ki), intent(in) |
PWSAT, |
|
|
REAL, dimension(ki), intent(in) |
PZREF, |
|
|
REAL, dimension(ki), intent(in) |
PCD, |
|
|
REAL, dimension(ki), intent(in) |
PRI, |
|
|
REAL, dimension(ki), intent(in) |
PZ0H_WITH_SNOW, |
|
|
REAL, dimension(ki,kdst), intent(out) |
PSFDST |
|
) |
| |