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

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

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

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