3
4
5
6
7
8
9
10
11
12
13
14
15
18#ifdef NESTING
20#endif
22
24#ifdef DISTRIBUTE
26#endif
27#ifdef TIDE_GENERATING_FORCES
29#endif
30#ifdef GRID_EXTRACT
32#endif
33#ifndef ANA_GRID
35#endif
36#ifndef ANA_NUDGCOEF
38#endif
40#ifdef NESTING
42#endif
44
45 implicit none
46
47
48
49 integer, intent(in) :: ng, model
50
51
52
53 integer :: tile
54
55 character (len=*), parameter :: MyFile = &
56 & __FILE__
57
58
59
60
61
62
63#ifdef ANA_GRID
66# ifdef MASKING
68# endif
69# if defined AD_SENSITIVITY || defined I4DVAR_ANA_SENSITIVITY || \
70 defined opt_observations || defined so_semi || \
71 defined sensitivity_4dvar
73# endif
74 END DO
75
76#else
77
78# ifdef DISTRIBUTE
80# else
82# endif
83
84# ifdef DISTRIBUTE
86# endif
87
89#endif
90
91#ifdef GRID_EXTRACT
92
93
94
95
96
97
98# ifdef DISTRIBUTE
99 CALL get_extract (ng,
myrank, model)
100# else
101 CALL get_extract (ng, -1, model)
102# endif
103#endif
104
105#ifdef SOLVE3D
106
107
108
109
110
111
113
114
115#endif
116
117#ifdef SOLVE3D
118
119
120
121
122
123
125
126
127#endif
128
129
130
131
132
133
136 END DO
137
138
139#ifdef NESTING
140
141
142
143
144
145
146
148#endif
149
150#if defined WTYPE_GRID && defined ANA_WTYPE && \
151 (defined
lmd_skpp || defined solar_source)
152
153
154
155
156
159 END DO
160
161#endif
162
163#ifndef CORRELATION
164
165
166
167
168
169
170# ifdef ANA_NUDGCOEF
174 END DO
175
176 END IF
177# else
179
180# ifdef DISTRIBUTE
182# else
184# endif
185
186# ifdef DISTRIBUTE
188# endif
189
191 END IF
192# endif
193
194# ifdef TIDE_GENERATING_FORCES
195
196
197
198
199
200
201
202 CALL harmonic_constituents (
lnodal)
203# endif
204#endif
205
206 RETURN
subroutine ana_grid(ng, tile, model)
subroutine lmd_skpp(ng, tile)
subroutine ana_mask(ng, tile, model)
subroutine ana_wtype(ng, tile, model)
subroutine ana_scope(ng, tile, model)
subroutine ana_nudgcoef(ng, tile, model)
subroutine, public get_grid(ng, tile, model)
subroutine, public get_nudgcoef(ng, tile, model)
subroutine, public metrics(ng, tile, model)
integer, dimension(:), allocatable first_tile
integer, dimension(:), allocatable last_tile
logical, dimension(:), allocatable lnudging
subroutine, public nesting(ng, model, isection)
logical function, public founderror(flag, noerr, line, routine)
subroutine set_scoord(ng)
subroutine set_weights(ng)