radiation_adding_ica_sw Module


Contents

Subroutines


Subroutines

public subroutine adding_ica_sw(ncol, nlev, incoming_toa, albedo_surf_diffuse, albedo_surf_direct, cos_sza, reflectance, transmittance, ref_dir, trans_dir_diff, trans_dir_dir, flux_up, flux_dn_diffuse, flux_dn_direct)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncol
integer, intent(in) :: nlev
real(kind=jprb), intent(in), dimension(ncol) :: incoming_toa
real(kind=jprb), intent(in), dimension(ncol) :: albedo_surf_diffuse
real(kind=jprb), intent(in), dimension(ncol) :: albedo_surf_direct
real(kind=jprb), intent(in), dimension(ncol) :: cos_sza
real(kind=jprb), intent(in), dimension(ncol, nlev) :: reflectance
real(kind=jprb), intent(in), dimension(ncol, nlev) :: transmittance
real(kind=jprb), intent(in), dimension(ncol, nlev) :: ref_dir
real(kind=jprb), intent(in), dimension(ncol, nlev) :: trans_dir_diff
real(kind=jprb), intent(in), dimension(ncol, nlev) :: trans_dir_dir
real(kind=jprb), intent(out), dimension(ncol, nlev+1) :: flux_up
real(kind=jprb), intent(out), dimension(ncol, nlev+1) :: flux_dn_diffuse
real(kind=jprb), intent(out), dimension(ncol, nlev+1) :: flux_dn_direct