4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE LW(PPMB, PDP, PPSOL, PDT0, PEMIS, PTL, PTAVE, PWV, POZON, PAER, & |
SUBROUTINE LW(PPMB, PDP, PDT0, PEMIS, PTL, PTAVE, PWV, POZON, PAER, PCLDLD, & |
8 |
PCLDLD, PCLDLU, PVIEW, PCOLR, PCOLR0, PTOPLW, PSOLLW, PTOPLW0, PSOLLW0, & |
PCLDLU, PVIEW, PCOLR, PCOLR0, PTOPLW, PSOLLW, PTOPLW0, PSOLLW0, & |
9 |
psollwdown, plwup, plwdn, plwup0, plwdn0) |
psollwdown, plwup, plwdn, plwup0, plwdn0) |
10 |
|
|
11 |
use LWU_m, only: LWU |
use LWU_m, only: LWU |
43 |
DOUBLE PRECISION PDT0(KDLON) ! SURFACE TEMPERATURE DISCONTINUITY (K) |
DOUBLE PRECISION PDT0(KDLON) ! SURFACE TEMPERATURE DISCONTINUITY (K) |
44 |
DOUBLE PRECISION PEMIS(KDLON) ! SURFACE EMISSIVITY |
DOUBLE PRECISION PEMIS(KDLON) ! SURFACE EMISSIVITY |
45 |
DOUBLE PRECISION PPMB(KDLON, KFLEV+1) ! HALF LEVEL PRESSURE (mb) |
DOUBLE PRECISION PPMB(KDLON, KFLEV+1) ! HALF LEVEL PRESSURE (mb) |
|
DOUBLE PRECISION PPSOL(KDLON) ! SURFACE PRESSURE (Pa) |
|
46 |
DOUBLE PRECISION POZON(KDLON, KFLEV) ! O3 CONCENTRATION (kg/kg) |
DOUBLE PRECISION POZON(KDLON, KFLEV) ! O3 CONCENTRATION (kg/kg) |
47 |
DOUBLE PRECISION PTL(KDLON, KFLEV+1) ! HALF LEVEL TEMPERATURE (K) |
DOUBLE PRECISION PTL(KDLON, KFLEV+1) ! HALF LEVEL TEMPERATURE (K) |
48 |
DOUBLE PRECISION PAER(KDLON, KFLEV, 5) ! OPTICAL THICKNESS OF THE AEROSOLS |
DOUBLE PRECISION PAER(KDLON, KFLEV, 5) ! OPTICAL THICKNESS OF THE AEROSOLS |
92 |
ZOZ(i, k) = POZON(i, k)*PDP(i, k) * MD/RMO3 |
ZOZ(i, k) = POZON(i, k)*PDP(i, k) * MD/RMO3 |
93 |
ENDDO |
ENDDO |
94 |
ENDDO |
ENDDO |
95 |
CALL LWU(PAER, PDP, PPMB, PPSOL, ZOZ, PTAVE, PVIEW, PWV, ZABCU) |
CALL LWU(PAER, PDP, PPMB, ZOZ, PTAVE, PVIEW, PWV, ZABCU) |
96 |
CALL LWBV(ILIM, PDP, PDT0, PEMIS, PPMB, PTL, PTAVE, ZABCU, & |
CALL LWBV(ILIM, PDP, PDT0, PEMIS, PPMB, PTL, PTAVE, ZABCU, & |
97 |
ZFLUC, ZBINT, ZBSUI, ZCTS, ZCNTRB) |
ZFLUC, ZBINT, ZBSUI, ZCTS, ZCNTRB) |
98 |
itaplw0 = 0 |
itaplw0 = 0 |