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
glint_corr.f
Go to the documentation of this file.
1
subroutine
glint_corr
2
c removes the direct beam from the buffer fio
3
c***********************************************************************
4
implicit real*8
(a-h,o-z)
5
include
'common_all.cmn'
6
c***********************************************************************
7
c
8
do
i=jjj,nmum1
9
c write(6,*)'Before'
10
c call radnce(pi,conv,bmu,the,fio,i,jpart,jphi)
11
do
j=1,jpart
12
do
k=1,4
13
abcz=dexp(-tautot/dabs(bmu(i)))
14
fio
(k,i,j)=
fio
(k,i,j)-fglint(k,i,j)*abcz
15
enddo
16
enddo
17
c write(6,*)'After'
18
c call radnce(pi,conv,bmu,the,fio,i,jpart,jphi)
19
enddo
20
c
21
return
22
end
23
c***********************************************************************
glint_corr
subroutine glint_corr
Definition:
glint_corr.f:2
fio
Definition:
RsViirs.h:71
