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
focn_below.f
Go to the documentation of this file.
1
subroutine
focn_below
2
c
3
c compute the water leaving radiance due to uniform illumination
4
c from below aflat ocean surface
5
c
6
c**********************************************************************
7
c
8
c include the common blocks
9
c
10
implicit real*8
(a-h,o-z)
11
include
'afrt_rt2.cmn'
12
c
13
c**********************************************************************
14
c compute the upwelling radiance just below the
15
c ocean surface due to uniform illumination (f=1)
16
c
17
radu=1.0d0/
pi
18
c compute the radiance just above the ocean surface
19
do
i=1,nx-1
20
ii=nmum1-i+1
21
do
j=1,jpart
22
radxi(ii,j)=((1.0d0-rfwat(i))*radu)/(xrw**2+xiw*2)
23
radxi(i,j)=0.0d0
24
enddo
25
enddo
26
c
27
c initialize the buffers
28
do
i=1,nmum1
29
do
j=1,jpart
30
do
k=1,4
31
fio
(k,i,j)=0.0d0
32
enddo
33
enddo
34
enddo
35
c
36
c initialize unit 55
37
c
38
do
il=1,nolyr+1
39
write
(55,rec=il)
fio
40
enddo
41
c
42
if
(iref.eq.1 .and. itrans.eq.1)
then
43
do
i=nx,nmum1
44
do
j=1,jpart
45
do
k=1,2
46
fio
(k,i,j)=0.5d0*radxi(i,j)
47
fio
(k+2,i,j)=0.0d0
48
enddo
49
enddo
50
enddo
51
write
(55,rec=nolyr+1)
fio
52
endif
53
c
54
return
55
end
56
c**********************************************************************
focn_below
subroutine focn_below
Definition:
focn_below.f:2
pi
#define pi
Definition:
vincenty.c:23
fio
Definition:
RsViirs.h:71
