OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
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
#define real
Definition: DbAlgOcean.cpp:26
subroutine cdata
Definition: cdata.f:2
#define re
Definition: l1_czcs_hdf.c:701
#define pi
Definition: vincenty.c:23
#define omf2
Definition: l1_czcs_hdf.c:703
#define f
Definition: l1_czcs_hdf.c:702