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
afrt2
grefl.f
Go to the documentation of this file.
1
subroutine
grefl
2
c
3
c compute the stokes parameters for the upwelling radiation just
4
c above the ground/ocean when the atmosphere is illuminated from below
5
c
6
c*************************************************************************
7
c.....includes the common blocks
8
implicit real*8
(a-h,o-z)
9
include
'common_all.cmn'
10
c
11
c**************************************************************************
12
c
13
c write(6,*)'welcome to subroutine grfl'
14
c initialize the buffers
15
c
16
do
i=1,nmum1
17
do
j=1,jpart
18
do
k=1,4
19
fio
(k,i,j)=0.0d0
20
enddo
21
enddo
22
enddo
23
c
24
c initialize unit 55
25
c
26
do
il=1,nolyrp
27
write
(55,rec=il)
fio
28
enddo
29
c
30
if
(iref.eq.0)
then
31
do
i=jjj,nmum1
32
do
j=1,jpart
33
do
k=1,2
34
fio
(k,i,j)=0.5d0/
pi
35
fio
(k+2,i,j)=0.0d0
36
enddo
37
enddo
38
enddo
39
write
(55,rec=nolyrp)
fio
40
endif
41
c
42
if
(iref.eq.1 .or. iref.eq.2 .or. iref.eq.3)
then
43
read
(53,rec=nolyrp)
fio
44
c write(55,rec=nolyrp)fio
45
endif
46
c
47
c
48
c write(6,*)'leaving subroutine grefl'
49
return
50
end
51
c***********************************************************************
grefl
subroutine grefl
Definition:
grefl.f:2
pi
#define pi
Definition:
vincenty.c:23
fio
Definition:
RsViirs.h:71
