8 |
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 lwbv_m, only: lwbv |
12 |
use LWU_m, only: LWU |
use LWU_m, only: LWU |
13 |
USE suphec_m, ONLY: md, rcpd, rday, rg, rmo3 |
USE suphec_m, ONLY: md, rcpd, rday, rg, rmo3 |
14 |
USE raddim, ONLY: kdlon, kflev |
USE raddim, ONLY: kdlon, kflev |
94 |
ENDDO |
ENDDO |
95 |
ENDDO |
ENDDO |
96 |
CALL LWU(PAER, PDP, PPMB, ZOZ, PTAVE, PVIEW, PWV, ZABCU) |
CALL LWU(PAER, PDP, PPMB, ZOZ, PTAVE, PVIEW, PWV, ZABCU) |
97 |
CALL LWBV(ILIM, PDP, PDT0, PEMIS, PPMB, PTL, PTAVE, ZABCU, & |
CALL LWBV(ILIM, PDT0, PEMIS, PPMB, PTL, PTAVE, ZABCU, & |
98 |
ZFLUC, ZBINT, ZBSUI, ZCTS, ZCNTRB) |
ZFLUC, ZBINT, ZBSUI, ZCTS, ZCNTRB) |
99 |
itaplw0 = 0 |
itaplw0 = 0 |
100 |
ENDIF |
ENDIF |