OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
hdrmds.f
Go to the documentation of this file.
1  subroutine hdrmds(nthe01,nthe02,ebfr1)
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 'afrt_rt2.cmn'
10 c
11 c**********************************************************************
12 c
13  nthe0=nthe02-nthe01+1
14  bfr1(35)=float(nthe0)
15  bfr1(36)=float(nx-1)
16  bfr1(37)=float(jpart)
17  bfr1(38)=float(nthe01)
18  bfr1(39)=float(nthe02)
19  nd=100
20  do i=1,nx-1
21  bfr1(nd+i)=the(i)
22  enddo
23 c
24  ndp=nd+nx-1
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,200
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***********************************************************************
subroutine hdrmds(nthe01, nthe02, ebfr1)
Definition: hdrmds.f:2