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
actfgrc.f
Go to the documentation of this file.
1
subroutine
actfgrc
2
c
3
c apply geometric correction to the actinic flux values
4
c stored in buffers: acflvl1 and acflvl2
5
c
6
c**********************************************************************
7
c
8
implicit real*8
(a-h,o-z)
9
include
'common_all.cmn'
10
c
11
c**********************************************************************
12
c
13
m1=jpass-2
14
m2=jpass-1
15
m3=jpass
16
c
17
if
(kzz.eq.1)
then
18
do
i=1,nolyrp
19
call
geom(acflvl1(m1,i),acflvl1(m2,i),acflvl1(m3,i),
20
1 crr1,acfg1(ksza,i))
21
c write(*,120)kzz,i,acflvl1(m1,i),acflvl1(m2,i),acflvl1(m3,i),
22
c 1 crr1,acfg1(ksza,i)
23
120
format
(2i3,1x,1p5e11.3)
24
c turn off the geometric correction
25
c acfg1(ksza,i)=acflvl1(m3,i)
26
enddo
27
endif
28
if
(kzz.eq.2)
then
29
do
i=1,nolyrp
30
call
geom(acflvl2(m1,i),acflvl2(m2,i),acflvl2(m3,i),
31
1 crr2,acfg2(i))
32
c turn off the geometric correction
33
c acfg2(i)=acflvl2(m3,i)
34
enddo
35
endif
36
c
37
c write(*,*)'geo corr. done'
38
c
39
return
40
end
41
c************************************************************************
actfgrc
subroutine actfgrc
Definition:
actfgrc.f:2
