lidar_optics Subroutine

public subroutine lidar_optics(npoints, ncolumns, nlev, npart, ice_type, lidar_freq, lground, q_lsliq, q_lsice, q_cvliq, q_cvice, ls_radliq, ls_radice, cv_radliq, cv_radice, pres, presf, temp, beta_mol, betatot, tau_mol, tautot, tautot_S_liq, tautot_S_ice, betatot_ice, betatot_liq, tautot_ice, tautot_liq)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	npoints
integer,	intent(in)			::	ncolumns
integer,	intent(in)			::	nlev
integer,	intent(in)			::	npart
integer,	intent(in)			::	ice_type
integer,	intent(in)			::	lidar_freq
logical,	intent(in)			::	lground
real(kind=WP),	intent(in),		dimension(npoints,ncolumns,nlev)	::	q_lsliq
real(kind=WP),	intent(in),		dimension(npoints,ncolumns,nlev)	::	q_lsice
real(kind=WP),	intent(in),		dimension(npoints,ncolumns,nlev)	::	q_cvliq
real(kind=WP),	intent(in),		dimension(npoints,ncolumns,nlev)	::	q_cvice
real(kind=WP),	intent(in),		dimension(npoints,nlev)	::	ls_radliq
real(kind=WP),	intent(in),		dimension(npoints,nlev)	::	ls_radice
real(kind=WP),	intent(in),		dimension(npoints,nlev)	::	cv_radliq
real(kind=WP),	intent(in),		dimension(npoints,nlev)	::	cv_radice
real(kind=WP),	intent(in),		dimension(npoints,nlev)	::	pres
real(kind=WP),	intent(in),		dimension(npoints,nlev+1)	::	presf
real(kind=WP),	intent(in),		dimension(npoints,nlev)	::	temp
real(kind=WP),	intent(out),		dimension(npoints,nlev)	::	beta_mol
real(kind=WP),	intent(out),		dimension(npoints,ncolumns,nlev)	::	betatot
real(kind=WP),	intent(out),		dimension(npoints,nlev)	::	tau_mol
real(kind=WP),	intent(out),		dimension(npoints,ncolumns,nlev)	::	tautot
real(kind=WP),	intent(out),	optional,	dimension(npoints,ncolumns)	::	tautot_S_liq
real(kind=WP),	intent(out),	optional,	dimension(npoints,ncolumns)	::	tautot_S_ice
real(kind=WP),	intent(out),	optional,	dimension(npoints,ncolumns,nlev)	::	betatot_ice
real(kind=WP),	intent(out),	optional,	dimension(npoints,ncolumns,nlev)	::	betatot_liq
real(kind=WP),	intent(out),	optional,	dimension(npoints,ncolumns,nlev)	::	tautot_ice
real(kind=WP),	intent(out),	optional,	dimension(npoints,ncolumns,nlev)	::	tautot_liq

Contents