152 |
DOUBLE PRECISION PTAVE(kdlon, klev) |
DOUBLE PRECISION PTAVE(kdlon, klev) |
153 |
DOUBLE PRECISION PWV(kdlon, klev), PQS(kdlon, klev) |
DOUBLE PRECISION PWV(kdlon, klev), PQS(kdlon, klev) |
154 |
DOUBLE PRECISION POZON(kdlon, klev) ! mass fraction of ozone |
DOUBLE PRECISION POZON(kdlon, klev) ! mass fraction of ozone |
155 |
DOUBLE PRECISION PAER(kdlon, klev, 5) |
DOUBLE PRECISION PAER(kdlon, klev, 5) ! AEROSOLS' OPTICAL THICKNESS |
156 |
DOUBLE PRECISION PCLDLD(kdlon, klev) |
DOUBLE PRECISION PCLDLD(kdlon, klev) |
157 |
DOUBLE PRECISION PCLDLU(kdlon, klev) |
DOUBLE PRECISION PCLDLU(kdlon, klev) |
158 |
DOUBLE PRECISION PCLDSW(kdlon, klev) |
DOUBLE PRECISION PCLDSW(kdlon, klev) |
293 |
PCLDLU, PVIEW, zcool, zcool0, ztoplw, zsollw, ztoplw0, zsollw0, & |
PCLDLU, PVIEW, zcool, zcool0, ztoplw, zsollw, ztoplw0, zsollw0, & |
294 |
zsollwdown, ZFLUP, ZFLDN, ZFLUP0, ZFLDN0) |
zsollwdown, ZFLUP, ZFLDN, ZFLUP0, ZFLDN0) |
295 |
CALL SW(PSCT, zrmu0, zfract, PPMB, PDP, PPSOL, PALBD, PALBP, PTAVE, & |
CALL SW(PSCT, zrmu0, zfract, PPMB, PDP, PPSOL, PALBD, PALBP, PTAVE, & |
296 |
PWV, PQS, POZON, PAER, PCLDSW, PTAU, POMEGA, PCG, zheat, zheat0, & |
PWV, PQS, POZON, PCLDSW, PTAU, POMEGA, PCG, zheat, zheat0, & |
297 |
zalbpla, ztopsw, zsolsw, ztopsw0, zsolsw0, ZFSUP, ZFSDN, ZFSUP0, & |
zalbpla, ztopsw, zsolsw, ztopsw0, zsolsw0, ZFSUP, ZFSDN, ZFSUP0, & |
298 |
ZFSDN0, tauae, pizae, cgae, PTAUA, POMEGAA, ztopswad, zsolswad, & |
ZFSDN0, tauae, pizae, cgae, PTAUA, POMEGAA, ztopswad, zsolswad, & |
299 |
ztopswai, zsolswai, ok_ade, ok_aie) |
ztopswai, zsolswai, ok_ade, ok_aie) |