Due to the lapse in federal government funding, NASA is not updating this website. We sincerely regret this inconvenience.
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
afrt
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
'afrt_rt2.cmn'
9
c***********************************************************************
10
c compute the downward diffused flux
11
sum = 0.0
12
do
5003 j = 1, nx-1
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,nophi/2
17
4008 psum=psum+2.0d0*
fio
(k,j,i)
18
5003 sum=sum+psum*dcmusq(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
