outactfy.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	outactfy (tmf1)

Function/Subroutine Documentation

outactfy()

subroutine outactfy

(

real*8, dimension(nsz,nly !*********************************************************************** ! lsza=bfr1(35)+0.001 do i=1,lsza,1 m=msza(i) tma(i)=the0in(m) tmb(i)=fdirc(m)/pi tmc(i)=sbarz(m) tmfd(i)=fdown(m)/pi tmfu(i)=fup(m)/pi do j=1,nolyr+1 tmf1(i,j)=acfg1(m,j) enddo enddo ! ff0=1.0d0 write(30,502)wvlth*1.0e+4 write(30,503)ff0 write(30,504)(tma(i),i=1,lsza) write(30,506)(tmb(i),i=1,lsza) write(30,508)(tmfd(i),i=1,lsza) write(30,511) do k=1,nolyr+1 write(30,514)k,ht(k),pl(k),taupl(k),(tmf1(i,k),i=1,lsza) enddo ! format('wavelength(um)',t20,1pe11.3) format('solar flux(top)',t20,1pe11.3) format('sza',t22,25(f4.1,7x)) format('f(dir)',t20,1p25e11.3) format('f(diff)',t20,1p25e11.3) format(t1,'lvl',t7,'height',t18,'pressure',t29,& 'tot. opt.',t40,'act_flx'/& t1,'no.',t8,'(km)',t19,'(atm.)',t29,'thickness')

tmf1

)

Definition at line 2 of file outactfy.f.