calc_reflectance_transmittance_z_sw Subroutine

public subroutine calc_reflectance_transmittance_z_sw(ng, mu0, depth, gamma0, gamma1, gamma2, gamma3, gamma4, 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)			::	depth
real(kind=jprb),	intent(in),		dimension(ng)	::	gamma0
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(in),		dimension(ng)	::	gamma4
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