viirs_aerosol_luts Module Reference

Functions/Subroutines
integer function, public	load_viirs_aerosol_luts (lut_file)
subroutine, public	unload_viirs_aerosol_luts (status)
subroutine, public	aero_470 (dflag, refl, x1, x2, x3, mm, nn, ll, ma, imod, r470, tau_x470, tau_x470_flag, trflg, model_frac, debug)
subroutine, public	aero_650 (dflag, refl, x1, x2, x3, mm, nn, ll, ma, r650, tau_x650, tau_x650_flag, tau_x470_flag, tau_x412, tau_x470, tau_x412_flag_91, trflg)
subroutine, public	aero_412 (dflag, refl, x1, x2, x3, mm, nn, ll, ma, imod, r412, tau_x412, tau_x412_flag, trflg, model_frac, debug)
subroutine, public	aero_412_abs (dflag, refl, x1, x2, x3, mm, nn, ll, r412, tau_x, w0_x)
subroutine, public	aero_470_abs (dflag2, refl, x1, x2, x3, mm, nn, ll, r470, tau_x, w0_x)
subroutine, public	aero_470_dust (dflag, refl, x1, x2, x3, mm, nn, ll, ma, imod, r470, tau_x470, tau_x470_flag, trflg, model_frac, debug)
subroutine, public	aero_650_dust (dflag, refl, x1, x2, x3, mm, nn, ll, ma, r650, tau_x650, tau_x650_flag, tau_x470_flag, tau_x412, tau_x470, tau_x412_flag_91, trflg)
subroutine, public	aero_412_dust (dflag, refl, x1, x2, x3, mm, nn, ll, ma, imod, r412, tau_x412, tau_x412_flag, trflg, model_frac, debug)
subroutine, public	aero_412_abs_dust (dflag, refl, x1, x2, x3, mm, nn, ll, r412, tau_x, w0_x)
subroutine, public	aero_470_abs_dust (dflag2, refl, x1, x2, x3, mm, nn, ll, r470, tau_x, w0_x)
subroutine, public	new_intep (x1a, x2a, x3a, ya, m, n, l, ia, x1, x2, x3, y, dy, mbeg, nbeg, frac)
subroutine, public	polint (xa, ya, n, x, y, dy)

Function/Subroutine Documentation

aero_412()

subroutine, public viirs_aerosol_luts::aero_412	(	logical, intent(inout)	dflag,
		real, intent(in)	refl,
		real, intent(in)	x1,
		real, intent(in)	x2,
		real, intent(in)	x3,
		integer, intent(in)	mm,
		integer, intent(in)	nn,
		integer, intent(in)	ll,
		integer, intent(in)	ma,
		integer, intent(in)	imod,
		real, intent(in)	r412,
		real, intent(inout)	tau_x412,
		integer, intent(inout)	tau_x412_flag,
		real, intent(in)	trflg,
		real, intent(in)	model_frac,
		logical, intent(in)	debug
	)

Definition at line 1205 of file viirs_aerosol_luts_nc4.f95.

aero_412_abs()

subroutine, public viirs_aerosol_luts::aero_412_abs	(	logical, intent(inout)	dflag,
		real, intent(in)	refl,
		real, intent(in)	x1,
		real, intent(in)	x2,
		real, intent(in)	x3,
		integer, intent(in)	mm,
		integer, intent(in)	nn,
		integer, intent(in)	ll,
		real, intent(in)	r412,
		real, intent(in)	tau_x,
		real, intent(inout)	w0_x
	)

Definition at line 1326 of file viirs_aerosol_luts_nc4.f95.

aero_412_abs_dust()

subroutine, public viirs_aerosol_luts::aero_412_abs_dust	(	logical, intent(inout)	dflag,
		real, intent(in)	refl,
		real, intent(in)	x1,
		real, intent(in)	x2,
		real, intent(in)	x3,
		integer, intent(in)	mm,
		integer, intent(in)	nn,
		integer, intent(in)	ll,
		real, intent(in)	r412,
		real, intent(in)	tau_x,
		real, intent(inout)	w0_x
	)

Definition at line 1907 of file viirs_aerosol_luts_nc4.f95.

aero_412_dust()

subroutine, public viirs_aerosol_luts::aero_412_dust	(	logical, intent(inout)	dflag,
		real, intent(in)	refl,
		real, intent(in)	x1,
		real, intent(in)	x2,
		real, intent(in)	x3,
		integer, intent(in)	mm,
		integer, intent(in)	nn,
		integer, intent(in)	ll,
		integer, intent(in)	ma,
		integer, intent(in)	imod,
		real, intent(in)	r412,
		real, intent(inout)	tau_x412,
		integer, intent(inout)	tau_x412_flag,
		real, intent(in)	trflg,
		real, intent(in)	model_frac,
		logical, intent(in)	debug
	)

Definition at line 1786 of file viirs_aerosol_luts_nc4.f95.

aero_470()

subroutine, public viirs_aerosol_luts::aero_470	(	logical, intent(inout)	dflag,
		real, intent(in)	refl,
		real, intent(in)	x1,
		real, intent(in)	x2,
		real, intent(in)	x3,
		integer, intent(in)	mm,
		integer, intent(in)	nn,
		integer, intent(in)	ll,
		integer, intent(in)	ma,
		integer, intent(in)	imod,
		real, intent(in)	r470,
		real, intent(inout)	tau_x470,
		integer, intent(inout)	tau_x470_flag,
		real, intent(inout)	trflg,
		real, intent(in)	model_frac,
		logical, intent(in)	debug
	)

Definition at line 893 of file viirs_aerosol_luts_nc4.f95.

aero_470_abs()

subroutine, public viirs_aerosol_luts::aero_470_abs	(	logical, intent(inout)	dflag2,
		real, intent(in)	refl,
		real, intent(in)	x1,
		real, intent(in)	x2,
		real, intent(in)	x3,
		integer, intent(in)	mm,
		integer, intent(in)	nn,
		integer, intent(in)	ll,
		real, intent(in)	r470,
		real, intent(in)	tau_x,
		real, intent(inout)	w0_x
	)

Definition at line 1399 of file viirs_aerosol_luts_nc4.f95.

aero_470_abs_dust()

subroutine, public viirs_aerosol_luts::aero_470_abs_dust	(	logical, intent(inout)	dflag2,
		real, intent(in)	refl,
		real, intent(in)	x1,
		real, intent(in)	x2,
		real, intent(in)	x3,
		integer, intent(in)	mm,
		integer, intent(in)	nn,
		integer, intent(in)	ll,
		real, intent(in)	r470,
		real, intent(in)	tau_x,
		real, intent(inout)	w0_x
	)

Definition at line 1980 of file viirs_aerosol_luts_nc4.f95.

aero_470_dust()

subroutine, public viirs_aerosol_luts::aero_470_dust	(	logical, intent(inout)	dflag,
		real, intent(in)	refl,
		real, intent(in)	x1,
		real, intent(in)	x2,
		real, intent(in)	x3,
		integer, intent(in)	mm,
		integer, intent(in)	nn,
		integer, intent(in)	ll,
		integer, intent(in)	ma,
		integer, intent(in)	imod,
		real, intent(in)	r470,
		real, intent(inout)	tau_x470,
		integer, intent(inout)	tau_x470_flag,
		real, intent(inout)	trflg,
		real, intent(in)	model_frac,
		logical, intent(in)	debug
	)

Definition at line 1477 of file viirs_aerosol_luts_nc4.f95.

aero_650()

subroutine, public viirs_aerosol_luts::aero_650	(	logical, intent(inout)	dflag,
		real, intent(in)	refl,
		real, intent(in)	x1,
		real, intent(in)	x2,
		real, intent(in)	x3,
		integer, intent(in)	mm,
		integer, intent(in)	nn,
		integer, intent(in)	ll,
		integer, intent(in)	ma,
		real, intent(in)	r650,
		real, intent(inout)	tau_x650,
		integer, intent(inout)	tau_x650_flag,
		integer, intent(in)	tau_x470_flag,
		real, intent(in)	tau_x412,
		real, intent(in)	tau_x470,
		integer, intent(in)	tau_x412_flag_91,
		real, intent(in)	trflg
	)

Definition at line 1021 of file viirs_aerosol_luts_nc4.f95.

aero_650_dust()

subroutine, public viirs_aerosol_luts::aero_650_dust	(	logical, intent(inout)	dflag,
		real, intent(in)	refl,
		real, intent(in)	x1,
		real, intent(in)	x2,
		real, intent(in)	x3,
		integer, intent(in)	mm,
		integer, intent(in)	nn,
		integer, intent(in)	ll,
		integer, intent(in)	ma,
		real, intent(in)	r650,
		real, intent(inout)	tau_x650,
		integer, intent(inout)	tau_x650_flag,
		integer, intent(in)	tau_x470_flag,
		real, intent(in)	tau_x412,
		real, intent(in)	tau_x470,
		integer, intent(in)	tau_x412_flag_91,
		real, intent(in)	trflg
	)

Definition at line 1602 of file viirs_aerosol_luts_nc4.f95.

load_viirs_aerosol_luts()

integer function, public viirs_aerosol_luts::load_viirs_aerosol_luts

(

character(len=255), intent(in)

lut_file

)

Definition at line 54 of file viirs_aerosol_luts_nc4.f95.

new_intep()

subroutine, public viirs_aerosol_luts::new_intep	(	real, dimension(:), intent(in)	x1a,
		real, dimension(:), intent(in)	x2a,
		real, dimension(:), intent(in)	x3a,
		real, dimension(:,:,:,:), intent(in)	ya,
		integer, intent(in)	m,
		integer, intent(in)	n,
		integer, intent(in)	l,
		integer, intent(in)	ia,
		real, intent(in)	x1,
		real, intent(in)	x2,
		real, intent(in)	x3,
		real, intent(inout)	y,
		real, intent(inout)	dy,
		integer, intent(in)	mbeg,
		integer, intent(in)	nbeg,
		real, intent(in)	frac
	)

Definition at line 2461 of file viirs_aerosol_luts_nc4.f95.

polint()

subroutine, public viirs_aerosol_luts::polint	(	real, dimension(:), intent(in)	xa,
		real, dimension(:), intent(in)	ya,
		integer, intent(in)	n,
		real, intent(in)	x,
		real, intent(inout)	y,
		real, intent(inout)	dy
	)

Definition at line 2503 of file viirs_aerosol_luts_nc4.f95.

unload_viirs_aerosol_luts()

subroutine, public viirs_aerosol_luts::unload_viirs_aerosol_luts

(

integer, intent(inout)

status

)

Definition at line 102 of file viirs_aerosol_luts_nc4.f95.