radiation_adding_ica_sw Module


Used by

  • module~~radiation_adding_ica_sw~2~~UsedByGraph module~radiation_adding_ica_sw~2 radiation_adding_ica_sw proc~solver_homogeneous_sw solver_homogeneous_sw proc~solver_homogeneous_sw->module~radiation_adding_ica_sw~2 proc~solver_mcica_sw solver_mcica_sw proc~solver_mcica_sw->module~radiation_adding_ica_sw~2 proc~solver_homogeneous_sw~2 solver_homogeneous_sw proc~solver_homogeneous_sw~2->module~radiation_adding_ica_sw~2 proc~solver_cloudless_sw~2 solver_cloudless_sw proc~solver_cloudless_sw~2->module~radiation_adding_ica_sw~2 proc~solver_mcica_sw~2 solver_mcica_sw proc~solver_mcica_sw~2->module~radiation_adding_ica_sw~2 proc~solver_cloudless_sw solver_cloudless_sw proc~solver_cloudless_sw->module~radiation_adding_ica_sw~2

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