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 ) |