/[MITgcm]/MITgcm_contrib/submesoscale/code/gmredi_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm_contrib/submesoscale/code/gmredi_diagnostics_init.F

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

revision 1.1 by dimitri, Fri May 30 21:51:24 2008 UTC revision 1.2 by dimitri, Fri May 30 22:13:42 2008 UTC
# Line 1  Line 1 
1    
2  C $Header$  C $Header$
3  C $Name$  C $Name$
4    
# Line 170  c     IF ( useDiagnotics ) THEN Line 171  c     IF ( useDiagnotics ) THEN
171          CALL DIAGNOSTICS_ADD2LIST( diagNum,          CALL DIAGNOSTICS_ADD2LIST( diagNum,
172       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
173    
174    #ifdef GM_SUBMESO
175    CBFK These are diagnosed whether or not Bolus Advection is used...
176    CBFK They are the quasi-streamfunction, since they are in the
177    CBFK Visbeck -dPsix/dz=u form, not the Fox-Kemper curl(psi)=u form.
178    CBFK They are always included in the GM part above
179    CBFK (i.e., GM diagnostic=GM+Submeso)
180            diagName  = 'SM_PsiX '
181            diagTitle = 'Submeso Bolus transport quasi-streamfunction : X'
182            diagUnits = 'm^2/s           '
183            WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'LR      '
184            CALL DIAGNOSTICS_ADD2LIST( diagNum,
185         I          diagName, diagCode, diagUnits, diagTitle, myThid )
186    
187            diagName  = 'SM_PsiY '
188            diagTitle = 'Submeso Bolus transport quasi-streamfunction : Y'
189            diagUnits = 'm^2/s           '
190            WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'LR      '
191            CALL DIAGNOSTICS_ADD2LIST( diagNum,
192         I          diagName, diagCode, diagUnits, diagTitle, myThid )
193    
194            diagName  = 'SM_ubT  '
195            diagTitle = 'Zon. Submeso Mass-Weight Bolus Transp of Pot Temp'
196            diagUnits = 'degC.m^3/s      '
197            WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
198            CALL DIAGNOSTICS_ADD2LIST( diagNum,
199         I          diagName, diagCode, diagUnits, diagTitle, myThid )
200    
201            diagName  = 'SM_vbT  '
202            diagTitle = 'Mer. Submeso Mass-Weight Bolus Transp of Pot Temp'
203            diagUnits = 'degC.m^3/s      '
204            WRITE(diagCode,'(A,I3.3,A)') 'VV   ',diagNum,'MR      '
205            CALL DIAGNOSTICS_ADD2LIST( diagNum,
206         I          diagName, diagCode, diagUnits, diagTitle, myThid )
207    
208            diagName  = 'SM_wbT  '
209            diagTitle = 'Rvel Submeso Mass-Weight Bolus Transp of Pot Temp'
210            diagUnits = 'degC.m^3/s      '
211            WRITE(diagCode,'(A,I3.3,A)') 'WM   ',diagNum,'LR      '
212            CALL DIAGNOSTICS_ADD2LIST( diagNum,
213         I          diagName, diagCode, diagUnits, diagTitle, myThid )
214    
215            diagName  = 'SM_KuzTz'
216            diagTitle = 'Zon. Submeso Mass-Weight Kappa Transp of Pot Temp'
217            diagUnits = 'degC.m^3/s      '
218            WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
219            CALL DIAGNOSTICS_ADD2LIST( diagNum,
220         I          diagName, diagCode, diagUnits, diagTitle, myThid )
221    
222            diagName  = 'SM_KvzTz'
223            diagTitle = 'Mer. Submeso Mass-Weight Kappa Transp of Pot Temp'
224            diagUnits = 'degC.m^3/s      '
225            WRITE(diagCode,'(A,I3.3,A)') 'VV   ',diagNum,'MR      '
226            CALL DIAGNOSTICS_ADD2LIST( diagNum,
227         I          diagName, diagCode, diagUnits, diagTitle, myThid )
228    
229            diagName  = 'SM_KrddT'
230            diagTitle = 'Rvel Submeso Mass-Weight Kappa Transp of Pot Temp'
231            diagUnits = 'degC.m^3/s      '
232            WRITE(diagCode,'(A,I3.3,A)') 'WM   ',diagNum,'LR      '
233            CALL DIAGNOSTICS_ADD2LIST( diagNum,
234         I          diagName, diagCode, diagUnits, diagTitle, myThid )
235    #endif
236    
237  #ifdef ALLOW_TAU_EDDY  #ifdef ALLOW_TAU_EDDY
238          diagName  = 'GMEdTauX'          diagName  = 'GMEdTauX'
239          diagTitle = 'eddy-induced stress X-comp. estimated from Kwx'          diagTitle = 'eddy-induced stress X-comp. estimated from Kwx'
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22