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