subroutine coupling_dst_n |
( |
type(dst_t), intent(inout) |
DST, |
|
|
type(pack_isba_t), intent(inout) |
PKI, |
|
|
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) |
PTS, |
|
|
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) |
PPA, |
|
|
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) |
PCDN, |
|
|
real, dimension(ki), intent(in) |
PCH, |
|
|
real, dimension(ki), intent(in) |
PRI, |
|
|
real, dimension(ki), intent(in) |
PZ0H_WITH_SNOW, |
|
|
real, dimension(ki,kdst), intent(out) |
PSFDST |
|
) |
| |