41 |
|
|
42 |
INTEGER nlev ! number of vertical levels |
INTEGER nlev ! number of vertical levels |
43 |
INTEGER i, j, k, l |
INTEGER i, j, k, l |
|
REAL hadley, hadday |
|
44 |
REAL dlat, dlon ! latitude and longitude increments (radians) |
REAL dlat, dlon ! latitude and longitude increments (radians) |
45 |
|
|
46 |
REAL raam(3) ! wind AAM (components 1 & 2: equatorial; component 3: axial) |
REAL raam(3) ! wind AAM (components 1 & 2: equatorial; component 3: axial) |
68 |
stop 1 |
stop 1 |
69 |
endif |
endif |
70 |
|
|
|
hadley = 1e18 |
|
|
hadday = 1e18 * 24. * 3600. |
|
71 |
dlat = pi / jjm |
dlat = pi / jjm |
72 |
dlon = 2 * pi / real(iim) |
dlon = 2 * pi / real(iim) |
73 |
|
|