calc_reflectance_transmittance_lw Subroutine

public subroutine calc_reflectance_transmittance_lw(ng, od, gamma1, gamma2, planck_top, planck_bot, reflectance, transmittance, source_up, source_dn)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ng
real(kind=jprb), intent(in), dimension(ng) :: od
real(kind=jprb), intent(in), dimension(ng) :: gamma1
real(kind=jprb), intent(in), dimension(ng) :: gamma2
real(kind=jprb), intent(in), dimension(ng) :: planck_top
real(kind=jprb), intent(in), dimension(ng) :: planck_bot
real(kind=jprb), intent(out), dimension(ng) :: reflectance
real(kind=jprb), intent(out), dimension(ng) :: transmittance
real(kind=jprb), intent(out), dimension(ng) :: source_up
real(kind=jprb), intent(out), dimension(ng) :: source_dn

Contents