outcrfty.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	outcrfty (tmcfd, tmcfu, ocrftzu, ocrftzd)

Function/Subroutine Documentation

outcrfty()

subroutine outcrfty	(	real*8, dimension(nsz)	tmcfd,
		real*8, dimension(nsz)	tmcfu,
		real*8, dimension(nph,nth,nsz)	ocrftzu,
		real*8, dimension(nph,nth, !*********************************************************************** ! lsza=bfr1(35)+0.001 do i=1,lsza,1 m=msza(i) tma(i)=the0in(m) tmb(i)=fdirc(m) tmc(i)=sbarz(m) tmfd(i)=fdown(m) tmfu(i)=fup(m) tms(i)=oalb(m) tmcfd(i)=cfdown(m) tmcfu(i)=cfup(m) enddo ! iprn=14 call headr(iprn) ! write(iprn,6659) do 5567 i=1,lsza it=msza(i) write(iprn,6660)tma(i),pi write(iprn,6661)tmb(i),tmfd(i) write(iprn,6662)tmfu(i),tms(i) write(iprn,6674)tmcfd(i),tmcfu(i) write(iprn,6668) write(iprn,6664)(the(ir),ir=1,(nx-1)) do is=1,jpart write(iprn,6667)jphi(is),(crftzu(it,ir,is)*pi,ir=1,(nx-1)) do ir=1,(nx-1) ocrftzu(is,ir,it) = crftzu(it,ir,is)*pi enddo enddo continue ! iprn=13 call headr(iprn) ! write(iprn,6659) do 5568 i=1,lsza it=msza(i) write(iprn,6660)tma(i),pi write(iprn,6661)tmb(i),tmfd(i) write(iprn,6662)tmfu(i),tms(i) write(iprn,6674)tmcfd(i),tmcfu(i) write(iprn,6668) write(iprn,6664)(the(ir),ir=1,(nx-1)) do is=1,jpart write(iprn,6667)jphi(is),(crftzd(it,ir,is)*pi,ir=1,(nx-1)) do ir=1,(nx-1) ocrftzd(it,ir,is) = crftzd(it,ir,is)*pi enddo enddo continue !*****format statements************************************************* ! format(t1,'fluxes') format(t8,'sza',t32,f6.1,t40,'f0_top',t64,1pe12.4) format(t8,'fdir_btm',t26,1pe12.4,t40,'fdif_btm',t64,1pe12.4) format(t8,'fdif_up',t26,1pe12.4,t40,'hem. ref(ocean)',t64,1pe12.4) format('phi theta',7(2x,f5.1,3x)/3(9x,7(2x,f5.1,3x)/))	ocrftzd
	)

Definition at line 2 of file outcrfty.f.