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
surfgcr.f
Go to the documentation of this file.
1
subroutine
surfgcr
2
c
3
c apply geometric correction to the stokes parameters of the
4
c upwelling diffused radiation leaving the surface
5
c
6
c**********************************************************************
7
c
8
implicit real*8
(a-h,o-z)
9
include
'afrt_rt2.cmn'
10
c
11
c**********************************************************************
12
c
13
m1=jpass-2
14
m2=jpass-1
15
m3=jpass
16
c
17
c apply geo. series correction to the upwelling radiances leaving
18
c bottom surface
19
c
20
read
(72,rec=m3)ftmp
21
read
(72,rec=m2)ftmpa
22
read
(72,rec=m1)ftmpb
23
c
24
do
i=nx,nmum1
25
do
j=1,jpart
26
do
k=1,4
27
if
(ftmp(k,i,j).le.1.0d-15)
then
28
fiosurf(k,i,j)=ftmp(k,i,j)
29
else
30
call
geom(ftmpb(k,i,j),ftmpa(k,i,j),ftmp(k,i,j),
31
1 srftru1,fiosurf(k,i,j))
32
endif
33
enddo
34
enddo
35
enddo
36
c
37
c
38
do
i=nx,nmum1
39
m=nmum1-i+1
40
do
j=1,jpart
41
surfzu(ksza,m,j)=fiosurf(1,i,j)+fiosurf(2,i,j)
42
enddo
43
enddo
44
c
45
return
46
end
47
c
48
c**********************************************************************
surfgcr
subroutine surfgcr
Definition:
surfgcr.f:2
