| subroutine, public rrtmgp_lw_main::rrtmgp_lw_main_run |
( |
logical, intent(in) |
dolwrad, |
|
|
logical, intent(in) |
dolwclrsky, |
|
|
logical, intent(in) |
top_at_1, |
|
|
logical, intent(in) |
dogp_lwscat, |
|
|
integer, intent(in) |
ncol, |
|
|
integer, intent(in) |
nlay, |
|
|
integer, intent(in) |
ngases, |
|
|
integer, intent(in) |
rrtmgp_phys_blksz, |
|
|
integer, intent(in) |
ngauss_angles, |
|
|
integer, dimension(:), intent(in) |
icseed_lw, |
|
|
integer, intent(in) |
iovr, |
|
|
integer, intent(in) |
iovr_convcld, |
|
|
integer, intent(in) |
iovr_max, |
|
|
integer, intent(in) |
iovr_maxrand, |
|
|
integer, intent(in) |
iovr_rand, |
|
|
integer, intent(in) |
iovr_dcorr, |
|
|
integer, intent(in) |
iovr_exp, |
|
|
integer, intent(in) |
iovr_exprand, |
|
|
integer, intent(in) |
isubc_lw, |
|
|
real(kind_phys), dimension(:), intent(in) |
semis, |
|
|
real(kind_phys), dimension(:), intent(in) |
tsfg, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
p_lay, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
p_lev, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
t_lay, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
t_lev, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
vmr_o2, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
vmr_h2o, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
vmr_o3, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
vmr_ch4, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
vmr_n2o, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
vmr_co2, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
cld_frac, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
cld_lwp, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
cld_reliq, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
cld_iwp, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
cld_reice, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
cld_swp, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
cld_resnow, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
cld_rwp, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
cld_rerain, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
precip_frac, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional |
cld_cnv_lwp, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional |
cld_cnv_reliq, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional |
cld_cnv_iwp, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional |
cld_cnv_reice, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional |
cld_pbl_lwp, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional |
cld_pbl_reliq, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional |
cld_pbl_iwp, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional |
cld_pbl_reice, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
cloud_overlap_param, |
|
|
character(len=*), dimension(:), intent(in) |
active_gases_array, |
|
|
real(kind_phys), dimension(:,:,:), intent(in) |
aerlw_tau, |
|
|
real(kind_phys), dimension(:,:,:), intent(in) |
aerlw_ssa, |
|
|
real(kind_phys), dimension(:,:,:), intent(in) |
aerlw_g, |
|
|
real(kind_phys), dimension(:,:), intent(inout) |
fluxlwup_allsky, |
|
|
real(kind_phys), dimension(:,:), intent(inout) |
fluxlwdown_allsky, |
|
|
real(kind_phys), dimension(:,:), intent(inout) |
fluxlwup_clrsky, |
|
|
real(kind_phys), dimension(:,:), intent(inout) |
fluxlwdown_clrsky, |
|
|
real(kind_phys), dimension(:,:), intent(inout) |
fluxlwup_radtime, |
|
|
real(kind_phys), dimension(:,:), intent(inout) |
fluxlwdown_radtime, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional |
fluxlwup_jac, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |