|
logical,
|
intent(in) |
|
|
:: |
debut |
|
|
real,
|
intent(in) |
|
|
:: |
dist |
|
|
real,
|
intent(in) |
|
|
:: |
rmu0(KLON) |
|
|
real,
|
intent(in) |
|
|
:: |
fract(KLON) |
|
|
real,
|
intent(in) |
|
|
:: |
paprs(KLON,KLEV+1) |
|
|
real,
|
intent(in) |
|
|
:: |
pplay(KLON,KLEV) |
|
|
real,
|
intent(in) |
|
|
:: |
tsol(KLON) |
|
|
real,
|
intent(in) |
|
|
:: |
SFRWL(6) |
|
|
real,
|
intent(in) |
|
|
:: |
alb_dir(KLON,NSW) |
|
|
real,
|
intent(in) |
|
|
:: |
alb_dif(KLON,NSW) |
|
|
real,
|
intent(in) |
|
|
:: |
t(KLON,KLEV) |
|
|
real,
|
intent(in) |
|
|
:: |
q(KLON,KLEV) |
|
|
real,
|
intent(in) |
|
|
:: |
wo(:,:,:) |
|
|
real,
|
intent(in) |
|
|
:: |
cldfra(KLON,KLEV) |
|
|
real,
|
intent(in) |
|
|
:: |
cldemi(KLON,KLEV) |
|
|
real,
|
intent(in) |
|
|
:: |
cldtaupd(KLON,KLEV) |
|
|
logical,
|
intent(in) |
|
|
:: |
ok_ade |
|
|
logical,
|
intent(in) |
|
|
:: |
ok_aie |
|
|
logical,
|
intent(in) |
|
|
:: |
ok_volcan |
|
|
integer,
|
intent(in) |
|
|
:: |
flag_volc_surfstrat |
|
|
integer,
|
intent(in) |
|
|
:: |
flag_aerosol |
|
|
integer,
|
intent(in) |
|
|
:: |
flag_aerosol_strat |
|
|
logical,
|
intent(in) |
|
|
:: |
flag_aer_feedback |
|
|
real,
|
intent(in) |
|
|
:: |
tau_aero(KLON,KLEV,naero_grp,2) |
|
|
real,
|
intent(in) |
|
|
:: |
piz_aero(KLON,KLEV,naero_grp,2) |
|
|
real,
|
intent(in) |
|
|
:: |
cg_aero(KLON,KLEV,naero_grp,2) |
|
|
real,
|
intent(in) |
|
|
:: |
tau_aero_sw_rrtm(KLON,KLEV,2,NSW) |
|
|
real,
|
intent(in) |
|
|
:: |
piz_aero_sw_rrtm(KLON,KLEV,2,NSW) |
|
|
real,
|
intent(in) |
|
|
:: |
cg_aero_sw_rrtm(KLON,KLEV,2,NSW) |
|
|
real,
|
intent(in) |
|
|
:: |
tau_aero_lw_rrtm(KLON,KLEV,2,nbands_lw_rrtm) |
|
|
real,
|
intent(in) |
|
|
:: |
cldtaupi(KLON,KLEV) |
|
|
real,
|
intent(in) |
|
|
:: |
m_allaer(klon,klev,naero_tot) |
|
|
real,
|
intent(in) |
|
|
:: |
qsat(klon,klev) |
|
|
real,
|
intent(in) |
|
|
:: |
flwc(klon,klev) |
|
|
real,
|
intent(in) |
|
|
:: |
fiwc(klon,klev) |
|
|
real,
|
intent(in) |
|
|
:: |
ref_liq(klon,klev) |
|
|
real,
|
intent(in) |
|
|
:: |
ref_ice(klon,klev) |
|
|
real,
|
intent(in) |
|
|
:: |
ref_liq_pi(klon,klev) |
|
|
real,
|
intent(in) |
|
|
:: |
ref_ice_pi(klon,klev) |
|
|
character(len=512),
|
intent(in) |
|
|
:: |
namelist_ecrad_file |
|
|
real,
|
intent(out) |
|
|
:: |
heat(KLON,KLEV) |
|
|
real,
|
intent(out) |
|
|
:: |
heat0(KLON,KLEV) |
|
|
real,
|
intent(out) |
|
|
:: |
cool(KLON,KLEV) |
|
|
real,
|
intent(out) |
|
|
:: |
cool0(KLON,KLEV) |
|
|
real,
|
intent(out) |
|
|
:: |
albpla(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
heat_volc(KLON,KLEV) |
|
|
real,
|
intent(out) |
|
|
:: |
cool_volc(KLON,KLEV) |
|
|
real,
|
intent(out) |
|
|
:: |
topsw(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
toplw(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
solsw(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
solswfdiff(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
sollw(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
sollwdown(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
topsw0(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
toplw0(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
solsw0(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
sollw0(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
lwdnc0(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
lwdn0(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
lwdn(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
lwupc0(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
lwup0(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
lwup(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
lwtoa0b(KLON,nbands_lw_rrtm) |
|
|
real,
|
intent(out) |
|
|
:: |
lwtoab(KLON,nbands_lw_rrtm) |
|
|
real,
|
intent(out) |
|
|
:: |
swdnc0(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
swdn0(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
swdn(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
swupc0(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
swup0(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
swup(KLON,kflev+1) |
|
|
real,
|
intent(out) |
|
|
:: |
topswad_aero(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
solswad_aero(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
topswai_aero(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
solswai_aero(KLON) |
|
|
real,
|
intent(out), |
|
DIMENSION(klon)
|
:: |
topswad0_aero |
|
|
real,
|
intent(out), |
|
DIMENSION(klon)
|
:: |
solswad0_aero |
|
|
real,
|
intent(out), |
|
DIMENSION(kdlon,9)
|
:: |
topsw_aero |
|
|
real,
|
intent(out), |
|
DIMENSION(kdlon,9)
|
:: |
topsw0_aero |
|
|
real,
|
intent(out), |
|
DIMENSION(kdlon,9)
|
:: |
solsw_aero |
|
|
real,
|
intent(out), |
|
DIMENSION(kdlon,9)
|
:: |
solsw0_aero |
|
|
real,
|
intent(out), |
|
DIMENSION(kdlon,3)
|
:: |
topswcf_aero |
|
|
real,
|
intent(out), |
|
DIMENSION(kdlon,3)
|
:: |
solswcf_aero |
|
|
real,
|
intent(out) |
|
|
:: |
toplwad_aero(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
sollwad_aero(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
toplwai_aero(KLON) |
|
|
real,
|
intent(out) |
|
|
:: |
sollwai_aero(KLON) |
|
|
real,
|
intent(out), |
|
DIMENSION(klon)
|
:: |
toplwad0_aero |
|
|
real,
|
intent(out), |
|
DIMENSION(klon)
|
:: |
sollwad0_aero |
|
|
real,
|
intent(out), |
|
DIMENSION(kdlon,kflev+1)
|
:: |
ZLWFT0_i |
|
|
real(kind=8)
|
|
|
|
:: |
ZFLDN0(KDLON,KFLEV+1) |
|
|
real(kind=8)
|
|
|
|
:: |
ZFLUP0(KDLON,KFLEV+1) |
|
|
real,
|
intent(out), |
|
DIMENSION(kdlon,kflev+1)
|
:: |
ZSWFT0_i |
|
|
real(kind=8)
|
|
|
|
:: |
ZFSDN0(KDLON,KFLEV+1) |
|
|
real(kind=8)
|
|
|
|
:: |
ZFSUP0(KDLON,KFLEV+1) |
|
|
real(kind=8),
|
|
|
dimension(klon,klev+1)
|
:: |
ZFLUX_DIR |
|
|
real(kind=8),
|
|
|
dimension(klon,klev+1)
|
:: |
ZFLUX_DIR_CLEAR |
|
|
real(kind=8),
|
|
|
dimension(klon)
|
:: |
ZFLUX_DIR_INTO_SUN |
|
|
real(kind=8)
|
|
|
|
:: |
cloud_cover_sw(klon) |
|