subroutine gpxyb |
( |
integer(kind=jpim), intent(in) |
KPROMA, |
|
|
integer(kind=jpim), intent(in) |
KSTART, |
|
|
integer(kind=jpim), intent(in) |
KPROF, |
|
|
integer(kind=jpim), intent(in) |
KFLEV, |
|
|
real(kind=jprb), dimension(kflev), intent(in) |
PVDELB, |
|
|
real(kind=jprb), dimension(kflev), intent(in) |
PVC, |
|
|
real(kind=jprb), dimension(kproma,0:kflev), intent(in) |
PRES, |
|
|
real(kind=jprb), dimension(kproma,kflev), intent(inout) |
PDELP, |
|
|
real(kind=jprb), dimension(kproma,kflev), intent(inout) |
PRDELP, |
|
|
real(kind=jprb), dimension(kproma,kflev), intent(inout) |
PLNPR, |
|
|
real(kind=jprb), dimension(kproma,kflev), intent(out) |
PALPH, |
|
|
real(kind=jprb), dimension(kproma,kflev), intent(out) |
PRTGR, |
|
|
real(kind=jprb), dimension(kproma,kflev), intent(out) |
PRPRES, |
|
|
real(kind=jprb), dimension(kproma,kflev), intent(inout) |
PRPP |
|
) |
| |