/[MITgcm]/MITgcm/pkg/grdchk/grdchk_summary.F
ViewVC logotype

Diff of /MITgcm/pkg/grdchk/grdchk_summary.F

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

revision 1.1 by heimbach, Fri Jul 13 13:08:17 2001 UTC revision 1.2 by heimbach, Fri Jul 13 14:50:46 2001 UTC
# Line 0  Line 1 
1    C $Header$
2    
3    #include "CPP_OPTIONS.h"
4    
5    
6          subroutine grdchk_Summary(
7         I                           mythid
8         &                         )
9    
10    c     ==================================================================
11    c     SUBROUTINE grdchk_Summary
12    c     ==================================================================
13    c
14    c     o Summarize the settings for doing gradient checks.
15    c
16    c     started: Christian Eckert eckert@mit.edu 06-Mar-2000
17    c     continued: heimbach@mit.edu: 13-Jun-2001
18    c
19    c     ==================================================================
20    c     SUBROUTINE grdchk_Summary
21    c     ==================================================================
22    
23          implicit none
24    
25    c     == global variables ==
26    
27    #include "EEPARAMS.h"
28    #include "SIZE.h"
29    #include "GRID.h"
30    #include "grdchk.h"
31    
32    c     == routine arguments ==
33    
34          integer mythid
35    
36    #ifdef ALLOW_GRADIENT_CHECK
37    c     == local variables ==
38    
39          character*(max_len_mbuf) msgbuf
40    
41    c     == end of interface ==
42    
43          write(msgbuf,'(a)')
44         &' '
45          call print_message( msgbuf, standardmessageunit,
46         &                    SQUEEZE_RIGHT , mythid)
47          write(msgbuf,'(a)')
48         &'// ======================================================='
49          call print_message( msgbuf, standardmessageunit,
50         &                    SQUEEZE_RIGHT , mythid)
51          write(msgbuf,'(a)')
52         &'// Gradient check configuration  >>> START <<<'
53          call print_message( msgbuf, standardmessageunit,
54         &                    SQUEEZE_RIGHT , mythid)
55          write(msgbuf,'(a)')
56         &'// ======================================================='
57          call print_message( msgbuf, standardmessageunit,
58         &                    SQUEEZE_RIGHT , mythid)
59          write(msgbuf,'(a)')
60         &' '
61          call print_message( msgbuf, standardmessageunit,
62         &                    SQUEEZE_RIGHT , mythid)
63    
64          write(msgbuf,'(a,e10.3)')
65         &'  eps:                             ',grdchk_eps
66          call print_message( msgbuf, standardmessageunit,
67         &                    SQUEEZE_RIGHT , mythid)
68          write(msgbuf,'(a,i10)')
69         &'  First location:                  ',nbeg
70          call print_message( msgbuf, standardmessageunit,
71         &                    SQUEEZE_RIGHT , mythid)
72          write(msgbuf,'(a,i10)')
73         &'  Last location:                   ',nend
74          call print_message( msgbuf, standardmessageunit,
75         &                    SQUEEZE_RIGHT , mythid)
76          write(msgbuf,'(a,i10)')
77         &'  Increment:                       ',nstep
78          call print_message( msgbuf, standardmessageunit,
79         &                    SQUEEZE_RIGHT , mythid)
80    
81          write(msgbuf,'(a)')
82         &' '
83          call print_message( msgbuf, standardmessageunit,
84         &                    SQUEEZE_RIGHT , mythid)
85          write(msgbuf,'(a)')
86         &'// ======================================================='
87          call print_message( msgbuf, standardmessageunit,
88         &                    SQUEEZE_RIGHT , mythid)
89          write(msgbuf,'(a)')
90         &'// Gradient check configuration  >>> END <<<'
91          call print_message( msgbuf, standardmessageunit,
92         &                    SQUEEZE_RIGHT , mythid)
93          write(msgbuf,'(a)')
94         &'// ======================================================='
95          call print_message( msgbuf, standardmessageunit,
96         &                    SQUEEZE_RIGHT , mythid)
97          write(msgbuf,'(a)')
98         &' '
99          call print_message( msgbuf, standardmessageunit,
100         &                    SQUEEZE_RIGHT , mythid)
101    
102    #endif /* ALLOW_GRADIENT_CHECK */
103    
104          return
105          end
106    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22