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
iniclz2.f
Go to the documentation of this file.
1
subroutine
iniclz2
2
c
3
c the subroutine iniclz2 initialized some additional parameters
4
c used in the second part of the radiative transfer program
5
c
6
c***********************************************************************
7
c.....include the common blocks
8
implicit real*8
(a-h,o-z)
9
include
'afrt_rt2.cmn'
10
c***********************************************************************
11
c
12
do
k=1,2
13
do
i=1,nx-1
14
do
j=1,jpart
15
d1px(k,i,j)=0.0d0
16
d2px(k,i,j)=0.0d0
17
enddo
18
enddo
19
enddo
20
c write(6,*)'leaving iniclz2'
21
return
22
end
23
c***********************************************************************
iniclz2
subroutine iniclz2
Definition:
iniclz2.f:2
