/[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.1 by jmc, Tue Jan 4 00:19:38 2005 UTC revision 1.2 by jmc, Thu Dec 8 03:29:31 2005 UTC
# Line 120  c     IF ( useDiagnotics ) THEN Line 120  c     IF ( useDiagnotics ) THEN
120          CALL DIAGNOSTICS_ADD2LIST( diagNum,          CALL DIAGNOSTICS_ADD2LIST( diagNum,
121       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
122    
123            diagName  = 'GM_KuzTz'
124            diagTitle = 'Redi Off-diagonal Tempetature flux: X component'
125            diagUnits = 'degC.m^3/s      '
126            WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
127            CALL DIAGNOSTICS_ADD2LIST( diagNum,
128         I          diagName, diagCode, diagUnits, diagTitle, myThid )
129    
130            diagName  = 'GM_KvzTz'
131            diagTitle = 'Redi Off-diagonal Tempetature flux: Y component'
132            diagUnits = 'degC.m^3/s      '
133            WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'MR      '
134            CALL DIAGNOSTICS_ADD2LIST( diagNum,
135         I          diagName, diagCode, diagUnits, diagTitle, myThid )
136    
137  c     ENDIF  c     ENDIF
138    
139  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22