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
oel_hdf4
libnav
cdata.f
Go to the documentation of this file.
1
subroutine
cdata
2
3
c This subroutines initializes several constants for general use in
4
c navigation routines. The constants are passed in the common /gconst/.
5
c
6
c Calling Arguments: None
7
c
8
c Variables in common /gconst/
9
c
10
c Name Type Description
11
c
12
c pi R*8 Pi
13
c radeg R*8 Radians to degrees conversion factor
14
c re R*8 Earth equatorial radius (km)
15
c rem R*8 Earth mean radius (km)
16
c f R*8 Earth flattening factor
17
c omf2 R*8 (1-f)**2
18
c omegae R*8 Earth rotation rate (radians/second)
19
c
20
c
21
c Program written by: Frederick S. Patt
22
c General Sciences Corporation
23
c May 10, 1993
24
c
25
c Modification History:
26
27
real
*8
pi
,radeg,
re
,rem,
f
,
omf2
,omegae
28
common
/gconst/
pi
,radeg,
re
,rem,
f
,
omf2
,omegae
29
30
pi
= dacos(-1.0d0)
31
re
= 6378.137d0
32
rem = 6371.d0
33
radeg = 180.d0/
pi
34
f
= 1.d0/298.257d0
35
omf2
= (1.d0-
f
)**2
36
omegae = 7.29211585494d-5
37
38
return
39
end
f
#define f
Definition:
l1_czcs.c:696
real
#define real
Definition:
DbAlgOcean.cpp:26
cdata
subroutine cdata
Definition:
cdata.f:2
pi
#define pi
Definition:
vincenty.c:23
re
#define re
Definition:
l1_czcs.c:695
omf2
#define omf2
Definition:
l1_czcs.c:697