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

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

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

revision 1.2 by heimbach, Thu Nov 6 22:10:08 2003 UTC revision 1.20 by jmc, Wed Dec 31 20:09:20 2014 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "ECCO_OPTIONS.h"
5    
6          SUBROUTINE ECCO_SUMMARY( mythid )
       subroutine ecco_Summary(  
      I                         mythid  
      &                       )  
7    
8  c     ==================================================================  c     ==================================================================
9  c     SUBROUTINE ecco_Summary  c     SUBROUTINE ecco_summary
10  c     ==================================================================  c     ==================================================================
11  c  c
12  c     o Summarize the setup of the ECCO release.  c     o Summarize the setup of the ECCO release.
13  c  c
14    #ifdef ECCO_CTRL_DEPRECATED
15  c     started: Christian Eckert eckert@mit.edu 29-Feb-1999  c     started: Christian Eckert eckert@mit.edu 29-Feb-1999
16  c  c
17  c              - Introduced to create a package for the MITgcmUV.  c              - Introduced to create a package for the MITgcmUV.
18  c  c
19  c     changed: Christian Eckert eckert@mit.edu  c     changed: Christian Eckert eckert@mit.edu
20    #endif
21  c  c
22  c     ==================================================================  c     ==================================================================
23  c     SUBROUTINE ecco_Summary  c     SUBROUTINE ecco_summary
24  c     ==================================================================  c     ==================================================================
25    
26        implicit none        implicit none
27    
28  c     == global variables ==  c     == global variables ==
   
29  #include "EEPARAMS.h"  #include "EEPARAMS.h"
30    #include "SIZE.h"
31  #include "ecco.h"  #include "ecco.h"
 #include "cal.h"  
 #include "exf.h"  
32    
33  #ifdef ALLOW_ECCO_OPTIMIZATION  #ifdef ALLOW_CTRL
34  #include "optim.h"  # include "optim.h"
35  #endif  #endif
36    
37  c     == routine arguments ==  c     == routine arguments ==
   
38  c     integer mythid - thread number for this instance of the routine.  c     integer mythid - thread number for this instance of the routine.
39        integer mythid        integer mythid
40    
41  c     == local variables ==  c     == local variables ==
   
42        character*(max_len_mbuf) msgbuf        character*(max_len_mbuf) msgbuf
43    #ifdef ALLOW_GENCOST_CONTRIBUTION
44          integer k, k2, il, msgunit
45    #endif
46    
47  c     == external ==  c     == external ==
48          integer  ilnblnk
49          external ilnblnk
50    
51  c     == end of interface ==  c     == end of interface ==
52    
# Line 65  c     == end of interface == Line 66  c     == end of interface ==
66       &'// ======================================================='       &'// ======================================================='
67        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
68       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
69    
70    #ifdef ECCO_CTRL_DEPRECATED
71        write(msgbuf,'(a)')        write(msgbuf,'(a)')
72       &' '       &' '
73        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
# Line 107  c--   ================================== Line 110  c--   ==================================
110    
111  #ifdef ALLOW_ECCO_FORWARD_RUN  #ifdef ALLOW_ECCO_FORWARD_RUN
112        write(msgbuf,'(a)')        write(msgbuf,'(a)')
113       &'// ALLOW_ECCO_FORWARD_RUN:             defined'       &'// ALLOW_ECCO_FORWARD_RUN:               defined'
114        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
115       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
116  #else  #else
117        write(msgbuf,'(a)')        write(msgbuf,'(a)')
118       &'// ALLOW_ECCO_FORWARD_RUN:         NOT defined'       &'// ALLOW_ECCO_FORWARD_RUN:           NOT defined'
119        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
120       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
121  #endif  #endif
122    
123  #ifdef ALLOW_ECCO_DIAGNOSTIC_RUN  #ifdef ALLOW_ECCO_DIAGNOSTIC_RUN
124        write(msgbuf,'(a)')        write(msgbuf,'(a)')
125       &'// ALLOW_ECCO_DIAGNOSTIC_RUN:          defined'       &'// ALLOW_ECCO_DIAGNOSTIC_RUN:            defined'
126        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
127       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
128  #else  #else
129        write(msgbuf,'(a)')        write(msgbuf,'(a)')
130       &'// ALLOW_ECCO_DIAGNOSTIC_RUN:      NOT defined'       &'// ALLOW_ECCO_DIAGNOSTIC_RUN:        NOT defined'
131        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
132       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
133  #endif  #endif
134    
135  #ifdef ALLOW_ADJOINT_RUN  #ifdef ALLOW_ADJOINT_RUN
136        write(msgbuf,'(a)')        write(msgbuf,'(a)')
137       &'// ALLOW_ADJOINT_RUN:             defined'       &'// ALLOW_ADJOINT_RUN:                    defined'
138        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
139       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
140  #else  #else
141        write(msgbuf,'(a)')        write(msgbuf,'(a)')
142       &'// ALLOW_ADJOINT_RUN:         NOT defined'       &'// ALLOW_ADJOINT_RUN:                NOT defined'
143        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
144       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
145  #endif  #endif
146    
147  #ifdef ALLOW_GRADIENT_CHECK  #ifdef ALLOW_GRADIENT_CHECK
148        write(msgbuf,'(a)')        write(msgbuf,'(a)')
149       &'// ALLOW_GRADIENT_CHECK:          defined'       &'// ALLOW_GRADIENT_CHECK:                 defined'
150        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
151       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
152  #else  #else
153        write(msgbuf,'(a)')        write(msgbuf,'(a)')
154       &'// ALLOW_GRADIENT_CHECK:      NOT defined'       &'// ALLOW_GRADIENT_CHECK:             NOT defined'
155        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
156       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
157  #endif  #endif
158    
159  #ifdef ALLOW_ECCO_OPTIMIZATION  #ifdef ALLOW_ECCO_OPTIMIZATION
160        write(msgbuf,'(a)')        write(msgbuf,'(a)')
161       &'// ALLOW_ECCO_OPTIMIZATION:            defined'       &'// ALLOW_ECCO_OPTIMIZATION:              defined'
162        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
163       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
164  #else  #else
165        write(msgbuf,'(a)')        write(msgbuf,'(a)')
166       &'// ALLOW_ECCO_OPTIMIZATION:        NOT defined'       &'// ALLOW_ECCO_OPTIMIZATION:          NOT defined'
167        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
168       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
169  #endif  #endif
# Line 178  c--   Just do a "dry" run ( useful for t Line 181  c--   Just do a "dry" run ( useful for t
181       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
182  #endif  #endif
183    
   
184  #ifdef ALLOW_YMDS_TREE  #ifdef ALLOW_YMDS_TREE
185  c--   Use the Yearly-Monthly-Daily-Stepping call tree.  c--   Use the Yearly-Monthly-Daily-Stepping call tree.
186        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 244  c--   Read the EGM data from file. Line 246  c--   Read the EGM data from file.
246       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
247  #endif  #endif
248    
249  #ifdef ALLOW_SCAT_COST_CONTRIBUTION  #if (defined (ALLOW_SCAT_COST_CONTRIBUTION) || \
250         defined (ALLOW_DAILYSCAT_COST_CONTRIBUTION) )
251  c--   Use NSCAT data for getting the weights.  c--   Use NSCAT data for getting the weights.
252        write(msgbuf,'(a)')        write(msgbuf,'(a)')
253       &'// ALLOW_SCAT_COST_CONTRIBUTION:                     defined'       &'// ALLOW_SCAT_COST_CONTRIBUTION:         defined'
254        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
255       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
256  #else  #else
257        write(msgbuf,'(a)')        write(msgbuf,'(a)')
258       &'// ALLOW_SCAT_COST_CONTRIBUTION:                 NOT defined'       &'// ALLOW_SCAT_COST_CONTRIBUTION:     NOT defined'
259        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
260       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
261  #endif  #endif
# Line 270  c--   Include code to use the heat flux Line 273  c--   Include code to use the heat flux
273       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
274  #endif  #endif
275    
276  #ifdef ALLOW_SFLUX_COST_CONTRIBUTION  #ifdef ALLOW_SFLUX_COST_CONTRIBUTION
277  c--   Include code to use the salt flux contribution.  c--   Include code to use the salt flux contribution.
278        write(msgbuf,'(a)')        write(msgbuf,'(a)')
279       &'// ALLOW_SFLUX_COST_CONTRIBUTION:        defined'       &'// ALLOW_SFLUX_COST_CONTRIBUTION:        defined'
# Line 309  c--   Include code to use the meridional Line 312  c--   Include code to use the meridional
312       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
313  #endif  #endif
314    
315    #ifdef ALLOW_SIGMAR_COST_CONTRIBUTION
316    c--   Enable testing of the 3d sigmaR field contribution
317    c--   to the cost function.
318          write(msgbuf,'(a)')
319         &'// ALLOW_SIGMAR_COST_CONTRIBUTION:       defined'
320          call print_message( msgbuf, standardmessageunit,
321         &                    SQUEEZE_RIGHT , mythid)
322    #else
323          write(msgbuf,'(a)')
324         &'// ALLOW_SIGMAR_COST_CONTRIBUTION:   NOT defined'
325          call print_message( msgbuf, standardmessageunit,
326         &                    SQUEEZE_RIGHT , mythid)
327    #endif
328    
329  #ifdef ALLOW_THETA_COST_CONTRIBUTION  #ifdef ALLOW_THETA_COST_CONTRIBUTION
330  c--   Enable testing of the 3d temperature field contribution  c--   Enable testing of the 3d temperature field contribution
331  c--   to the cost function.  c--   to the cost function.
# Line 369  c--   to the cost function. Line 386  c--   to the cost function.
386  c--   Enable testing of the heat flux contribution to the  c--   Enable testing of the heat flux contribution to the
387  c--   cost function.  c--   cost function.
388        write(msgbuf,'(a)')        write(msgbuf,'(a)')
389       &'// APPLY_HFLUX_COST_CONTRIBUTION:      defined'       &'// APPLY_HFLUX_COST_CONTRIBUTION:        defined'
390        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
391       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
392  #else  #else
393        write(msgbuf,'(a)')        write(msgbuf,'(a)')
394       &'// APPLY_HFLUX_COST_CONTRIBUTION:  NOT defined'       &'// APPLY_HFLUX_COST_CONTRIBUTION:    NOT defined'
395        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
396       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
397  #endif  #endif
# Line 383  c--   cost function. Line 400  c--   cost function.
400  c--   Enable testing of the salt flux contribution to the  c--   Enable testing of the salt flux contribution to the
401  c--   cost function.  c--   cost function.
402        write(msgbuf,'(a)')        write(msgbuf,'(a)')
403       &'// APPLY_SFLUX_COST_CONTRIBUTION:      defined'       &'// APPLY_SFLUX_COST_CONTRIBUTION:        defined'
404        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
405       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
406  #else  #else
407        write(msgbuf,'(a)')        write(msgbuf,'(a)')
408       &'// APPLY_SFLUX_COST_CONTRIBUTION:  NOT defined'       &'// APPLY_SFLUX_COST_CONTRIBUTION:    NOT defined'
409        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
410       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
411  #endif  #endif
# Line 397  c--   cost function. Line 414  c--   cost function.
414  c--   Enable testing of the zonal wind stress contribution  c--   Enable testing of the zonal wind stress contribution
415  c--   to the cost function.  c--   to the cost function.
416        write(msgbuf,'(a)')        write(msgbuf,'(a)')
417       &'// APPLY_USTRESS_COST_CONTRIBUTION:    defined'       &'// APPLY_USTRESS_COST_CONTRIBUTION:      defined'
418        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
419       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
420  #else  #else
421        write(msgbuf,'(a)')        write(msgbuf,'(a)')
422       &'// APPLY_USTRESS_COST_CONTRIBUTION: NOT defined'       &'// APPLY_USTRESS_COST_CONTRIBUTION:  NOT defined'
423        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
424       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
425  #endif  #endif
# Line 411  c--   to the cost function. Line 428  c--   to the cost function.
428  c--   Enable testing of the meridional wind stress contribution  c--   Enable testing of the meridional wind stress contribution
429  c--   to the cost function.  c--   to the cost function.
430        write(msgbuf,'(a)')        write(msgbuf,'(a)')
431       &'// APPLY_VSTRESS_COST_CONTRIBUTION:    defined'       &'// APPLY_VSTRESS_COST_CONTRIBUTION:      defined'
432        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
433       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
434  #else  #else
435        write(msgbuf,'(a)')        write(msgbuf,'(a)')
436       &'// APPLY_VSTRESS_COST_CONTRIBUTION: NOT defined'       &'// APPLY_VSTRESS_COST_CONTRIBUTION:  NOT defined'
437        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
438       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
439  #endif  #endif
# Line 425  c--   to the cost function. Line 442  c--   to the cost function.
442  c--   Enable testing of the initial state temperature contribution  c--   Enable testing of the initial state temperature contribution
443  c--   to the cost function.  c--   to the cost function.
444        write(msgbuf,'(a)')        write(msgbuf,'(a)')
445       &'// APPLY_THETA_COST_CONTRIBUTION:      defined'       &'// APPLY_THETA_COST_CONTRIBUTION:        defined'
446        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
447       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
448  #else  #else
449        write(msgbuf,'(a)')        write(msgbuf,'(a)')
450       &'// APPLY_THETA_COST_CONTRIBUTION:  NOT defined'       &'// APPLY_THETA_COST_CONTRIBUTION:    NOT defined'
451        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
452       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
453  #endif  #endif
# Line 439  c--   to the cost function. Line 456  c--   to the cost function.
456  c--   Enable testing of the initial state salinity contribution  c--   Enable testing of the initial state salinity contribution
457  c--   to the cost function.  c--   to the cost function.
458        write(msgbuf,'(a)')        write(msgbuf,'(a)')
459       &'// APPLY_SALT_COST_CONTRIBUTION:       defined'       &'// APPLY_SALT_COST_CONTRIBUTION:         defined'
460        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
461       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
462  #else  #else
463        write(msgbuf,'(a)')        write(msgbuf,'(a)')
464       &'// APPLY_SALT_COST_CONTRIBUTION:   NOT defined'       &'// APPLY_SALT_COST_CONTRIBUTION:     NOT defined'
465        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
466       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
467  #endif  #endif
# Line 453  c--   to the cost function. Line 470  c--   to the cost function.
470  c--   Enable testing of the sea surface temperature contribution  c--   Enable testing of the sea surface temperature contribution
471  c--   to the cost function.  c--   to the cost function.
472        write(msgbuf,'(a)')        write(msgbuf,'(a)')
473       &'// APPLY_SST_COST_CONTRIBUTION:        defined'       &'// APPLY_SST_COST_CONTRIBUTION:          defined'
474        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
475       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
476  #else  #else
477        write(msgbuf,'(a)')        write(msgbuf,'(a)')
478       &'// APPLY_SST_COST_CONTRIBUTION:    NOT defined'       &'// APPLY_SST_COST_CONTRIBUTION:      NOT defined'
479        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
480       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
481  #endif  #endif
# Line 467  c--   to the cost function. Line 484  c--   to the cost function.
484  c--   Enable testing of the sea surface height contribution  c--   Enable testing of the sea surface height contribution
485  c--   to the cost function.  c--   to the cost function.
486        write(msgbuf,'(a)')        write(msgbuf,'(a)')
487       &'// APPLY_SSH_COST_CONTRIBUTION:        defined'       &'// APPLY_SSH_COST_CONTRIBUTION:          defined'
488        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
489       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
490  #else  #else
491        write(msgbuf,'(a)')        write(msgbuf,'(a)')
492       &'// APPLY_SSH_COST_CONTRIBUTION:    NOT defined'       &'// APPLY_SSH_COST_CONTRIBUTION:      NOT defined'
493        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
494       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
495  #endif  #endif
# Line 517  c--   Initial state salinity used as par Line 534  c--   Initial state salinity used as par
534       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
535  #endif  #endif
536    
537    #ifdef ALLOW_ETAN0_CONTROL
538    c--   Initial state sealevel used as part of the control vector.
539          write(msgbuf,'(a)')
540         &'// ALLOW_ETAN0_CONTROL:                  defined'
541          call print_message( msgbuf, standardmessageunit,
542         &                    SQUEEZE_RIGHT , mythid)
543    #else
544          write(msgbuf,'(a)')
545         &'// ALLOW_ETAN0_CONTROL:              NOT defined'
546          call print_message( msgbuf, standardmessageunit,
547         &                    SQUEEZE_RIGHT , mythid)
548    #endif
549    #ifdef ALLOW_UVEL0_CONTROL
550    c--   Initial state velocity used as part of the control vector.
551          write(msgbuf,'(a)')
552         &'// ALLOW_UVEL0_CONTROL:                  defined'
553          call print_message( msgbuf, standardmessageunit,
554         &                    SQUEEZE_RIGHT , mythid)
555    #else
556          write(msgbuf,'(a)')
557         &'// ALLOW_UVEL0_CONTROL:              NOT defined'
558          call print_message( msgbuf, standardmessageunit,
559         &                    SQUEEZE_RIGHT , mythid)
560    #endif
561    #ifdef ALLOW_VVEL0_CONTROL
562    c--   Initial state velocity used as part of the control vector.
563          write(msgbuf,'(a)')
564         &'// ALLOW_VVEL0_CONTROL:                  defined'
565          call print_message( msgbuf, standardmessageunit,
566         &                    SQUEEZE_RIGHT , mythid)
567    #else
568          write(msgbuf,'(a)')
569         &'// ALLOW_VVEL0_CONTROL:              NOT defined'
570          call print_message( msgbuf, standardmessageunit,
571         &                    SQUEEZE_RIGHT , mythid)
572    #endif
573    
574  #ifdef ALLOW_HFLUX_CONTROL  #ifdef ALLOW_HFLUX_CONTROL
575  c--   Surface heat flux used as part of the control vector.  c--   Surface heat flux used as part of the control vector.
576        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 582  c--   Short wave radiative flux used as Line 636  c--   Short wave radiative flux used as
636       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
637  #endif  #endif
638    
639  #ifdef ALLOW_LWFLUX_CONTROL  #ifdef ALLOW_SWDOWN_CONTROL
640  c--   Long wave radiative flux used as part of the control vector.  c--   Short wave radiative flux used as part of the control vector.
641        write(msgbuf,'(a)')        write(msgbuf,'(a)')
642       &'// ALLOW_LWFLUX_CONTROL:                 defined'       &'// ALLOW_SWDOWN_CONTROL:                 defined'
643        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
644       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
645  #else  #else
646        write(msgbuf,'(a)')        write(msgbuf,'(a)')
647       &'// ALLOW_LWFLUX_CONTROL:             NOT defined'       &'// ALLOW_SWDOWN_CONTROL:             NOT defined'
648        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
649       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
650  #endif  #endif
# Line 663  c--   Precipitation used as part of the Line 717  c--   Precipitation used as part of the
717  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
718  c--   Enable automatic differentiation of the ECCO code.  c--   Enable automatic differentiation of the ECCO code.
719        write(msgbuf,'(a)')        write(msgbuf,'(a)')
720       &'// ALLOW_AUTODIFF_TAMC:                defined'       &'// ALLOW_AUTODIFF_TAMC:                  defined'
721        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
722       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
723  #else  #else
724        write(msgbuf,'(a)')        write(msgbuf,'(a)')
725       &'// ALLOW_AUTODIFF_TAMC:            NOT defined'       &'// ALLOW_AUTODIFF_TAMC:              NOT defined'
726        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
727       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
728  #endif  #endif
729    
730  #ifdef ALLOW_TAMC_CHECKPOINTING  #ifdef ALLOW_TAMC_CHECKPOINTING
731  c--   Checkpointing as handled by TAMC.  c--   Checkpointing as handled by TAMC.
732        write(msgbuf,'(a)')        write(msgbuf,'(a)')
733       &'// ALLOW_TAMC_CHECKPOINTING:             defined'       &'// ALLOW_TAMC_CHECKPOINTING:             defined'
# Line 687  c--   Checkpointing as handled by TAMC. Line 741  c--   Checkpointing as handled by TAMC.
741  #endif  #endif
742    
743  c--   General summary.  c--   General summary.
744        write(msgbuf,'(a)')  c     write(msgbuf,'(a)')
745       &' '  c    &' '
746        call print_message( msgbuf, standardmessageunit,  c     call print_message( msgbuf, standardmessageunit,
747       &                    SQUEEZE_RIGHT , mythid)  c    &                    SQUEEZE_RIGHT , mythid)
748        write(msgbuf,'(a,2x,a10)')  c     write(msgbuf,'(a,2x,a10)')
749       &' Experiment name:',expId  c    &' Experiment name:',expId
750        call print_message( msgbuf, standardmessageunit,  c     call print_message( msgbuf, standardmessageunit,
751       &                    SQUEEZE_RIGHT , mythid)  c    &                    SQUEEZE_RIGHT , mythid)
752    
753  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
754  c--   Generation of adjoint code.  c--   Generation of adjoint code.
# Line 718  c--   Generation of adjoint code not ena Line 772  c--   Generation of adjoint code not ena
772        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
773       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
774  #endif  #endif
775    #endif /* ECCO_CTRL_DEPRECATED */
776    
777    #ifdef ALLOW_GENCOST_CONTRIBUTION
778          msgunit=standardmessageunit
779    c--
780          write(msgbuf,'(a)') ' '
781          call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
782    c--
783          do k = 1, NGENCOST
784           if (using_gencost(k)) then
785    c
786            il = ilnblnk(gencost_name(k))
787            write(msgbuf,'(a,i2,a,a)') 'gencost(',k,
788         &        ') = ',gencost_name(k)(1:il)
789            call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
790            write(msgbuf,'(a)') '-------------'
791            call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
792    c
793            if ( gencost_datafile(k) .ne. ' ' ) then
794             il = ilnblnk(gencost_datafile(k))
795             write(msgbuf,'(a,a)') ' data file = ',gencost_datafile(k)(1:il)
796             call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
797             write(msgbuf,'(a)') ' starts and ends at : '
798             call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
799             CALL CAL_PRINTDATE(gencost_startdate(1,k),mythid)
800             CALL CAL_PRINTDATE(gencost_enddate(1,k),mythid)
801             write(msgbuf,'(a,i5)') ' no. of records = ',
802         &                           gencost_nrec(k)
803             call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
804             write(msgbuf,'(a,i5)') ' per. of repeat = ',
805         &                           gencost_nrecperiod(k)
806             call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
807            endif
808    c
809             il = ilnblnk(gencost_barfile(k))
810             write(msgbuf,'(a,a)') ' model file = ',gencost_barfile(k)(1:il)
811             call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
812             il = ilnblnk(gencost_errfile(k))
813             write(msgbuf,'(a,a)') ' error file = ',gencost_errfile(k)(1:il)
814             call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
815             il = ilnblnk(gencost_scalefile(k))
816             write(msgbuf,'(a,a)') ' scale file = ',
817         &        gencost_scalefile(k)(1:il)
818             call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
819             do k2 = 1, NGENPPROC
820              if (gencost_preproc(k2,k).NE.' ') then
821                il = ilnblnk(gencost_preproc(k2,k))
822                write(msgbuf,'(a,a)') ' preprocess = ',
823         &                            gencost_preproc(k2,k)(1:il)
824                call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
825              endif
826              if (gencost_posproc(k2,k).NE.' ') then
827                il = ilnblnk(gencost_posproc(k2,k))
828                write(msgbuf,'(a,a)') ' posprocess = ',
829         &                            gencost_posproc(k2,k)(1:il)
830                call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
831              endif
832             enddo
833    c
834             write(msgbuf,'(a,i2,L2,i2,L2,L2,i2,a)') ' flags etc. = ',
835         &        gencost_flag(k), gencost_is3d(k),gencost_pointer3d(k),
836         &        gencost_timevaryweight(k), gencost_barskip(k),
837         &        gencost_outputlevel(k)
838             call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
839    
840            write(msgbuf,'(a)') ' '
841            call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
842    c
843           endif
844          enddo
845    c--
846          write(msgbuf,'(a)') ' '
847          call print_message( msgbuf, msgunit, SQUEEZE_RIGHT , mythid)
848    #endif /* ALLOW_GENCOST_CONTRIBUTION */
849    
850        write(msgbuf,'(a)')        write(msgbuf,'(a)')
851       &' '       &' '
# Line 740  c--   Generation of adjoint code not ena Line 868  c--   Generation of adjoint code not ena
868        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
869       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
870    
871        return        RETURN
872        end        END
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22