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
getrad.f
Go to the documentation of this file.
1
subroutine
getrad
2
c
3
c include the common statements.....................................
4
implicit real*8
(a-h,o-z)
5
include
'common_all.cmn'
6
c
7
c************************************************************************
8
c
9
c get the fluxes & radiances at the top and bottom of the atmosphere
10
c
11
if
(jpass.eq.1)
then
12
jread=53
13
else
14
jread=iwrt
15
endif
16
c
17
c get the radiances at the top and bottom of the atmosphere
18
c
19
read
(jread,rec=nolyrp)
fio
20
call
flxbtm
21
fluxd(jpass,nolyrp)=sumdwn
22
do
i=1,jjjj
23
do
j=1,jpart
24
xint=
fio
(1,i,j)+
fio
(2,i,j)
25
geoidn(jpass,i,j)=xint
26
enddo
27
enddo
28
c
29
read
(jread,rec=1)
fio
30
do
i=jjj,nmum1
31
ij=i-jjjj
32
do
j=1,jpart
33
xint=
fio
(1,i,j)+
fio
(2,i,j)
34
geoiup(jpass,ij,j)=xint
35
enddo
36
enddo
37
call
flxtop
38
fluxu(jpass,1)=sumup
39
c
40
return
41
end
42
c**********************************************************************
flxbtm
subroutine flxbtm
Definition:
flxbtm.f:2
flxtop
subroutine flxtop
Definition:
flxtop.f:2
fio
Definition:
RsViirs.h:71
getrad
subroutine getrad
Definition:
getrad.f:2
