/[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.3 by jmc, Thu Sep 15 14:53:11 2005 UTC revision 1.4 by baylor, Fri Sep 16 19:32:20 2005 UTC
# Line 42  C---+----1----+----2----+----3----+----4 Line 42  C---+----1----+----2----+----3----+----4
42  C---  Add diagnostics to the (long) list of available diagnostics:  C---  Add diagnostics to the (long) list of available diagnostics:
43    
44  C--   add diagnostics for viscosity coefficients:  C--   add diagnostics for viscosity coefficients:
45  #ifdef ALLOW_MOM_VECINV        diagName  = 'VISCAHD '
46        diagName  = 'VISCAH  '        diagTitle = 'Harmonic Viscosity Coefficient (m2/s) (Div Pt)'
       diagTitle = 'Harmonic Viscosity Coefficient in (m2/s)        '  
47        diagUnits = 'm^2/s           '        diagUnits = 'm^2/s           '
48        diagCode  = 'SM      MR      '        diagCode  = 'SM      MR      '
49        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
50       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
51    
52        diagName  = 'VISCA4  '        diagName  = 'VISCA4D '
53        diagTitle = 'Biharmonic Viscosity Coefficient in (m4/s)        '        diagTitle = 'Biharmonic Viscosity Coefficient (m4/s) (Div Pt)'
54        diagUnits = 'm^4/s           '        diagUnits = 'm^4/s           '
55        diagCode  = 'SM      MR      '        diagCode  = 'SM      MR      '
56        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
57       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
58  #endif /* ALLOW_MOM_VECINV */  
59          diagName  = 'VISCAHZ '
60          diagTitle = 'Harmonic Viscosity Coefficient (m2/s) (Zeta Pt)'
61          diagUnits = 'm^2/s           '
62          diagCode  = 'SZ      MR      '
63          CALL DIAGNOSTICS_ADD2LIST( diagNum,
64         I          diagName, diagCode, diagUnits, diagTitle, myThid )
65    
66          diagName  = 'VISCA4Z '
67          diagTitle = 'Biharmonic Viscosity Coefficient (m4/s) (Zeta Pt)'
68          diagUnits = 'm^4/s           '
69          diagCode  = 'SZ      MR      '
70          CALL DIAGNOSTICS_ADD2LIST( diagNum,
71         I          diagName, diagCode, diagUnits, diagTitle, myThid )
72    
73  C--    add diagnostics of simple derivative quantities:  C--    add diagnostics of simple derivative quantities:
74         diagName  = 'momKE   '         diagName  = 'momKE   '
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22