subroutine cls_tq |
( |
real, dimension(:), intent(in) |
PTA, |
|
|
real, dimension(:), intent(in) |
PQA, |
|
|
real, dimension(:), intent(in) |
PPA, |
|
|
real, dimension(:), intent(in) |
PPS, |
|
|
real, dimension(:), intent(in) |
PHT, |
|
|
real, dimension(:), intent(in) |
PCD, |
|
|
real, dimension(:), intent(in) |
PCH, |
|
|
real, dimension(:), intent(in) |
PRI, |
|
|
real, dimension(:), intent(in) |
PTS, |
|
|
real, dimension(:), intent(in) |
PHU, |
|
|
real, dimension(:), intent(in) |
PZ0H, |
|
|
real, dimension(:), intent(in) |
PH, |
|
|
real, dimension(:), intent(out) |
PTNM, |
|
|
real, dimension(:), intent(out) |
PQNM, |
|
|
real, dimension(:), intent(out) |
PHUNM |
|
) |
| |