/[MITgcm]/MITgcm/pkg/mom_common/mom_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_diagnostics_init.F

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

revision 1.2 by jmc, Sun Sep 4 19:35:16 2005 UTC revision 1.3 by jmc, Thu Sep 15 14:53:11 2005 UTC
# Line 39  c     CHARACTER*(MAX_LEN_MBUF) msgBuf Line 39  c     CHARACTER*(MAX_LEN_MBUF) msgBuf
39    
40  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
41    
42  C--   Add diagnostics to the (long) list  C---  Add diagnostics to the (long) list of available diagnostics:
43    
44    C--   add diagnostics for viscosity coefficients:
45    #ifdef ALLOW_MOM_VECINV
46          diagName  = 'VISCAH  '
47          diagTitle = 'Harmonic Viscosity Coefficient in (m2/s)        '
48          diagUnits = 'm^2/s           '
49          diagCode  = 'SM      MR      '
50          CALL DIAGNOSTICS_ADD2LIST( diagNum,
51         I          diagName, diagCode, diagUnits, diagTitle, myThid )
52    
53          diagName  = 'VISCA4  '
54          diagTitle = 'Biharmonic Viscosity Coefficient in (m4/s)        '
55          diagUnits = 'm^4/s           '
56          diagCode  = 'SM      MR      '
57          CALL DIAGNOSTICS_ADD2LIST( diagNum,
58         I          diagName, diagCode, diagUnits, diagTitle, myThid )
59    #endif /* ALLOW_MOM_VECINV */
60    
61  C--    add diagnostics of simple derivative quantities:  C--    add diagnostics of simple derivative quantities:
62         diagName  = 'momKE   '         diagName  = 'momKE   '
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22