/[MITgcm]/MITgcm/pkg/gmredi/gmredi_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_diagnostics_init.F

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

revision 1.3 by heimbach, Wed Feb 15 03:52:54 2006 UTC revision 1.4 by dfer, Tue Jan 30 15:17:52 2007 UTC
# Line 121  c     IF ( useDiagnotics ) THEN Line 121  c     IF ( useDiagnotics ) THEN
121       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
122    
123          diagName  = 'GM_KuzTz'          diagName  = 'GM_KuzTz'
124          diagTitle = 'Redi Off-diagonal Tempetature flux: X component'          diagTitle = 'Redi Off-diagonal Temperature flux: X component'
125          diagUnits = 'degC.m^3/s      '          diagUnits = 'degC.m^3/s      '
126          WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '          WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
127          CALL DIAGNOSTICS_ADD2LIST( diagNum,          CALL DIAGNOSTICS_ADD2LIST( diagNum,
128       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
129    
130          diagName  = 'GM_KvzTz'          diagName  = 'GM_KvzTz'
131          diagTitle = 'Redi Off-diagonal Tempetature flux: Y component'          diagTitle = 'Redi Off-diagonal Temperature flux: Y component'
132          diagUnits = 'degC.m^3/s      '          diagUnits = 'degC.m^3/s      '
133          WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'MR      '          WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'MR      '
134          CALL DIAGNOSTICS_ADD2LIST( diagNum,          CALL DIAGNOSTICS_ADD2LIST( diagNum,
135       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
136    
137            diagName  = 'GM_ubT  '
138            diagTitle = 'Zonal Mass-Weight Bolus Transp of Pot Temp'
139            diagUnits = 'degC.m^3/s      '
140            WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
141            CALL DIAGNOSTICS_ADD2LIST( diagNum,
142         I          diagName, diagCode, diagUnits, diagTitle, myThid )
143    
144            diagName  = 'GM_vbT  '
145            diagTitle = 'Meridional Mass-Weight Bolus Transp of Pot Temp'
146            diagUnits = 'degC.m^3/s      '
147            WRITE(diagCode,'(A,I3.3,A)') 'VV   ',diagNum,'MR      '
148            CALL DIAGNOSTICS_ADD2LIST( diagNum,
149         I          diagName, diagCode, diagUnits, diagTitle, myThid )
150    
151  #ifdef ALLOW_TAU_EDDY  #ifdef ALLOW_TAU_EDDY
152          diagName  = 'GMEdTauX'          diagName  = 'GMEdTauX'
153          diagTitle = 'eddy-induced stress X-comp. estimated from Kwx'          diagTitle = 'eddy-induced stress X-comp. estimated from Kwx'
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22