calc_reflectance_transmittance_sw Subroutine

public subroutine calc_reflectance_transmittance_sw(ng, mu0, od, ssa, gamma1, gamma2, gamma3, ref_diff, trans_diff, ref_dir, trans_dir_diff, trans_dir_dir)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ng
real(kind=jprb),	intent(in)			::	mu0
real(kind=jprb),	intent(in),		dimension(ng)	::	od
real(kind=jprb),	intent(in),		dimension(ng)	::	ssa
real(kind=jprb),	intent(in),		dimension(ng)	::	gamma1
real(kind=jprb),	intent(in),		dimension(ng)	::	gamma2
real(kind=jprb),	intent(in),		dimension(ng)	::	gamma3
real(kind=jprb),	intent(out),		dimension(ng)	::	ref_diff
real(kind=jprb),	intent(out),		dimension(ng)	::	trans_diff
real(kind=jprb),	intent(out),		dimension(ng)	::	ref_dir
real(kind=jprb),	intent(out),		dimension(ng)	::	trans_dir_diff
real(kind=jprb),	intent(out),		dimension(ng)	::	trans_dir_dir

Contents