1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
c ================================================================== |
5 |
c HEADER SPHERE |
6 |
c ================================================================== |
7 |
c |
8 |
c o Parameters for spherical harmonic analysis of sea surface height |
9 |
c field. |
10 |
c Assumes regular grid with 2 degree meridional spacing! |
11 |
c o TODO: interpolate model grid to regular grid |
12 |
c |
13 |
c started: Ralf Giering Jul-1996 |
14 |
c |
15 |
c changed: Christian Eckert eckert@mit.edu 29-Feb-2000 |
16 |
c |
17 |
c changed: Ralf Giering Ralf.Giering@FastOpt.de 12-Jun-2001 |
18 |
c |
19 |
c ================================================================== |
20 |
c HEADER SPHERE |
21 |
c ================================================================== |
22 |
|
23 |
|
24 |
c Dimensions in spherical harmonic space. |
25 |
c ======================================= |
26 |
c |
27 |
c lshcmax - maximal degree l of spherical harmonics to be |
28 |
c projected on in a spherical harmonic analysis. |
29 |
c ncshc - number of spherical harmonics coefficients correspond- |
30 |
c ing to lshmax. |
31 |
c lonshc - zonal number of grid points of regular grid |
32 |
c latshc - meridional number of grid points of regular grid |
33 |
c dthetashc - zonal grid spacing |
34 |
c dphishc - meridional grid spacing |
35 |
|
36 |
integer lshcmax |
37 |
parameter( lshcmax = 70 ) |
38 |
|
39 |
integer ncshc |
40 |
parameter( ncshc = (lshcmax+1)*(lshcmax+1) ) |
41 |
|
42 |
_RL dthetashc |
43 |
parameter( dthetashc = 2. ) |
44 |
|
45 |
_RL dphishc |
46 |
parameter( dphishc = 2. ) |
47 |
|
48 |
integer lonshc |
49 |
parameter( lonshc = Nx ) |
50 |
|
51 |
integer latshc |
52 |
parameter( latshc = 180.0/dphishc ) |
53 |
|
54 |
c ================================================================== |
55 |
c END OF HEADER SPHERE |
56 |
c ================================================================== |
57 |
|
58 |
|