A sphere with three ocean waves in differing shades of blue. Next to the sphere, there is the bolded text "Ocean Color". Under that, there are two acronyms, separated by a vertical pipe: OB.DAAC (Ocean Biology Distributed Active Archive Center) and OBPG (Ocean Biology Processing Group).
Lorem
ipsum
dolor
sit
amet
Toggle navigation
Ocean Color Science Software
Jump to content
ocssw
V2022
web
ocssw
ocssw_src
src
afrt2
flxbtm.f
Go to the documentation of this file.
1
subroutine
flxbtm
2
c
3
c subroutine flxbtm computes the downward diffused flux at the
4
c base of the atmosphere for rg=0
5
c***********************************************************************
6
c.....include common blocks
7
implicit real*8
(a-h,o-z)
8
include
'common_all.cmn'
9
c***********************************************************************
10
c compute the downward diffused flux
11
sum = 0.0
12
do
5003 j = 1, jjjj
13
psum = 0.0
14
do
4008 k = 1,2
15
psum=
fio
(k,j,1)+
fio
(k,j,jpart)+psum
16
do
4008 i=2,noph2
17
4008 psum=psum+2.0d0*
fio
(k,j,i)
18
5003 sum=sum+psum*dmus2(j)*6.2831854d0/float(nophi)
19
sumdwn=sum
20
sumdpi = sumdwn*
pi
21
factr=eo(1)+eo(2)
22
c write(6,100)factr,sumdwn,sumdpi
23
100
format
(
'factr,sumdwn,sumdpi'
,1p3e12.4)
24
return
25
end
26
c***********************************************************************
flxbtm
subroutine flxbtm
Definition:
flxbtm.f:2
pi
#define pi
Definition:
vincenty.c:23
fio
Definition:
RsViirs.h:71
