/[MITgcm]/MITgcm/pkg/mom_common/mom_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_diagnostics_init.F

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

revision 1.4 by baylor, Fri Sep 16 19:32:20 2005 UTC revision 1.5 by baylor, Tue Sep 20 20:41:43 2005 UTC
# Line 42  C---+----1----+----2----+----3----+----4 Line 42  C---+----1----+----2----+----3----+----4
42  C---  Add diagnostics to the (long) list of available diagnostics:  C---  Add diagnostics to the (long) list of available diagnostics:
43    
44  C--   add diagnostics for viscosity coefficients:  C--   add diagnostics for viscosity coefficients:
45          diagName  = 'VISCAHZ '
46          diagTitle = 'Harmonic Visc Coefficient (m2/s) (Zeta Pt)'
47          diagUnits = 'm^2/s           '
48          diagCode  = 'SZ      MR      '
49          CALL DIAGNOSTICS_ADD2LIST( diagNum,
50         I          diagName, diagCode, diagUnits, diagTitle, myThid )
51    
52          diagName  = 'VISCA4Z '
53          diagTitle = 'Biharmonic Visc Coefficient (m4/s) (Zeta Pt)'
54          diagUnits = 'm^4/s           '
55          diagCode  = 'SZ      MR      '
56          CALL DIAGNOSTICS_ADD2LIST( diagNum,
57         I          diagName, diagCode, diagUnits, diagTitle, myThid )
58    
59        diagName  = 'VISCAHD '        diagName  = 'VISCAHD '
60        diagTitle = 'Harmonic Viscosity Coefficient (m2/s) (Div Pt)'        diagTitle = 'Harmonic Viscosity Coefficient (m2/s) (Div Pt)'
61        diagUnits = 'm^2/s           '        diagUnits = 'm^2/s           '
# Line 56  C--   add diagnostics for viscosity coef Line 70  C--   add diagnostics for viscosity coef
70        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
71       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
72    
73        diagName  = 'VISCAHZ '        diagName  = 'VAHZMAX '
74        diagTitle = 'Harmonic Viscosity Coefficient (m2/s) (Zeta Pt)'        diagTitle = 'CFL-MAX Harm Visc Coefficient (m2/s) (Zeta Pt)'
75        diagUnits = 'm^2/s           '        diagUnits = 'm^2/s           '
76        diagCode  = 'SZ      MR      '        diagCode  = 'SZ      MR      '
77        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
78       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
79    
80        diagName  = 'VISCA4Z '        diagName  = 'VA4ZMAX '
81        diagTitle = 'Biharmonic Viscosity Coefficient (m4/s) (Zeta Pt)'        diagTitle = 'CFL-MAX Biharm Visc Coefficient (m4/s) (Zeta Pt)'
82          diagUnits = 'm^4/s           '
83          diagCode  = 'SZ      MR      '
84          CALL DIAGNOSTICS_ADD2LIST( diagNum,
85         I          diagName, diagCode, diagUnits, diagTitle, myThid )
86    
87          diagName  = 'VAHDMAX '
88          diagTitle = 'CFL-MAX Harm Visc Coefficient (m2/s) (Div Pt)'
89          diagUnits = 'm^2/s           '
90          diagCode  = 'SM      MR      '
91          CALL DIAGNOSTICS_ADD2LIST( diagNum,
92         I          diagName, diagCode, diagUnits, diagTitle, myThid )
93    
94          diagName  = 'VA4DMAX '
95          diagTitle = 'CFL-MAX Biharm Visc Coefficient (m4/s) (Div Pt)'
96          diagUnits = 'm^4/s           '
97          diagCode  = 'SM      MR      '
98          CALL DIAGNOSTICS_ADD2LIST( diagNum,
99         I          diagName, diagCode, diagUnits, diagTitle, myThid )
100    
101          diagName  = 'VAHZMIN '
102          diagTitle = 'RE-MIN Harm Visc Coefficient (m2/s) (Zeta Pt)'
103          diagUnits = 'm^2/s           '
104          diagCode  = 'SZ      MR      '
105          CALL DIAGNOSTICS_ADD2LIST( diagNum,
106         I          diagName, diagCode, diagUnits, diagTitle, myThid )
107    
108          diagName  = 'VA4ZMIN '
109          diagTitle = 'RE-MIN Biharm Visc Coefficient (m4/s) (Zeta Pt)'
110          diagUnits = 'm^4/s           '
111          diagCode  = 'SZ      MR      '
112          CALL DIAGNOSTICS_ADD2LIST( diagNum,
113         I          diagName, diagCode, diagUnits, diagTitle, myThid )
114    
115          diagName  = 'VAHDMIN '
116          diagTitle = 'RE-MIN Harm Visc Coefficient (m2/s) (Div Pt)'
117          diagUnits = 'm^2/s           '
118          diagCode  = 'SM      MR      '
119          CALL DIAGNOSTICS_ADD2LIST( diagNum,
120         I          diagName, diagCode, diagUnits, diagTitle, myThid )
121    
122          diagName  = 'VA4DMIN '
123          diagTitle = 'RE-MIN Biharm Visc Coefficient (m4/s) (Div Pt)'
124          diagUnits = 'm^4/s           '
125          diagCode  = 'SM      MR      '
126          CALL DIAGNOSTICS_ADD2LIST( diagNum,
127         I          diagName, diagCode, diagUnits, diagTitle, myThid )
128    
129          diagName  = 'VAHZLTH '
130          diagTitle = 'Leith Harm Visc Coefficient (m2/s) (Zeta Pt)'
131          diagUnits = 'm^2/s           '
132          diagCode  = 'SZ      MR      '
133          CALL DIAGNOSTICS_ADD2LIST( diagNum,
134         I          diagName, diagCode, diagUnits, diagTitle, myThid )
135    
136          diagName  = 'VA4ZLTH '
137          diagTitle = 'Leith Biharm Visc Coefficient (m4/s) (Zeta Pt)'
138          diagUnits = 'm^4/s           '
139          diagCode  = 'SZ      MR      '
140          CALL DIAGNOSTICS_ADD2LIST( diagNum,
141         I          diagName, diagCode, diagUnits, diagTitle, myThid )
142    
143          diagName  = 'VAHDLTH '
144          diagTitle = 'Leith Harm Visc Coefficient (m2/s) (Div Pt)'
145          diagUnits = 'm^2/s           '
146          diagCode  = 'SM      MR      '
147          CALL DIAGNOSTICS_ADD2LIST( diagNum,
148         I          diagName, diagCode, diagUnits, diagTitle, myThid )
149    
150          diagName  = 'VA4DLTH '
151          diagTitle = 'Leith Biharm Visc Coefficient (m4/s) (Div Pt)'
152          diagUnits = 'm^4/s           '
153          diagCode  = 'SM      MR      '
154          CALL DIAGNOSTICS_ADD2LIST( diagNum,
155         I          diagName, diagCode, diagUnits, diagTitle, myThid )
156    
157          diagName  = 'VAHZLTHD'
158          diagTitle = 'LeithD Harm Visc Coefficient (m2/s) (Zeta Pt)'
159          diagUnits = 'm^2/s           '
160          diagCode  = 'SZ      MR      '
161          CALL DIAGNOSTICS_ADD2LIST( diagNum,
162         I          diagName, diagCode, diagUnits, diagTitle, myThid )
163    
164          diagName  = 'VA4ZLTHD'
165          diagTitle = 'LeithD Biharm Visc Coefficient (m4/s) (Zeta Pt)'
166          diagUnits = 'm^4/s           '
167          diagCode  = 'SZ      MR      '
168          CALL DIAGNOSTICS_ADD2LIST( diagNum,
169         I          diagName, diagCode, diagUnits, diagTitle, myThid )
170    
171          diagName  = 'VAHDLTHD'
172          diagTitle = 'LeithD Harm Visc Coefficient (m2/s) (Div Pt)'
173          diagUnits = 'm^2/s           '
174          diagCode  = 'SM      MR      '
175          CALL DIAGNOSTICS_ADD2LIST( diagNum,
176         I          diagName, diagCode, diagUnits, diagTitle, myThid )
177    
178          diagName  = 'VA4DLTHD'
179          diagTitle = 'LeithD Biharm Visc Coefficient (m4/s) (Div Pt)'
180          diagUnits = 'm^4/s           '
181          diagCode  = 'SM      MR      '
182          CALL DIAGNOSTICS_ADD2LIST( diagNum,
183         I          diagName, diagCode, diagUnits, diagTitle, myThid )
184    
185          diagName  = 'VAHZSMAG'
186          diagTitle = 'Smagorinsky Harm Visc Coefficient (m2/s) (Zeta Pt)'
187          diagUnits = 'm^2/s           '
188          diagCode  = 'SZ      MR      '
189          CALL DIAGNOSTICS_ADD2LIST( diagNum,
190         I          diagName, diagCode, diagUnits, diagTitle, myThid )
191    
192          diagName  = 'VA4ZSMAG'
193          diagTitle = 'Smagorinsky Biharm Visc Coeff. (m4/s) (Zeta Pt)'
194        diagUnits = 'm^4/s           '        diagUnits = 'm^4/s           '
195        diagCode  = 'SZ      MR      '        diagCode  = 'SZ      MR      '
196        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
197       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
198    
199          diagName  = 'VAHDSMAG'
200          diagTitle = 'Smagorinsky Harm Visc Coefficient (m2/s) (Div Pt)'
201          diagUnits = 'm^2/s           '
202          diagCode  = 'SM      MR      '
203          CALL DIAGNOSTICS_ADD2LIST( diagNum,
204         I          diagName, diagCode, diagUnits, diagTitle, myThid )
205    
206          diagName  = 'VA4DSMAG'
207          diagTitle = 'Smagorinsky Biharm Visc Coeff. (m4/s) (Div Pt)'
208          diagUnits = 'm^4/s           '
209          diagCode  = 'SM      MR      '
210          CALL DIAGNOSTICS_ADD2LIST( diagNum,
211         I          diagName, diagCode, diagUnits, diagTitle, myThid )
212    
213    
214    
215  C--    add diagnostics of simple derivative quantities:  C--    add diagnostics of simple derivative quantities:
216         diagName  = 'momKE   '         diagName  = 'momKE   '
217         diagTitle = 'Kinetic Energy (in momentum Eq.)'         diagTitle = 'Kinetic Energy (in momentum Eq.)'
# Line 92  C--    add diagnostics of simple derivat Line 234  C--    add diagnostics of simple derivat
234         diagUnits = 's^-1            '         diagUnits = 's^-1            '
235         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
236       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
237    
238           diagName  = 'Strain  '
239           diagTitle = 'Horizontal Strain of Horizontal Velocities'
240           diagCode  = 'SZ      MR      '
241           diagUnits = 's^-1            '
242           CALL DIAGNOSTICS_ADD2LIST( diagNum,
243         I              diagName, diagCode, diagUnits, diagTitle, myThid )
244    
245           diagName  = 'Tension '
246           diagTitle = 'Horizontal Tension of Horizontal Velocities'
247           diagCode  = 'SM      MR      '
248           diagUnits = 's^-1            '
249           CALL DIAGNOSTICS_ADD2LIST( diagNum,
250         I              diagName, diagCode, diagUnits, diagTitle, myThid )
251  #endif /* ALLOW_MOM_VECINV */  #endif /* ALLOW_MOM_VECINV */
252    
253  C--    add diagnostics of tendencies from each terms  C--    add diagnostics of tendencies from each terms
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22