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,
		real8, dimension(25 real8 ftrx(ntrx,nth,nph),pti(npti,nth,nph) real8 xz(3),athcnd(nth),aphcnd(nph) real8 othp(nsz),othcnd(nth),ophcnd(nph) real8 otxx(ntrx,nph,nth,nsz),opti(npti,nph,nth,nsz) real8 oxin1pi(nph,nth,nsz),oxi_hgpi(nph,nth,nsz),& oxin2pi(nph,nth,nsz),oxin2top(nph,nth,nsz) real8 txin1pi(nth,nph),txi_hgpi(nth,nph),txin2pi(nth,nph),& txin2top(nth,nph) integer4 izx(2),iwav(nw),nloop ! data ez/0.5d0,0.5d0,0.0d0,0.0d0/ ! character255 outdir character2 vc character2 xw character2 solzc character4 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.

Functions/Subroutines