/[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.8 by jmc, Thu Feb 10 21:24:19 2011 UTC revision 1.9 by jmc, Wed Jul 13 22:59:53 2011 UTC
# Line 81  c     IF ( useDiagnotics ) THEN Line 81  c     IF ( useDiagnotics ) THEN
81          CALL DIAGNOSTICS_ADDTOLIST( diagNum,          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
82       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
83    
84    #ifndef GM_EXCLUDE_SUBMESO
85            diagName  = 'SubMesLf'
86            diagTitle = 'Sub-Meso horiz. Length Scale (Lf)'
87            diagUnits = 'm               '
88            diagCode  = 'SM P    M1      '
89            CALL DIAGNOSTICS_ADDTOLIST( diagNum,
90         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
91    
92            diagName  = 'SubMpsiX'
93            diagTitle =
94         &    'Sub-Meso transp.stream-funct. magnitude (Psi0): U component'
95            diagUnits = 'm^2/s           '
96            diagCode  = 'UU      M1      '
97            diagMate  = diagNum + 2
98            CALL DIAGNOSTICS_ADDTOLIST( diagNum,
99         I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
100    
101            diagName  = 'SubMpsiY'
102            diagTitle =
103         &    'Sub-Meso transp.stream-funct. magnitude (Psi0): V component'
104            diagUnits = 'm^2/s           '
105            diagCode  = 'VV      M1      '
106            diagMate  = diagNum
107            CALL DIAGNOSTICS_ADDTOLIST( diagNum,
108         I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
109    #endif
110    
111          diagName  = 'GM_Kux  '          diagName  = 'GM_Kux  '
112          diagTitle = 'K_11 element (U.point, X.dir) of GM-Redi tensor'          diagTitle = 'K_11 element (U.point, X.dir) of GM-Redi tensor'
113          diagUnits = 'm^2/s           '          diagUnits = 'm^2/s           '
# Line 137  c     IF ( useDiagnotics ) THEN Line 164  c     IF ( useDiagnotics ) THEN
164       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
165    
166          diagName  = 'GM_PsiX '          diagName  = 'GM_PsiX '
167          diagTitle = 'GM Bolus transport stream-function : X component'          diagTitle = 'GM Bolus transport stream-function : U component'
168          diagUnits = 'm^2/s           '          diagUnits = 'm^2/s           '
169          diagCode  = 'UU      LR      '          diagCode  = 'UU      LR      '
170          diagMate  = diagNum + 2          diagMate  = diagNum + 2
# Line 145  c     IF ( useDiagnotics ) THEN Line 172  c     IF ( useDiagnotics ) THEN
172       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
173    
174          diagName  = 'GM_PsiY '          diagName  = 'GM_PsiY '
175          diagTitle = 'GM Bolus transport stream-function : Y component'          diagTitle = 'GM Bolus transport stream-function : V component'
176          diagUnits = 'm^2/s           '          diagUnits = 'm^2/s           '
177          diagCode  = 'VV      LR      '          diagCode  = 'VV      LR      '
178          diagMate  = diagNum          diagMate  = diagNum
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22