viirs_ler_luts.f95 File Reference

Go to the source code of this file.

Modules
module	viirs_ler_luts

Functions/Subroutines
subroutine, public	load_viirs_ler_luts (lut_ler_file, status)
integer function	wrap_total ()

Variables
real, dimension(20800)	logi0
real, dimension(20800)	z1i0
real, dimension(20800)	z2i0
real, dimension(20800)	ti0
real, dimension(260)	sb
real, dimension(160)	li0r
real, dimension(160)	z1i0r
real, dimension(160)	z2i0r
real, dimension(160)	ti0r
real, dimension(2)	sbr
real, dimension(10)	xxzlog = (/0.0000000, 0.00977964, 0.0395086, 0.0904221, 0.164818, 0.266515, 0.401776, 0.581261, 0.824689, 1.17436/)
real, dimension(8)	xxlog = (/0.000000,0.0395086,0.143841,0.266515,0.401776, 0.531394,0.635031,0.693147/)
real, dimension(10)	xzlog
real, dimension(8)	xlog
real, dimension(4, 7)	densol
real, dimension(4, 5)	denscn
real, dimension(4)	cthet0
real, dimension(4)	ctheta
real, dimension(16)	cofs
integer	indsol
integer	indscn
integer	iofset
real	p1
real	pr
real, dimension(10)	dum10
real	xlat
real	xlong
real	sza
real	xthet
real	xphi
real	cphi
real	c2phi
real	pteran
real	xnvalm
integer	isnow
integer	partial
real	so2ind
real	resn
real	sens
real	rsens
real	ozbst
real	ref
real	estozn
real	ozcld
real	pcloud
real	prfrac
real	clfrac
real	rayval
real	r412
real	r470
real	sfref412
real	sfref470
real	sfref650
real	qdif412
real	qdif470
real	qdif650
real	stdv
real, dimension(26)	realbuf