/[MITgcm]/MITgcm/pkg/ctrl/ctrl_summary.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_summary.F

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

revision 1.1.2.2 by heimbach, Tue Jun 24 18:36:47 2003 UTC revision 1.17 by gforget, Thu Oct 29 17:03:38 2015 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_OPTIONS.h"
5    
6          subroutine ctrl_Summary( mythid )
       subroutine ctrl_Summary(  
      I                         mythid  
      &                       )  
7    
8  c     ==================================================================  c     ==================================================================
9  c     SUBROUTINE ctrl_Summary  c     SUBROUTINE ctrl_Summary
10  c     ==================================================================  c     ==================================================================
11  c  c
12  c     o Summarize the control vector part of the ECCO release.  c     o Summarize the control vector settings.
 c  
 c     started: Christian Eckert eckert@mit.edu 06-Mar-2000  
 c  
 c     changed: Christian Eckert eckert@mit.edu  
13  c  c
14  c     ==================================================================  c     ==================================================================
15  c     SUBROUTINE ctrl_Summary  c     SUBROUTINE ctrl_Summary
# Line 28  c     == global variables == Line 22  c     == global variables ==
22  #include "EEPARAMS.h"  #include "EEPARAMS.h"
23  #include "SIZE.h"  #include "SIZE.h"
24    
25  #ifdef ALLOW_CALENDAR  #ifdef ALLOW_CAL
26  # include "cal.h"  # include "cal.h"
27  #endif  #endif
28  #include "ctrl.h"  #ifdef ALLOW_AUTODIFF
29    # include "AUTODIFF_PARAMS.h"
30    #endif
31    #ifdef ALLOW_CTRL
32    # include "ctrl.h"
33    # include "CTRL_SIZE.h"
34    # if (defined (ALLOW_GENARR2D_CONTROL) || defined (ALLOW_GENARR3D_CONTROL) || defined (ALLOW_GENTIM2D_CONTROL))
35    #  include "CTRL_GENARR.h"
36    # endif
37    #endif
38    
39  c     == routine arguments ==  c     == routine arguments ==
40    
41        integer mythid        integer mythid
42    
43  c     == local variables ==  c     == local variables ==
44    
# Line 49  c     == local variables == Line 52  c     == local variables ==
52    
53        character*(max_len_mbuf) msgbuf        character*(max_len_mbuf) msgbuf
54    
55    #if (defined (ALLOW_GENARR2D_CONTROL) || defined (ALLOW_GENARR3D_CONTROL) || defined (ALLOW_GENTIM2D_CONTROL))
56          INTEGER iarr, jarr
57    #endif
58    
59  c     == external ==  c     == external ==
60    
61        integer  ilnblnk        integer  ilnblnk
# Line 65  c     == end of interface == Line 72  c     == end of interface ==
72        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
73       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
74        write(msgbuf,'(a)')        write(msgbuf,'(a)')
75       &'// ECCO control vector configuration  >>> START <<<'       &'// control vector configuration  >>> START <<<'
76        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
77       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
78        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 85  c     == end of interface == Line 92  c     == end of interface ==
92       &' --------------------------------------'       &' --------------------------------------'
93        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
94       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
       write(msgbuf,'(a)')  
      &' '  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
95        write(msgbuf,'(a,i8)') ' snx*sny*nr = ',snx*sny*nr        write(msgbuf,'(a,i8)') ' snx*sny*nr = ',snx*sny*nr
96        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
97       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
# Line 123  c     == end of interface == Line 126  c     == end of interface ==
126          enddo          enddo
127        enddo        enddo
128    
129    #ifdef ECCO_CTRL_DEPRECATED
130    
131  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
132        write(msgbuf,'(a)')        write(msgbuf,'(a)')
133       &' '       &' '
# Line 316  c     == end of interface == Line 321  c     == end of interface ==
321       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
322  #endif  #endif
323    
324    #endif /* ECCO_CTRL_DEPRECATED */
325    
326    
327    #ifdef ALLOW_SMOOTH
328    #ifdef ECCO_CTRL_DEPRECATED
329    
330          write(msgbuf,'(a)') ' '
331          call print_message( msgbuf, standardmessageunit,
332         &                    SQUEEZE_RIGHT , mythid)
333    
334          write(msgbuf,'(a)')
335         &' Settings of diffusion based correlation operators:'
336          call print_message( msgbuf, standardmessageunit,
337         &                    SQUEEZE_RIGHT , mythid)
338          write(msgbuf,'(a)')
339         &' --------------------------------------------------'
340          call print_message( msgbuf, standardmessageunit,
341         &                    SQUEEZE_RIGHT , mythid)
342    
343          write(msgbuf,'(a,L5,a)')
344         &' ctrlSmoothCorrel3D        = ',ctrlSmoothCorrel3D,
345         &' /* use 3D controls correlation */'
346          call print_message( msgbuf, standardmessageunit,
347         &                    SQUEEZE_RIGHT , mythid)
348    
349          write(msgbuf,'(a,L5,a)')
350         &' ctrlSmoothCorrel2D        = ',ctrlSmoothCorrel2D,
351         &' /* use 2D controls correlation */'
352          call print_message( msgbuf, standardmessageunit,
353         &                    SQUEEZE_RIGHT , mythid)
354    
355    #ifdef ALLOW_AUTODIFF
356          if (ctrlSmoothCorrel2D.AND..NOT.useSmoothCorrel2DinAdMode) then
357    c allow for switching off correl2d in adjoint
358          write(msgbuf,'(a,L5,a)')
359         &' useSmoothCorrel2DinAdMode = ',useSmoothCorrel2DinAdMode,
360         &' /* use in adjoint mode */'
361          call print_message( msgbuf, standardmessageunit,
362         &                    SQUEEZE_RIGHT , mythid)
363          endif
364    #endif
365    
366    #endif /* ECCO_CTRL_DEPRECATED */
367    #endif /* ALLOW_SMOOTH */
368    
369    
370    #if (defined (ALLOW_GENARR2D_CONTROL) || defined (ALLOW_GENARR3D_CONTROL) || defined (ALLOW_GENTIM2D_CONTROL))
371    
372          write(msgbuf,'(a)') ' '
373          call print_message( msgbuf, standardmessageunit,
374         &                    SQUEEZE_RIGHT , mythid)
375          write(msgbuf,'(a)')
376         &' Settings of generic controls:'
377          call print_message( msgbuf, standardmessageunit,
378         &                    SQUEEZE_RIGHT , mythid)
379          write(msgbuf,'(a)')
380         &' -----------------------------'
381          call print_message( msgbuf, standardmessageunit,
382         &                    SQUEEZE_RIGHT , mythid)
383          write(msgbuf,'(a)') ' '
384          call print_message( msgbuf, standardmessageunit,
385         &                    SQUEEZE_RIGHT , mythid)
386          write(msgbuf,'(a,L5,a)')
387         &' ctrlUseGen  = ',ctrlUseGen,
388         &' /* use generic controls */'
389          call print_message( msgbuf, standardmessageunit,
390         &                    SQUEEZE_RIGHT , mythid)
391    
392    
393    #ifdef ALLOW_GENARR2D_CONTROL
394          do iarr = 1, maxCtrlArr2D
395           if (xx_genarr2d_weight(iarr).NE.' ') then
396    
397            write(msgbuf,'(a,i2,a)')
398         &' -> 2D control, genarr2d no. ',iarr,
399         &' is in use'
400            call print_message( msgbuf, standardmessageunit,
401         &                    SQUEEZE_RIGHT , mythid)
402    
403            il   = ILNBLNK( xx_genarr2d_file(iarr) )
404            write(msgbuf,'(a,a)')
405         &'      file       = ',xx_genarr2d_file(iarr)(1:il)
406            call print_message( msgbuf, standardmessageunit,
407         &                    SQUEEZE_RIGHT , mythid)
408            il   = ILNBLNK( xx_genarr2d_weight(iarr) )
409            write(msgbuf,'(a,a)')
410         &'      weight     = ',xx_genarr2d_weight(iarr)(1:il)
411            call print_message( msgbuf, standardmessageunit,
412         &                    SQUEEZE_RIGHT , mythid)
413    
414             do jarr=1,maxCtrlProc
415              if (xx_genarr2d_preproc(jarr,iarr).NE.' ') then
416                il = ilnblnk(xx_genarr2d_preproc(jarr,iarr))
417                write(msgbuf,'(a,a)') ' preprocess = ',
418         &                            xx_genarr2d_preproc(jarr,iarr)(1:il)
419                call print_message( msgbuf, standardmessageunit,
420         &                        SQUEEZE_RIGHT , mythid)
421              endif
422             enddo
423    
424           endif
425          enddo
426    #endif
427    
428    
429    #ifdef ALLOW_GENARR3D_CONTROL
430          do iarr = 1, maxCtrlArr3D
431           if (xx_genarr3d_weight(iarr).NE.' ') then
432    
433            write(msgbuf,'(a,i2,a)')
434         &' -> 3d control, genarr3d no. ',iarr,
435         &' is in use'
436            call print_message( msgbuf, standardmessageunit,
437         &                    SQUEEZE_RIGHT , mythid)
438    
439            il   = ILNBLNK( xx_genarr3d_file(iarr) )
440            write(msgbuf,'(a,a)')
441         &'      file       = ',xx_genarr3d_file(iarr)(1:il)
442            call print_message( msgbuf, standardmessageunit,
443         &                    SQUEEZE_RIGHT , mythid)
444            il   = ILNBLNK( xx_genarr3d_weight(iarr) )
445            write(msgbuf,'(a,a)')
446         &'      weight     = ',xx_genarr3d_weight(iarr)(1:il)
447            call print_message( msgbuf, standardmessageunit,
448         &                    SQUEEZE_RIGHT , mythid)
449    
450             do jarr=1,maxCtrlProc
451              if (xx_genarr3d_preproc(jarr,iarr).NE.' ') then
452                il = ilnblnk(xx_genarr3d_preproc(jarr,iarr))
453                write(msgbuf,'(a,a)') ' preprocess = ',
454         &                            xx_genarr3d_preproc(jarr,iarr)(1:il)
455                call print_message( msgbuf, standardmessageunit,
456         &                        SQUEEZE_RIGHT , mythid)
457              endif
458             enddo
459    
460           endif
461          enddo
462    #endif
463    
464    #ifdef ALLOW_GENTIM2D_CONTROL
465          do iarr = 1, maxCtrlTim2D
466           if (xx_gentim2d_weight(iarr).NE.' ') then
467    
468            write(msgbuf,'(a,i2,a)')
469         &' -> time variable 2D control, gentim2d no. ',iarr,
470         &' is in use'
471            call print_message( msgbuf, standardmessageunit,
472         &                    SQUEEZE_RIGHT , mythid)
473    
474            il   = ILNBLNK( xx_gentim2d_file(iarr) )
475            write(msgbuf,'(a,a)')
476         &'      file       = ',xx_gentim2d_file(iarr)(1:il)
477            call print_message( msgbuf, standardmessageunit,
478         &                    SQUEEZE_RIGHT , mythid)
479    
480            il   = ILNBLNK( xx_gentim2d_weight(iarr) )
481            write(msgbuf,'(a,a)')
482         &'      weight     = ',xx_gentim2d_weight(iarr)(1:il)
483            call print_message( msgbuf, standardmessageunit,
484         &                    SQUEEZE_RIGHT , mythid)
485    
486    #ifdef ALLOW_CAL
487            call cal_TimeInterval( xx_gentim2d_period(iarr),
488         &                         'secs', timeint, mythid )
489            write(msgbuf,'(a,i9.8,i7.6)')
490         &'      period     = ',(timeint(i), i=1,2)
491            call print_message( msgbuf, standardmessageunit,
492         &                    SQUEEZE_RIGHT , mythid)
493    #endif
494    
495             do jarr=1,maxCtrlProc
496              if (xx_gentim2d_preproc(jarr,iarr).NE.' ') then
497                il = ilnblnk(xx_gentim2d_preproc(jarr,iarr))
498                write(msgbuf,'(a,a)') '      preprocess = ',
499         &                        xx_gentim2d_preproc(jarr,iarr)(1:il)
500                call print_message( msgbuf, standardmessageunit,
501         &                        SQUEEZE_RIGHT , mythid)
502    C
503              if (xx_gentim2d_preproc_c(jarr,iarr).NE.' ') then
504                il = ilnblnk(xx_gentim2d_preproc_c(jarr,iarr))
505                write(msgbuf,'(a,a)') '        param. (text)= ',
506         &                        xx_gentim2d_preproc_c(jarr,iarr)(1:il)
507                call print_message( msgbuf, standardmessageunit,
508         &                        SQUEEZE_RIGHT , mythid)
509              endif
510    C
511              if (xx_gentim2d_preproc_i(jarr,iarr).NE.0) then
512                write(msgbuf,'(a,i6)') '        param. (int.)= ',
513         &                        xx_gentim2d_preproc_i(jarr,iarr)
514                call print_message( msgbuf, standardmessageunit,
515         &                        SQUEEZE_RIGHT , mythid)
516              endif
517    C
518              if (xx_gentim2d_preproc_r(jarr,iarr).NE.0. _d 0) then
519                write(msgbuf,'(a,e10.3)') '        param. (real)= ',
520         &                        xx_gentim2d_preproc_r(jarr,iarr)
521                call print_message( msgbuf, standardmessageunit,
522         &                        SQUEEZE_RIGHT , mythid)
523              endif
524    
525              endif
526             enddo
527    
528           endif
529          enddo
530    #endif
531    
532    #endif
533    
534        write(msgbuf,'(a)')        write(msgbuf,'(a)')
535       &' '       &' '
536        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
# Line 325  c     == end of interface == Line 540  c     == end of interface ==
540        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
541       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
542        write(msgbuf,'(a)')        write(msgbuf,'(a)')
543       &'// ECCO control vector configuration  >>> END <<<'       &'// control vector configuration  >>> END <<<'
544        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
545       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
546        write(msgbuf,'(a)')        write(msgbuf,'(a)')
Legend:
Removed from v.1.1.2.2  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22