radiation_adding_ica_lw Module


Contents

Subroutines


Subroutines

public subroutine adding_ica_lw(ncol, nlev, reflectance, transmittance, source_up, source_dn, emission_surf, albedo_surf, flux_up, flux_dn)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncol
integer, intent(in) :: nlev
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) :: source_up
real(kind=jprb), intent(in), dimension(ncol, nlev) :: source_dn
real(kind=jprb), intent(in), dimension(ncol) :: emission_surf
real(kind=jprb), intent(in), dimension(ncol) :: albedo_surf
real(kind=jprb), intent(out), dimension(ncol, nlev+1) :: flux_up
real(kind=jprb), intent(out), dimension(ncol, nlev+1) :: flux_dn

public subroutine fast_adding_ica_lw(ncol, nlev, reflectance, transmittance, source_up, source_dn, emission_surf, albedo_surf, is_clear_sky_layer, i_cloud_top, flux_dn_clear, flux_up, flux_dn)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncol
integer, intent(in) :: nlev
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) :: source_up
real(kind=jprb), intent(in), dimension(ncol, nlev) :: source_dn
real(kind=jprb), intent(in), dimension(ncol) :: emission_surf
real(kind=jprb), intent(in), dimension(ncol) :: albedo_surf
logical, intent(in) :: is_clear_sky_layer(nlev)
integer, intent(in) :: i_cloud_top
real(kind=jprb), intent(in), dimension(ncol, nlev+1) :: flux_dn_clear
real(kind=jprb), intent(out), dimension(ncol, nlev+1) :: flux_up
real(kind=jprb), intent(out), dimension(ncol, nlev+1) :: flux_dn

public subroutine calc_fluxes_no_scattering_lw(ncol, nlev, transmittance, source_up, source_dn, emission_surf, albedo_surf, flux_up, flux_dn)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncol
integer, intent(in) :: nlev
real(kind=jprb), intent(in), dimension(ncol, nlev) :: transmittance
real(kind=jprb), intent(in), dimension(ncol, nlev) :: source_up
real(kind=jprb), intent(in), dimension(ncol, nlev) :: source_dn
real(kind=jprb), intent(in), dimension(ncol) :: emission_surf
real(kind=jprb), intent(in), dimension(ncol) :: albedo_surf
real(kind=jprb), intent(out), dimension(ncol, nlev+1) :: flux_up
real(kind=jprb), intent(out), dimension(ncol, nlev+1) :: flux_dn