| subroutine, public rrtmgp_sw_main::rrtmgp_sw_main_run | ( | logical, intent(in) | doswrad, |
| logical, intent(in) | doswclrsky, | ||
| logical, intent(in) | top_at_1, | ||
| integer, intent(in) | ncol, | ||
| integer, intent(in) | nday, | ||
| integer, intent(in) | nlay, | ||
| integer, intent(in) | ngases, | ||
| integer, intent(in) | rrtmgp_phys_blksz, | ||
| integer, dimension(:), intent(in) | idx, | ||
| integer, dimension(:), intent(in) | icseed_sw, | ||
| 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_sw, | ||
| integer, intent(in) | isfc, | ||
| real(kind_phys), dimension(:), intent(in) | sfc_alb_nir_dir, | ||
| real(kind_phys), dimension(:), intent(in) | sfc_alb_nir_dif, | ||
| real(kind_phys), dimension(:), intent(in) | sfc_alb_uvvis_dir, | ||
| real(kind_phys), dimension(:), intent(in) | sfc_alb_uvvis_dif, | ||
| real(kind_phys), dimension(:), intent(in) | coszen, | ||
| 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) | aersw_tau, | ||
| real(kind_phys), dimension(:,:,:), intent(in) | aersw_ssa, | ||
| real(kind_phys), dimension(:,:,:), intent(in) | aersw_g, | ||
| real(kind_phys), intent(in) | solcon, | ||
| type(cmpfsw_type), dimension(:), intent(inout) | scmpsw, | ||
| real(kind_phys), dimension(:,:), intent(inout) | fluxswup_allsky, | ||
| real(kind_phys), dimension(:,:), intent(inout) | fluxswdown_allsky, | ||
| real(kind_phys), dimension(:,:), intent(inout) | fluxswup_clrsky, | ||
| real(kind_phys), dimension(:,:), intent(inout) | fluxswdown_clrsky, | ||
| real(kind_phys), dimension(:,:), intent(inout) | cldtausw, | ||
| character(len=*), intent(out) | errmsg, | ||
| integer, intent(out) | errflg ) |