/[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.11 by m_bates, Fri Jun 21 17:23:31 2013 UTC revision 1.12 by m_bates, Thu Jul 11 14:33:23 2013 UTC
# Line 263  c     IF ( useDiagnotics ) THEN Line 263  c     IF ( useDiagnotics ) THEN
263          CALL DIAGNOSTICS_ADDTOLIST( diagNum,          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
264       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
265                    
266    #ifdef use_lapack
267          diagName  = 'GM_A3D'          diagName  = 'GM_A3D'
268          diagTitle = '3D lower diagona'          diagTitle = '3D lower diagona'
269          diagUnits = '1/m**2          '          diagUnits = '1/m**2          '
# Line 286  c     IF ( useDiagnotics ) THEN Line 287  c     IF ( useDiagnotics ) THEN
287          diagMate  = diagNum          diagMate  = diagNum
288          CALL DIAGNOSTICS_ADDTOLIST( diagNum,          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
289       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
290    #endif
291                    
292          diagName  = 'GM_VAL'          diagName  = 'GM_MODEC'
         diagTitle = 'Eigen value     '  
         diagUnits = '1/m**2          '  
         diagCode  = 'SM P    MR      '  
         diagMate  = diagNum  
         CALL DIAGNOSTICS_ADDTOLIST( diagNum,  
      I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )  
           
         diagName  = 'GM_VEC'  
293          diagTitle = 'Eigen vector for the first barcolinic mode'          diagTitle = 'Eigen vector for the first barcolinic mode'
294          diagUnits = 'dimensionless   '          diagUnits = 'dimensionless   '
295          diagCode  = 'SM      MR      '          diagCode  = 'SM      MR      '
# Line 327  c     IF ( useDiagnotics ) THEN Line 321  c     IF ( useDiagnotics ) THEN
321          CALL DIAGNOSTICS_ADDTOLIST( diagNum,          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
322       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
323                    
         diagName  = 'GM_SIGR '  
         diagTitle = 'drho/dr'  
         diagUnits = 'kg/m**4          '  
         diagCode  = 'SM      MR      '  
         diagMate  = diagNum  
         CALL DIAGNOSTICS_ADDTOLIST( diagNum,  
      I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )  
           
         diagName  = 'GM_N2  '  
         diagTitle = 'Square of buoyancy frequency'  
         diagUnits = '1/s**2          '  
         diagCode  = 'SM      MR      '  
         diagMate  = diagNum  
         CALL DIAGNOSTICS_ADDTOLIST( diagNum,  
      I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )  
           
         diagName  = 'GM_SIGX '  
         diagTitle = 'd(rho)/dx'  
         diagUnits = 'kg/m**4          '  
         diagCode  = 'UU      MR      '  
         diagMate  = diagNum  
         CALL DIAGNOSTICS_ADDTOLIST( diagNum,  
      I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )  
           
         diagName  = 'GM_SIGY '  
         diagTitle = 'd(rho)/dy'  
         diagUnits = 'kg/m**4         '  
         diagCode  = 'VV      MR      '  
         diagMate  = diagNum  
         CALL DIAGNOSTICS_ADDTOLIST( diagNum,  
      I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )  
           
324          diagName  = 'GM_USTAR'          diagName  = 'GM_USTAR'
325          diagTitle = 'u^*'          diagTitle = 'u^*'
326          diagUnits = 'm/s         '          diagUnits = 'm/s         '
# Line 439  c     IF ( useDiagnotics ) THEN Line 401  c     IF ( useDiagnotics ) THEN
401          CALL DIAGNOSTICS_ADDTOLIST( diagNum,          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
402       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
403                    
         diagName  = 'GM_PSI  '  
         diagTitle = 'Eddy induced meridional streamfunction'  
         diagUnits = 'm**3/s          '  
         diagCode  = 'VV      MR      '  
         diagMate  = diagNum  
         CALL DIAGNOSTICS_ADDTOLIST( diagNum,  
      I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )  
           
404          diagName  = 'GM_Sx   '          diagName  = 'GM_Sx   '
405          diagTitle = 'Zonal isopycnal slope'          diagTitle = 'Zonal isopycnal slope'
406          diagUnits = 'none            '          diagUnits = 'none            '
# Line 517  c     IF ( useDiagnotics ) THEN Line 471  c     IF ( useDiagnotics ) THEN
471          diagCode  = 'SM      M1      '          diagCode  = 'SM      M1      '
472          diagMate  = diagNum          diagMate  = diagNum
473          CALL DIAGNOSTICS_ADDTOLIST( diagNum,          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
      I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )  
           
         diagName  = 'GM_BVINT'  
         diagTitle = 'vertical integral of the buoyancy frequency'  
         diagUnits = 'm/s             '  
         diagCode  = 'SM      M1      '  
         diagMate  = diagNum  
         CALL DIAGNOSTICS_ADDTOLIST( diagNum,  
474       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
475                    
476  #endif  #endif
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22