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	Intent	Optional	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