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
hdrmds.f
Go to the documentation of this file.
1
subroutine
hdrmds
(nthe01,nthe02)
2
c
3
c write the header record on the output file
4
c
5
c**********************************************************************
6
c
7
c include the common blocks
8
c
9
include
'common_all.cmn'
10
c
11
c**********************************************************************
12
c
13
nthe0=nthe02-nthe01+1
14
bfr1(35)=float(nthe0)
15
bfr1(36)=float(jjjj)
16
bfr1(37)=float(jpart)
17
bfr1(38)=float(nthe01)
18
bfr1(39)=float(nthe02)
19
nd=100
20
do
i=1,jjjj
21
bfr1(nd+i)=the(i)
22
enddo
23
c
24
ndp=nd+jjjj
25
do
j=1,jpart
26
bfr1(ndp+j)=float(jphi(j))
27
enddo
28
ndpj=ndp+jpart
29
if
(icrft.eq.1)
then
30
bfr1(ndpj+1)=taucrft
31
bfr1(ndpj+2)=hcrft
32
endif
33
c
34
do
i=1,1915
35
ebfr1(i)=bfr1(i)
36
enddo
37
c
38
write
(24,rec=1)ebfr1
39
c write(24)(bfr1(i),i=1,1915)
40
c
41
return
42
end
43
c***********************************************************************
hdrmds
subroutine hdrmds(nthe01, nthe02, ebfr1)
Definition:
hdrmds.f:2
