afrt_ocn.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	af_ocn_read (infile, nww, iopt, isig, isolz, nsza, nthe, nphi, ibgn, iend, dlth, dlph, xr, xi, v, thcel, phcel, wav, tha, sig_hg, solz)
subroutine	af_ocn_process (outdir, alam, asig, iopt, isig, isolz, insza, dlth, dlph, xr, xi, v, thcel, phcel, wav, tha, sig_hg, solz, iprob, othp, o otxx, opti, oxin1pi, oxi_hgpi, oxin2pi, oxin2top)
subroutine	probl (zx, zy, v, prob, pi, sig, iprob)
subroutine	rufocn (ei, thpd, phpd, xr, xi, v, pha, tha, phcnd, thcnd, thcel, phcel, opt, ftrx, pti, pi, con, ntha, nphi, iprob, nthcnd, nphcnd, txin1pi, txi_hgpi, txin2pi, txin2top)
subroutine	rtang (tha, pha, thcnd, phcnd, thp, dlth, dlph, ntha, nphi, nthcnd, nphcnd, nthp, nloop)
subroutine	rufint (pi, con, amuo, thcnd, phcnd, opt, pti, xi_hgcnt, nthcnd, nphcnd)
subroutine	solidz (thp, php, thsl, phsl, domgan, domega, con)
subroutine	zangl (thp, php, ths, phs, thn, phn, xr, xi, tmio, ei, cost, thcnt, phcnt, tzm)
subroutine	znorml (thnl, phnl, domgan)
subroutine	riwat (wl, xsal, nr, ni)
subroutine	ufunc (pi, xmu, sig, uu)
subroutine	probl_hg (pi, xmup, phirpx, xmux, phirx, sig, alfa, prob, xi_hg)
subroutine	rufint_new (pi, con, amuo, thcnd, phcnd, opt, pti, xi_hgcnt, nthcnd, nphcnd, txin1pi, txi_hgpi, txin2pi, txin2top)

Function/Subroutine Documentation

af_ocn_process()

subroutine af_ocn_process	(		outdir,
		integer*4	alam,
		integer*4	asig,
		integer*4	iopt,
		integer*4	isig,
		integer*4	isolz,
		integer*4	insza,
		real*8	dlth,
		real*8	dlph,
		real*8	xr,
		real*8	xi,
		real*8	v,
		real*8	thcel,
		real*8	phcel,
		real*8, dimension(nw)	wav,
		real*8, dimension(nth)	tha,
		real*8, dimension(nsg)	sig_hg,
		real*8, dimension(25 real*8 ftrx(ntrx,nth,nph),pti(npti,nth,nph) real*8 xz(3),athcnd(nth),aphcnd(nph) real*8 othp(nsz),othcnd(nth),ophcnd(nph) real*8 otxx(ntrx,nph,nth,nsz),opti(npti,nph,nth,nsz) real*8 oxin1pi(nph,nth,nsz),oxi_hgpi(nph,nth,nsz),& oxin2pi(nph,nth,nsz),oxin2top(nph,nth,nsz) real*8 txin1pi(nth,nph),txi_hgpi(nth,nph),txin2pi(nth,nph),& txin2top(nth,nph) integer*4 izx(2),iwav(nw),nloop ! data ez/0.5d0,0.5d0,0.0d0,0.0d0/ ! character*255 outdir character*2 vc character*2 xw character*2 solzc character*4 xwc ! !********************************************************************** ! ntha = inthe nphi = inphi len2=index(outdir,' ')-1 pi = dacos(-1.0d0 ) con=pi/180.0d0 ! iprob=1 opt=0.1546d0 xsal=0.0d0 do i=1,nw iwav(i)=int((wav(i)+0.0001)*1000.0 )	solz,
			iprob,
			othp,
			o,
			otxx,
			opti,
			oxin1pi,
			oxi_hgpi,
			oxin2pi,
			oxin2top
	)

Definition at line 82 of file afrt_ocn.f.

af_ocn_read()

subroutine af_ocn_read	(	character*255	infile,
		integer*4	nww,
		integer*4	iopt,
		integer*4	isig,
		integer*4	isolz,
		integer*4	nsza,
		integer*4	nthe,
		integer*4	nphi,
		integer*4	ibgn,
		integer*4	iend,
		real*8	dlth,
		real*8	dlph,
		real*8	xr,
		real*8	xi,
		real*8	v,
		real*8	thcel,
		real*8	phcel,
		real*8, dimension(nw)	wav,
		real*8, dimension(nth)	tha,
		real*8, dimension(nsg)	sig_hg,
		real*8, dimension(25)	solz
	)

Definition at line 8 of file afrt_ocn.f.

probl()

subroutine probl	(		zx,
			zy,
			v,
			prob,
			pi,
			sig,
			iprob
	)

Definition at line 193 of file afrt_ocn.f.

probl_hg()

subroutine probl_hg	(		pi,
			xmup,
			phirpx,
			xmux,
			phirx,
			sig,
			alfa,
			prob,
			xi_hg
	)

Definition at line 1153 of file afrt_ocn.f.

riwat()

subroutine riwat	(		wl,
			xsal,
		real*8	nr,
		real*8	ni
	)

Definition at line 1052 of file afrt_ocn.f.

rtang()

subroutine rtang	(	real*8, dimension(nth)	tha,
		real*8, dimension(nph)	pha,
		real*8, dimension(nth)	thcnd,
		real*8, dimension(nph)	phcnd,
		real*8, dimension(nsz)	thp,
			dlth,
			dlph,
			ntha,
			nphi,
			nthcnd,
			nphcnd,
			nthp,
			nloop
	)

Definition at line 686 of file afrt_ocn.f.

rufint()

subroutine rufint	(		pi,
			con,
			amuo,
		real*8, dimension(nth)	thcnd,
		real*8, dimension(nph)	phcnd,
			opt,
		real * 8, dimension(8,nth,nph)	pti,
		real*8, dimension(nth,nph)	xi_hgcnt,
			nthcnd,
			nphcnd
	)

Definition at line 716 of file afrt_ocn.f.

rufint_new()

subroutine rufint_new	(		pi,
			con,
			amuo,
		real*8, dimension(nth)	thcnd,
		real*8, dimension(nph)	phcnd,
			opt,
		real*8, dimension(8,nth,nph)	pti,
		real*8, dimension(nth,nph)	xi_hgcnt,
			nthcnd,
			nphcnd,
		real*8, dimension(nth,nph)	txin1pi,
		real*8, dimension(nth,nph)	txi_hgpi,
		real*8, dimension(nth,nph)	txin2pi,
		real*8, dimension(nth,nph)	txin2top
	)

Definition at line 1213 of file afrt_ocn.f.

rufocn()

subroutine rufocn	(	real*8, dimension(4)	ei,
			thpd,
			phpd,
			xr,
			xi,
			v,
		real*8, dimension(nph+1)	pha,
		real*8, dimension(nth)	tha,
		real*8, dimension(nph)	phcnd,
		real*8, dimension(nth)	thcnd,
			thcel,
			phcel,
			opt,
		real*8, dimension(16,nth,nph)	ftrx,
		real*8, dimension(8,nth,nph)	pti,
			pi,
			con,
			ntha,
			nphi,
			iprob,
			nthcnd,
			nphcnd,
		real*8, dimension(nth,nph)	txin1pi,
		real*8, dimension(nth,nph)	txi_hgpi,
		real*8, dimension(nth,nph)	txin2pi,
		real*8, dimension(nth,nph)	txin2top
	)

Definition at line 259 of file afrt_ocn.f.

solidz()

subroutine solidz	(		thp,
			php,
		real*8, dimension(3)	thsl,
		real*8, dimension(3)	phsl,
			domgan,
			domega,
			con
	)

Definition at line 760 of file afrt_ocn.f.

ufunc()

subroutine ufunc	(		pi,
			xmu,
			sig,
			uu
	)

Definition at line 1135 of file afrt_ocn.f.

zangl()

subroutine zangl	(		thp,
			php,
			ths,
			phs,
			thn,
			phn,
			xr,
			xi,
		real*8, dimension(4)	tmio,
		real*8, dimension(4)	ei,
			cost,
			thcnt,
			phcnt,
		real*8, dimension(4,4)	tzm
	)

Definition at line 818 of file afrt_ocn.f.

znorml()

subroutine znorml	(	real*8, dimension(3,3)	thnl,
		real*8, dimension(3,3)	phnl,
			domgan
	)

Definition at line 978 of file afrt_ocn.f.