OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
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***********************************************************************
subroutine flxbtm
Definition: flxbtm.f:2
#define pi
Definition: vincenty.c:23
Definition: RsViirs.h:71