4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE LWU(PAER, PDP, PPMB, PPSOL, POZ, PTAVE, PVIEW, PWV, PABCU) |
SUBROUTINE LWU(PAER, PDP, PPMB, POZ, PTAVE, PVIEW, PWV, PABCU) |
8 |
|
|
9 |
! Purpose. Computes absorber amounts including pressure and |
! Purpose. Computes absorber amounts including pressure and |
10 |
! temperature effects. |
! temperature effects. |
33 |
DOUBLE PRECISION PAER(KDLON, KFLEV, 5) |
DOUBLE PRECISION PAER(KDLON, KFLEV, 5) |
34 |
DOUBLE PRECISION PDP(KDLON, KFLEV) |
DOUBLE PRECISION PDP(KDLON, KFLEV) |
35 |
DOUBLE PRECISION PPMB(KDLON, KFLEV + 1) |
DOUBLE PRECISION PPMB(KDLON, KFLEV + 1) |
|
DOUBLE PRECISION PPSOL(KDLON) |
|
36 |
DOUBLE PRECISION POZ(KDLON, KFLEV) |
DOUBLE PRECISION POZ(KDLON, KFLEV) |
37 |
DOUBLE PRECISION PTAVE(KDLON, KFLEV) |
DOUBLE PRECISION PTAVE(KDLON, KFLEV) |
38 |
DOUBLE PRECISION PVIEW(KDLON) |
DOUBLE PRECISION PVIEW(KDLON) |