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