/[MITgcm]/MITgcm/pkg/ecco/ecco_summary.F
ViewVC logotype

Contents of /MITgcm/pkg/ecco/ecco_summary.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.2 - (show annotations) (download)
Thu Nov 6 22:10:08 2003 UTC (20 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57o_post, checkpoint52l_pre, checkpoint52e_pre, hrcube4, checkpoint52n_post, checkpoint52j_post, checkpoint53d_post, checkpoint54a_pre, checkpoint57m_post, checkpoint55c_post, checkpoint54e_post, checkpoint52e_post, checkpoint54a_post, checkpoint53c_post, checkpoint57k_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, hrcube_1, checkpoint57e_post, branch-netcdf, checkpoint52d_pre, checkpoint52l_post, checkpoint55h_post, checkpoint52k_post, checkpoint52b_pre, checkpoint57g_pre, checkpoint54b_post, checkpoint53b_pre, checkpoint55b_post, checkpoint54d_post, checkpoint56c_post, checkpoint52m_post, checkpoint55, checkpoint53a_post, checkpoint57f_pre, checkpoint57a_post, checkpoint54, checkpoint54f_post, checkpoint53b_post, checkpoint55g_post, checkpoint52a_pre, checkpoint55f_post, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, checkpoint53, checkpoint52, checkpoint52d_post, eckpoint57e_pre, checkpoint52a_post, checkpoint57h_done, checkpoint52b_post, checkpoint53g_post, checkpoint52f_post, checkpoint57n_post, checkpoint52c_post, checkpoint57p_post, checkpoint57f_post, ecco_c52_e35, hrcube5, checkpoint57c_post, checkpoint55e_post, checkpoint52i_post, checkpoint52j_pre, checkpoint53f_post, checkpoint55a_post, checkpoint53d_pre, checkpoint54c_post, checkpoint57j_post, checkpoint57h_pre, checkpoint57l_post, checkpoint52i_pre, checkpoint51u_post, checkpoint52h_pre, checkpoint52f_pre, checkpoint57h_post, hrcube_2, hrcube_3, checkpoint56a_post, checkpoint55d_post
Branch point for: netcdf-sm0
Changes since 1.1: +745 -0 lines 
o merging from ecco-branch
o pkg/ecco now containes ecco-specific part of cost function
o top level routines the_main_loop, forward_step
  supersede those in model/src/
  previous input data.cost now in data.ecco
  (new namelist ecco_cost_nml)
1 C $Header: /u/gcmpack/MITgcm/pkg/ecco/Attic/ecco_summary.F,v 1.1.2.2 2002/04/04 11:00:03 heimbach Exp $
2
3 #include "CPP_OPTIONS.h"
4
5
6 subroutine ecco_Summary(
7 I mythid
8 & )
9
10 c ==================================================================
11 c SUBROUTINE ecco_Summary
12 c ==================================================================
13 c
14 c o Summarize the setup of the ECCO release.
15 c
16 c started: Christian Eckert eckert@mit.edu 29-Feb-1999
17 c
18 c - Introduced to create a package for the MITgcmUV.
19 c
20 c changed: Christian Eckert eckert@mit.edu
21 c
22 c ==================================================================
23 c SUBROUTINE ecco_Summary
24 c ==================================================================
25
26 implicit none
27
28 c == global variables ==
29
30 #include "EEPARAMS.h"
31 #include "ecco.h"
32 #include "cal.h"
33 #include "exf.h"
34
35 #ifdef ALLOW_ECCO_OPTIMIZATION
36 #include "optim.h"
37 #endif
38
39 c == routine arguments ==
40
41 c integer mythid - thread number for this instance of the routine.
42 integer mythid
43
44 c == local variables ==
45
46 character*(max_len_mbuf) msgbuf
47
48 c == external ==
49
50 c == end of interface ==
51
52 write(msgbuf,'(a)')
53 &' '
54 call print_message( msgbuf, standardmessageunit,
55 & SQUEEZE_RIGHT , mythid)
56 write(msgbuf,'(a)')
57 &'// ======================================================='
58 call print_message( msgbuf, standardmessageunit,
59 & SQUEEZE_RIGHT , mythid)
60 write(msgbuf,'(a)')
61 &'// ECCO configuration >>> START <<<'
62 call print_message( msgbuf, standardmessageunit,
63 & SQUEEZE_RIGHT , mythid)
64 write(msgbuf,'(a)')
65 &'// ======================================================='
66 call print_message( msgbuf, standardmessageunit,
67 & SQUEEZE_RIGHT , mythid)
68 write(msgbuf,'(a)')
69 &' '
70 call print_message( msgbuf, standardmessageunit,
71 & SQUEEZE_RIGHT , mythid)
72 write(msgbuf,'(a,a)')
73 &'ECCO version: ',eccoversion
74 call print_message( msgbuf, standardmessageunit,
75 & SQUEEZE_RIGHT , mythid)
76 write(msgbuf,'(a)')
77 &' '
78 call print_message( msgbuf, standardmessageunit,
79 & SQUEEZE_RIGHT , mythid)
80 write(msgbuf,'(a)')
81 &'Packages used: '
82 call print_message( msgbuf, standardmessageunit,
83 & SQUEEZE_RIGHT , mythid)
84 write(msgbuf,'(a,a)')
85 &'Calendar version: ',eccoUsesCalVersion
86 call print_message( msgbuf, standardmessageunit,
87 & SQUEEZE_RIGHT , mythid)
88 write(msgbuf,'(a,a)')
89 &'External Forcing version: ',eccoUsesExfVersion
90 call print_message( msgbuf, standardmessageunit,
91 & SQUEEZE_RIGHT , mythid)
92 write(msgbuf,'(a,a)')
93 &'Adjoint support version: ',eccoUsesAdsuppVersion
94 call print_message( msgbuf, standardmessageunit,
95 & SQUEEZE_RIGHT , mythid)
96 write(msgbuf,'(a,a)')
97 &'Optimization version: ',eccoUsesOptimVersion
98 call print_message( msgbuf, standardmessageunit,
99 & SQUEEZE_RIGHT , mythid)
100 write(msgbuf,'(a)')
101 &' '
102 call print_message( msgbuf, standardmessageunit,
103 & SQUEEZE_RIGHT , mythid)
104
105 c-- For each CPP option state if it is enabled or disabled.
106 c-- =======================================================
107
108 #ifdef ALLOW_ECCO_FORWARD_RUN
109 write(msgbuf,'(a)')
110 &'// ALLOW_ECCO_FORWARD_RUN: defined'
111 call print_message( msgbuf, standardmessageunit,
112 & SQUEEZE_RIGHT , mythid)
113 #else
114 write(msgbuf,'(a)')
115 &'// ALLOW_ECCO_FORWARD_RUN: NOT defined'
116 call print_message( msgbuf, standardmessageunit,
117 & SQUEEZE_RIGHT , mythid)
118 #endif
119
120 #ifdef ALLOW_ECCO_DIAGNOSTIC_RUN
121 write(msgbuf,'(a)')
122 &'// ALLOW_ECCO_DIAGNOSTIC_RUN: defined'
123 call print_message( msgbuf, standardmessageunit,
124 & SQUEEZE_RIGHT , mythid)
125 #else
126 write(msgbuf,'(a)')
127 &'// ALLOW_ECCO_DIAGNOSTIC_RUN: NOT defined'
128 call print_message( msgbuf, standardmessageunit,
129 & SQUEEZE_RIGHT , mythid)
130 #endif
131
132 #ifdef ALLOW_ADJOINT_RUN
133 write(msgbuf,'(a)')
134 &'// ALLOW_ADJOINT_RUN: defined'
135 call print_message( msgbuf, standardmessageunit,
136 & SQUEEZE_RIGHT , mythid)
137 #else
138 write(msgbuf,'(a)')
139 &'// ALLOW_ADJOINT_RUN: NOT defined'
140 call print_message( msgbuf, standardmessageunit,
141 & SQUEEZE_RIGHT , mythid)
142 #endif
143
144 #ifdef ALLOW_GRADIENT_CHECK
145 write(msgbuf,'(a)')
146 &'// ALLOW_GRADIENT_CHECK: defined'
147 call print_message( msgbuf, standardmessageunit,
148 & SQUEEZE_RIGHT , mythid)
149 #else
150 write(msgbuf,'(a)')
151 &'// ALLOW_GRADIENT_CHECK: NOT defined'
152 call print_message( msgbuf, standardmessageunit,
153 & SQUEEZE_RIGHT , mythid)
154 #endif
155
156 #ifdef ALLOW_ECCO_OPTIMIZATION
157 write(msgbuf,'(a)')
158 &'// ALLOW_ECCO_OPTIMIZATION: defined'
159 call print_message( msgbuf, standardmessageunit,
160 & SQUEEZE_RIGHT , mythid)
161 #else
162 write(msgbuf,'(a)')
163 &'// ALLOW_ECCO_OPTIMIZATION: NOT defined'
164 call print_message( msgbuf, standardmessageunit,
165 & SQUEEZE_RIGHT , mythid)
166 #endif
167
168 #ifdef ALLOW_NO_DYNAMICS
169 c-- Just do a "dry" run ( useful for testing ).
170 write(msgbuf,'(a)')
171 &'// ALLOW_NO_DYNAMICS: defined'
172 call print_message( msgbuf, standardmessageunit,
173 & SQUEEZE_RIGHT , mythid)
174 #else
175 write(msgbuf,'(a)')
176 &'// ALLOW_NO_DYNAMICS: NOT defined'
177 call print_message( msgbuf, standardmessageunit,
178 & SQUEEZE_RIGHT , mythid)
179 #endif
180
181
182 #ifdef ALLOW_YMDS_TREE
183 c-- Use the Yearly-Monthly-Daily-Stepping call tree.
184 write(msgbuf,'(a)')
185 &'// ALLOW_YMDS_TREE: defined'
186 call print_message( msgbuf, standardmessageunit,
187 & SQUEEZE_RIGHT , mythid)
188 #else
189 write(msgbuf,'(a)')
190 &'// ALLOW_YMDS_TREE: NOT defined'
191 call print_message( msgbuf, standardmessageunit,
192 & SQUEEZE_RIGHT , mythid)
193 #endif
194
195 #ifdef ALLOW_STEPPING_CALL
196 c-- Do not call stepping.
197 write(msgbuf,'(a)')
198 &'// ALLOW_STEPPING_CALL: defined'
199 call print_message( msgbuf, standardmessageunit,
200 & SQUEEZE_RIGHT , mythid)
201 #else
202 write(msgbuf,'(a)')
203 &'// ALLOW_STEPPING_CALL: NOT defined'
204 call print_message( msgbuf, standardmessageunit,
205 & SQUEEZE_RIGHT , mythid)
206 #endif
207
208 #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO
209 c-- Use non-dimensional vector of controls as input.
210 write(msgbuf,'(a)')
211 &'// ALLOW_NONDIMENSIONAL_CONTROL_IO: defined'
212 call print_message( msgbuf, standardmessageunit,
213 & SQUEEZE_RIGHT , mythid)
214 #else
215 write(msgbuf,'(a)')
216 &'// ALLOW_NONDIMENSIONAL_CONTROL_IO: NOT defined'
217 call print_message( msgbuf, standardmessageunit,
218 & SQUEEZE_RIGHT , mythid)
219 #endif
220
221 #ifdef ALLOW_EGM96_ERROR_COV
222 c-- Read the EGM error covariance from file.
223 write(msgbuf,'(a)')
224 &'// ALLOW_EGM96_ERROR_COV: defined'
225 call print_message( msgbuf, standardmessageunit,
226 & SQUEEZE_RIGHT , mythid)
227 #else
228 write(msgbuf,'(a)')
229 &'// ALLOW_EGM96_ERROR_COV: NOT defined'
230 call print_message( msgbuf, standardmessageunit,
231 & SQUEEZE_RIGHT , mythid)
232 #endif
233
234 #ifdef ALLOW_READ_EGM_DATA
235 c-- Read the EGM data from file.
236 write(msgbuf,'(a)')
237 &'// ALLOW_READ_EGM_DATA: defined'
238 call print_message( msgbuf, standardmessageunit,
239 & SQUEEZE_RIGHT , mythid)
240 #else
241 write(msgbuf,'(a)')
242 &'// ALLOW_READ_EGM_DATA: NOT defined'
243 call print_message( msgbuf, standardmessageunit,
244 & SQUEEZE_RIGHT , mythid)
245 #endif
246
247 #ifdef ALLOW_SCAT_COST_CONTRIBUTION
248 c-- Use NSCAT data for getting the weights.
249 write(msgbuf,'(a)')
250 &'// ALLOW_SCAT_COST_CONTRIBUTION: defined'
251 call print_message( msgbuf, standardmessageunit,
252 & SQUEEZE_RIGHT , mythid)
253 #else
254 write(msgbuf,'(a)')
255 &'// ALLOW_SCAT_COST_CONTRIBUTION: NOT defined'
256 call print_message( msgbuf, standardmessageunit,
257 & SQUEEZE_RIGHT , mythid)
258 #endif
259
260 #ifdef ALLOW_HFLUX_COST_CONTRIBUTION
261 c-- Include code to use the heat flux contribution.
262 write(msgbuf,'(a)')
263 &'// ALLOW_HFLUX_COST_CONTRIBUTION: defined'
264 call print_message( msgbuf, standardmessageunit,
265 & SQUEEZE_RIGHT , mythid)
266 #else
267 write(msgbuf,'(a)')
268 &'// ALLOW_HFLUX_COST_CONTRIBUTION: NOT defined'
269 call print_message( msgbuf, standardmessageunit,
270 & SQUEEZE_RIGHT , mythid)
271 #endif
272
273 #ifdef ALLOW_SFLUX_COST_CONTRIBUTION
274 c-- Include code to use the salt flux contribution.
275 write(msgbuf,'(a)')
276 &'// ALLOW_SFLUX_COST_CONTRIBUTION: defined'
277 call print_message( msgbuf, standardmessageunit,
278 & SQUEEZE_RIGHT , mythid)
279 #else
280 write(msgbuf,'(a)')
281 &'// ALLOW_SFLUX_COST_CONTRIBUTION: NOT defined'
282 call print_message( msgbuf, standardmessageunit,
283 & SQUEEZE_RIGHT , mythid)
284 #endif
285
286 #ifdef ALLOW_USTRESS_COST_CONTRIBUTION
287 c-- Include code to use the zonal wind stress contribution.
288 write(msgbuf,'(a)')
289 &'// ALLOW_USTRESS_COST_CONTRIBUTION: defined'
290 call print_message( msgbuf, standardmessageunit,
291 & SQUEEZE_RIGHT , mythid)
292 #else
293 write(msgbuf,'(a)')
294 &'// ALLOW_USTRESS_COST_CONTRIBUTION: NOT defined'
295 call print_message( msgbuf, standardmessageunit,
296 & SQUEEZE_RIGHT , mythid)
297 #endif
298
299 #ifdef ALLOW_VSTRESS_COST_CONTRIBUTION
300 c-- Include code to use the meridional wind stress contribution.
301 write(msgbuf,'(a)')
302 &'// ALLOW_VSTRESS_COST_CONTRIBUTION: defined'
303 call print_message( msgbuf, standardmessageunit,
304 & SQUEEZE_RIGHT , mythid)
305 #else
306 write(msgbuf,'(a)')
307 &'// ALLOW_VSTRESS_COST_CONTRIBUTION: NOT defined'
308 call print_message( msgbuf, standardmessageunit,
309 & SQUEEZE_RIGHT , mythid)
310 #endif
311
312 #ifdef ALLOW_THETA_COST_CONTRIBUTION
313 c-- Enable testing of the 3d temperature field contribution
314 c-- to the cost function.
315 write(msgbuf,'(a)')
316 &'// ALLOW_THETA_COST_CONTRIBUTION: defined'
317 call print_message( msgbuf, standardmessageunit,
318 & SQUEEZE_RIGHT , mythid)
319 #else
320 write(msgbuf,'(a)')
321 &'// ALLOW_THETA_COST_CONTRIBUTION: NOT defined'
322 call print_message( msgbuf, standardmessageunit,
323 & SQUEEZE_RIGHT , mythid)
324 #endif
325
326 #ifdef ALLOW_SST_COST_CONTRIBUTION
327 c-- Enable testing of the sea surface temperature contribution
328 c-- to the cost function.
329 write(msgbuf,'(a)')
330 &'// ALLOW_SST_COST_CONTRIBUTION: defined'
331 call print_message( msgbuf, standardmessageunit,
332 & SQUEEZE_RIGHT , mythid)
333 #else
334 write(msgbuf,'(a)')
335 &'// ALLOW_SST_COST_CONTRIBUTION: NOT defined'
336 call print_message( msgbuf, standardmessageunit,
337 & SQUEEZE_RIGHT , mythid)
338 #endif
339
340 #ifdef ALLOW_SALT_COST_CONTRIBUTION
341 c-- Enable testing of the 3d salinity field contribution
342 c-- to the cost function.
343 write(msgbuf,'(a)')
344 &'// ALLOW_SALT_COST_CONTRIBUTION: defined'
345 call print_message( msgbuf, standardmessageunit,
346 & SQUEEZE_RIGHT , mythid)
347 #else
348 write(msgbuf,'(a)')
349 &'// ALLOW_SALT_COST_CONTRIBUTION: NOT defined'
350 call print_message( msgbuf, standardmessageunit,
351 & SQUEEZE_RIGHT , mythid)
352 #endif
353
354 #ifdef ALLOW_SSH_COST_CONTRIBUTION
355 c-- Enable testing of the sea surface height contribution
356 c-- to the cost function.
357 write(msgbuf,'(a)')
358 &'// ALLOW_SSH_COST_CONTRIBUTION: defined'
359 call print_message( msgbuf, standardmessageunit,
360 & SQUEEZE_RIGHT , mythid)
361 #else
362 write(msgbuf,'(a)')
363 &'// ALLOW_SSH_COST_CONTRIBUTION: NOT defined'
364 call print_message( msgbuf, standardmessageunit,
365 & SQUEEZE_RIGHT , mythid)
366 #endif
367
368 #ifdef APPLY_HFLUX_COST_CONTRIBUTION
369 c-- Enable testing of the heat flux contribution to the
370 c-- cost function.
371 write(msgbuf,'(a)')
372 &'// APPLY_HFLUX_COST_CONTRIBUTION: defined'
373 call print_message( msgbuf, standardmessageunit,
374 & SQUEEZE_RIGHT , mythid)
375 #else
376 write(msgbuf,'(a)')
377 &'// APPLY_HFLUX_COST_CONTRIBUTION: NOT defined'
378 call print_message( msgbuf, standardmessageunit,
379 & SQUEEZE_RIGHT , mythid)
380 #endif
381
382 #ifdef APPLY_SFLUX_COST_CONTRIBUTION
383 c-- Enable testing of the salt flux contribution to the
384 c-- cost function.
385 write(msgbuf,'(a)')
386 &'// APPLY_SFLUX_COST_CONTRIBUTION: defined'
387 call print_message( msgbuf, standardmessageunit,
388 & SQUEEZE_RIGHT , mythid)
389 #else
390 write(msgbuf,'(a)')
391 &'// APPLY_SFLUX_COST_CONTRIBUTION: NOT defined'
392 call print_message( msgbuf, standardmessageunit,
393 & SQUEEZE_RIGHT , mythid)
394 #endif
395
396 #ifdef APPLY_USTRESS_COST_CONTRIBUTION
397 c-- Enable testing of the zonal wind stress contribution
398 c-- to the cost function.
399 write(msgbuf,'(a)')
400 &'// APPLY_USTRESS_COST_CONTRIBUTION: defined'
401 call print_message( msgbuf, standardmessageunit,
402 & SQUEEZE_RIGHT , mythid)
403 #else
404 write(msgbuf,'(a)')
405 &'// APPLY_USTRESS_COST_CONTRIBUTION: NOT defined'
406 call print_message( msgbuf, standardmessageunit,
407 & SQUEEZE_RIGHT , mythid)
408 #endif
409
410 #ifdef APPLY_VSTRESS_COST_CONTRIBUTION
411 c-- Enable testing of the meridional wind stress contribution
412 c-- to the cost function.
413 write(msgbuf,'(a)')
414 &'// APPLY_VSTRESS_COST_CONTRIBUTION: defined'
415 call print_message( msgbuf, standardmessageunit,
416 & SQUEEZE_RIGHT , mythid)
417 #else
418 write(msgbuf,'(a)')
419 &'// APPLY_VSTRESS_COST_CONTRIBUTION: NOT defined'
420 call print_message( msgbuf, standardmessageunit,
421 & SQUEEZE_RIGHT , mythid)
422 #endif
423
424 #ifdef APPLY_THETA_COST_CONTRIBUTION
425 c-- Enable testing of the initial state temperature contribution
426 c-- to the cost function.
427 write(msgbuf,'(a)')
428 &'// APPLY_THETA_COST_CONTRIBUTION: defined'
429 call print_message( msgbuf, standardmessageunit,
430 & SQUEEZE_RIGHT , mythid)
431 #else
432 write(msgbuf,'(a)')
433 &'// APPLY_THETA_COST_CONTRIBUTION: NOT defined'
434 call print_message( msgbuf, standardmessageunit,
435 & SQUEEZE_RIGHT , mythid)
436 #endif
437
438 #ifdef APPLY_SALT_COST_CONTRIBUTION
439 c-- Enable testing of the initial state salinity contribution
440 c-- to the cost function.
441 write(msgbuf,'(a)')
442 &'// APPLY_SALT_COST_CONTRIBUTION: defined'
443 call print_message( msgbuf, standardmessageunit,
444 & SQUEEZE_RIGHT , mythid)
445 #else
446 write(msgbuf,'(a)')
447 &'// APPLY_SALT_COST_CONTRIBUTION: NOT defined'
448 call print_message( msgbuf, standardmessageunit,
449 & SQUEEZE_RIGHT , mythid)
450 #endif
451
452 #ifdef APPLY_SST_COST_CONTRIBUTION
453 c-- Enable testing of the sea surface temperature contribution
454 c-- to the cost function.
455 write(msgbuf,'(a)')
456 &'// APPLY_SST_COST_CONTRIBUTION: defined'
457 call print_message( msgbuf, standardmessageunit,
458 & SQUEEZE_RIGHT , mythid)
459 #else
460 write(msgbuf,'(a)')
461 &'// APPLY_SST_COST_CONTRIBUTION: NOT defined'
462 call print_message( msgbuf, standardmessageunit,
463 & SQUEEZE_RIGHT , mythid)
464 #endif
465
466 #ifdef APPLY_SSH_COST_CONTRIBUTION
467 c-- Enable testing of the sea surface height contribution
468 c-- to the cost function.
469 write(msgbuf,'(a)')
470 &'// APPLY_SSH_COST_CONTRIBUTION: defined'
471 call print_message( msgbuf, standardmessageunit,
472 & SQUEEZE_RIGHT , mythid)
473 #else
474 write(msgbuf,'(a)')
475 &'// APPLY_SSH_COST_CONTRIBUTION: NOT defined'
476 call print_message( msgbuf, standardmessageunit,
477 & SQUEEZE_RIGHT , mythid)
478 #endif
479
480 #ifdef ALLOW_SPH_PROJECTION
481 c-- Use projection onto spherical harmonics for the evaluation of
482 c-- the cost function contribution of the mean sea surface elevation.
483 write(msgbuf,'(a)')
484 &'// ALLOW_SPH_PROJECTION: defined'
485 call print_message( msgbuf, standardmessageunit,
486 & SQUEEZE_RIGHT , mythid)
487 #else
488 write(msgbuf,'(a)')
489 &'// ALLOW_SPH_PROJECTION: NOT defined'
490 call print_message( msgbuf, standardmessageunit,
491 & SQUEEZE_RIGHT , mythid)
492 #endif
493
494 #ifdef ALLOW_THETA0_CONTROL
495 c-- Initial state temperature used as part of the control vector.
496 write(msgbuf,'(a)')
497 &'// ALLOW_THETA0_CONTROL: defined'
498 call print_message( msgbuf, standardmessageunit,
499 & SQUEEZE_RIGHT , mythid)
500 #else
501 write(msgbuf,'(a)')
502 &'// ALLOW_THETA0_CONTROL: NOT defined'
503 call print_message( msgbuf, standardmessageunit,
504 & SQUEEZE_RIGHT , mythid)
505 #endif
506
507 #ifdef ALLOW_SALT0_CONTROL
508 c-- Initial state salinity used as part of the control vector.
509 write(msgbuf,'(a)')
510 &'// ALLOW_SALT0_CONTROL: defined'
511 call print_message( msgbuf, standardmessageunit,
512 & SQUEEZE_RIGHT , mythid)
513 #else
514 write(msgbuf,'(a)')
515 &'// ALLOW_SALT0_CONTROL: NOT defined'
516 call print_message( msgbuf, standardmessageunit,
517 & SQUEEZE_RIGHT , mythid)
518 #endif
519
520 #ifdef ALLOW_HFLUX_CONTROL
521 c-- Surface heat flux used as part of the control vector.
522 write(msgbuf,'(a)')
523 &'// ALLOW_HFLUX_CONTROL: defined'
524 call print_message( msgbuf, standardmessageunit,
525 & SQUEEZE_RIGHT , mythid)
526 #else
527 write(msgbuf,'(a)')
528 &'// ALLOW_HFLUX_CONTROL: NOT defined'
529 call print_message( msgbuf, standardmessageunit,
530 & SQUEEZE_RIGHT , mythid)
531 #endif
532
533 #ifdef ALLOW_SFLUX_CONTROL
534 c-- Short wave radiative flux used as part of the control vector.
535 write(msgbuf,'(a)')
536 &'// ALLOW_SFLUX_CONTROL: defined'
537 call print_message( msgbuf, standardmessageunit,
538 & SQUEEZE_RIGHT , mythid)
539 #else
540 write(msgbuf,'(a)')
541 &'// ALLOW_SFLUX_CONTROL: NOT defined'
542 call print_message( msgbuf, standardmessageunit,
543 & SQUEEZE_RIGHT , mythid)
544 #endif
545
546 #ifdef ALLOW_USTRESS_CONTROL
547 c-- Zonal wind stress used as part of the control vector.
548 write(msgbuf,'(a)')
549 &'// ALLOW_USTRESS_CONTROL: defined'
550 call print_message( msgbuf, standardmessageunit,
551 & SQUEEZE_RIGHT , mythid)
552 #else
553 write(msgbuf,'(a)')
554 &'// ALLOW_USTRESS_CONTROL: NOT defined'
555 call print_message( msgbuf, standardmessageunit,
556 & SQUEEZE_RIGHT , mythid)
557 #endif
558
559 #ifdef ALLOW_VSTRESS_CONTROL
560 c-- Meridional wind stress used as part of the control vector.
561 write(msgbuf,'(a)')
562 &'// ALLOW_VSTRESS_CONTROL: defined'
563 call print_message( msgbuf, standardmessageunit,
564 & SQUEEZE_RIGHT , mythid)
565 #else
566 write(msgbuf,'(a)')
567 &'// ALLOW_VSTRESS_CONTROL: NOT defined'
568 call print_message( msgbuf, standardmessageunit,
569 & SQUEEZE_RIGHT , mythid)
570 #endif
571
572 #ifdef ALLOW_SWFLUX_CONTROL
573 c-- Short wave radiative flux used as part of the control vector.
574 write(msgbuf,'(a)')
575 &'// ALLOW_SWFLUX_CONTROL: defined'
576 call print_message( msgbuf, standardmessageunit,
577 & SQUEEZE_RIGHT , mythid)
578 #else
579 write(msgbuf,'(a)')
580 &'// ALLOW_SWFLUX_CONTROL: NOT defined'
581 call print_message( msgbuf, standardmessageunit,
582 & SQUEEZE_RIGHT , mythid)
583 #endif
584
585 #ifdef ALLOW_LWFLUX_CONTROL
586 c-- Long wave radiative flux used as part of the control vector.
587 write(msgbuf,'(a)')
588 &'// ALLOW_LWFLUX_CONTROL: defined'
589 call print_message( msgbuf, standardmessageunit,
590 & SQUEEZE_RIGHT , mythid)
591 #else
592 write(msgbuf,'(a)')
593 &'// ALLOW_LWFLUX_CONTROL: NOT defined'
594 call print_message( msgbuf, standardmessageunit,
595 & SQUEEZE_RIGHT , mythid)
596 #endif
597
598 #ifdef ALLOW_ATEMP_CONTROL
599 c-- Atmospheric Temperature used as part of the control vector.
600 write(msgbuf,'(a)')
601 &'// ALLOW_ATEMP_CONTROL: defined'
602 call print_message( msgbuf, standardmessageunit,
603 & SQUEEZE_RIGHT , mythid)
604 #else
605 write(msgbuf,'(a)')
606 &'// ALLOW_ATEMP_CONTROL: NOT defined'
607 call print_message( msgbuf, standardmessageunit,
608 & SQUEEZE_RIGHT , mythid)
609 #endif
610
611 #ifdef ALLOW_AQH_CONTROL
612 c-- Specific humidity used as part of the control vector.
613 write(msgbuf,'(a)')
614 &'// ALLOW_AQH_CONTROL: defined'
615 call print_message( msgbuf, standardmessageunit,
616 & SQUEEZE_RIGHT , mythid)
617 #else
618 write(msgbuf,'(a)')
619 &'// ALLOW_AQH_CONTROL: NOT defined'
620 call print_message( msgbuf, standardmessageunit,
621 & SQUEEZE_RIGHT , mythid)
622 #endif
623
624 #ifdef ALLOW_UWIND_CONTROL
625 c-- Zonal winds used as part of the control vector.
626 write(msgbuf,'(a)')
627 &'// ALLOW_UWIND_CONTROL: defined'
628 call print_message( msgbuf, standardmessageunit,
629 & SQUEEZE_RIGHT , mythid)
630 #else
631 write(msgbuf,'(a)')
632 &'// ALLOW_UWIND_CONTROL: NOT defined'
633 call print_message( msgbuf, standardmessageunit,
634 & SQUEEZE_RIGHT , mythid)
635 #endif
636
637 #ifdef ALLOW_VWIND_CONTROL
638 c-- Meridional winds used as part of the control vector.
639 write(msgbuf,'(a)')
640 &'// ALLOW_VWIND_CONTROL: defined'
641 call print_message( msgbuf, standardmessageunit,
642 & SQUEEZE_RIGHT , mythid)
643 #else
644 write(msgbuf,'(a)')
645 &'// ALLOW_VWIND_CONTROL: NOT defined'
646 call print_message( msgbuf, standardmessageunit,
647 & SQUEEZE_RIGHT , mythid)
648 #endif
649
650 #ifdef ALLOW_PRECIP_CONTROL
651 c-- Precipitation used as part of the control vector.
652 write(msgbuf,'(a)')
653 &'// ALLOW_PRECIP_CONTROL: defined'
654 call print_message( msgbuf, standardmessageunit,
655 & SQUEEZE_RIGHT , mythid)
656 #else
657 write(msgbuf,'(a)')
658 &'// ALLOW_PRECIP_CONTROL: NOT defined'
659 call print_message( msgbuf, standardmessageunit,
660 & SQUEEZE_RIGHT , mythid)
661 #endif
662
663 #ifdef ALLOW_AUTODIFF_TAMC
664 c-- Enable automatic differentiation of the ECCO code.
665 write(msgbuf,'(a)')
666 &'// ALLOW_AUTODIFF_TAMC: defined'
667 call print_message( msgbuf, standardmessageunit,
668 & SQUEEZE_RIGHT , mythid)
669 #else
670 write(msgbuf,'(a)')
671 &'// ALLOW_AUTODIFF_TAMC: NOT defined'
672 call print_message( msgbuf, standardmessageunit,
673 & SQUEEZE_RIGHT , mythid)
674 #endif
675
676 #ifdef ALLOW_TAMC_CHECKPOINTING
677 c-- Checkpointing as handled by TAMC.
678 write(msgbuf,'(a)')
679 &'// ALLOW_TAMC_CHECKPOINTING: defined'
680 call print_message( msgbuf, standardmessageunit,
681 & SQUEEZE_RIGHT , mythid)
682 #else
683 write(msgbuf,'(a)')
684 &'// ALLOW_TAMC_CHECKPOINTING: NOT defined'
685 call print_message( msgbuf, standardmessageunit,
686 & SQUEEZE_RIGHT , mythid)
687 #endif
688
689 c-- General summary.
690 write(msgbuf,'(a)')
691 &' '
692 call print_message( msgbuf, standardmessageunit,
693 & SQUEEZE_RIGHT , mythid)
694 write(msgbuf,'(a,2x,a10)')
695 &' Experiment name:',expId
696 call print_message( msgbuf, standardmessageunit,
697 & SQUEEZE_RIGHT , mythid)
698
699 #ifdef ALLOW_AUTODIFF_TAMC
700 c-- Generation of adjoint code.
701 write(msgbuf,'(a)')
702 &' '
703 call print_message( msgbuf, standardmessageunit,
704 & SQUEEZE_RIGHT , mythid)
705 write(msgbuf,'(a)')
706 &' Generation of adjoint code for the ECCO setup is enabled'
707 call print_message( msgbuf, standardmessageunit,
708 & SQUEEZE_RIGHT , mythid)
709 write(msgbuf,'(a)')
710 #else
711 c-- Generation of adjoint code not enabled.
712 write(msgbuf,'(a)')
713 &' '
714 call print_message( msgbuf, standardmessageunit,
715 & SQUEEZE_RIGHT , mythid)
716 write(msgbuf,'(a)')
717 &' Generation of adjoint code for the ECCO setup is not enabled'
718 call print_message( msgbuf, standardmessageunit,
719 & SQUEEZE_RIGHT , mythid)
720 #endif
721
722 write(msgbuf,'(a)')
723 &' '
724 call print_message( msgbuf, standardmessageunit,
725 & SQUEEZE_RIGHT , mythid)
726 write(msgbuf,'(a)')
727 &'// ======================================================='
728 call print_message( msgbuf, standardmessageunit,
729 & SQUEEZE_RIGHT , mythid)
730 write(msgbuf,'(a)')
731 &'// ECCO configuration >>> END <<<'
732 call print_message( msgbuf, standardmessageunit,
733 & SQUEEZE_RIGHT , mythid)
734 write(msgbuf,'(a)')
735 &'// ======================================================='
736 call print_message( msgbuf, standardmessageunit,
737 & SQUEEZE_RIGHT , mythid)
738 write(msgbuf,'(a)')
739 &' '
740 call print_message( msgbuf, standardmessageunit,
741 & SQUEEZE_RIGHT , mythid)
742
743 return
744 end
745
  ViewVC Help
Powered by ViewVC 1.1.22