OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
outsurfsky.f
Go to the documentation of this file.
1  subroutine outsurfsky
2 c***********************************************************************
3 c subroutine outsurf creates output datasets for upwelling
4 c diffused radiation (skylight component) at the bottom of
5 c the atmosphere
6 c***********************************************************************
7 c.....include the common blocks
8  implicit real*8 (a-h,o-z)
9  include 'common_all.cmn'
10  real*8 tma(25),tmb(25),tmc(25),tmfd(25),tmfu(25),tms(25),tmt(25)
11  real*8 tmg(25),tmh(25),tmp(25),tmq(25),tmpp(25),tmqq(25)
12 c***********************************************************************
13 c
14  lsza=bfr1(35)+0.001
15  do i=1,lsza,1
16  m=msza(i)
17  tma(i)=the0in(m)
18  tmb(i)=fdirc(m)
19  tmc(i)=sbarz(m)
20  tmfd(i)=fdown(m)
21  tmfu(i)=fup(m)
22  tms(i)=oalb(m)
23  tmg(i)=albtdr(m)*pi
24  tmh(i)=albtdf(m)*pi
25  tmp(i)=albtrf(m)*pi
26  tmq(i)=albwl(m)*pi
27  tmpp(i)=tmq(i)/(tmb(i)+tmfd(i))
28  tmqq(i)=tms(i)-tmpp(i)
29  tmt(i)=(fdirc(m)+fdown(m))/pi
30  enddo
31 c
32  iprn=43
33  call headr(iprn)
34 c
35  write(iprn,6659)
36  do 5567 i=1,lsza
37  it=msza(i)
38  write(iprn,6660)tma(i),pi
39  write(iprn,6661)tmb(i),tmfd(i)
40  if(iref.eq.1 .or. iref.eq.2)then
41  write(iprn,6662)tmfu(i),tms(i)
42  write(iprn,7663)tmg(i),tmh(i)
43  write(iprn,7664)tmp(i),tmq(i)
44  write(iprn,7665)tmpp(i),tmqq(i)
45  endif
46  if(iref.eq.3)write(iprn,6665)tmfu(i),tms(i)
47  write(iprn,6668)
48  write(iprn,6664)(the(ir),ir=1,nangl)
49  do is=1,jpart
50  write(iprn,6667)jphi(is),
51  1 (radsky(it,ir,is)*pi,ir=1,nangl)
52  enddo
53 5567 continue
54 c
55 c*****format statements*************************************************
56 c
57 6659 format(t1,'fluxes')
58 6660 format(t8,'sza',t32,f6.1,t40,'f0_top',t64,1pe12.4)
59 6661 format(t8,'fdir_btm',t26,1pe12.4,t40,'fdif_btm',t64,1pe12.4)
60 6662 format(t8,'fdif_up',t26,1pe12.4,t40,'hem. ref(ocean)',t64,1pe12.4)
61 6664 format('phi theta',7(2x,f5.1,3x)/3(9x,7(2x,f5.1,3x)/))
62 6665 format(t8,'fdif_up',t26,1pe12.4,t40,'hem. ref(surf)',t64,1pe12.4)
63 6667 format(i3,6x,1p7e10.3/3(9x,1p7e10.3/))
64 6668 format(t1,'radiances (f0=pi)')
65 6672 format(t8,'fdif_up',t26,1pe12.4,t40,'sbar',t64,1pe12.4)
66 7663 format(t8,'ftw_dir(ocn)',t26,1pe12.4,
67  1 t40,'ftw_difdn(ocn)',t64,1pe12.4)
68 7664 format(t8,'ftw_difup(blow_ocn)',t27,1pe11.4,
69  1 t40,'ftw_difup(above_ocn)',t64,1pe12.4)
70 7665 format(t8,'hem_ref(ocn_trans)',t26,1pe12.4,
71  1 t40,'hem_ref(ocn_refl)',t64,1pe12.4)
72 c***********************************************************************
73  return
74  end
75 c************************************************************************
#define real
Definition: DbAlgOcean.cpp:26
subroutine outsurfsky(oradsky)
Definition: outsurfsky.f:2
#define pi
Definition: vincenty.c:23
subroutine headr(iprn)
Definition: headr.f:2