/[MITgcm]/MITgcm/pkg/ggl90/ggl90_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/ggl90_diagnostics_init.F

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

revision 1.1 by dfer, Tue Oct 7 19:33:09 2008 UTC revision 1.3 by gforget, Fri Aug 6 18:37:05 2010 UTC
# Line 35  C              cf head of S/R DIAGNOSTIC Line 35  C              cf head of S/R DIAGNOSTIC
35  C     diagUnits :: local string (16c): physical units of a diagnostic field  C     diagUnits :: local string (16c): physical units of a diagnostic field
36  C     diagTitle :: local string (80c): description of field in diagnostic  C     diagTitle :: local string (80c): description of field in diagnostic
37        INTEGER       diagNum        INTEGER       diagNum
38        INTEGER       diagMate  c     INTEGER       diagMate
39        CHARACTER*8   diagName        CHARACTER*8   diagName
40        CHARACTER*16  diagCode        CHARACTER*16  diagCode
41        CHARACTER*16  diagUnits        CHARACTER*16  diagUnits
# Line 64  C---+----1----+----2----+----3----+----4 Line 64  C---+----1----+----2----+----3----+----4
64          CALL DIAGNOSTICS_ADDTOLIST( diagNum,          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
65       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
66    
67          diagName  = 'GGL90Ar'          diagName  = 'GGL90ArU'
68          diagTitle = 'GGL90 eddy viscosity coefficient'          diagTitle = 'GGL90 eddy viscosity at U-point'
69            diagUnits = 'm^2/s           '
70            diagCode  = 'SM      LR      '
71            CALL DIAGNOSTICS_ADDTOLIST( diagNum,
72         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
73    
74            diagName  = 'GGL90ArV'
75            diagTitle = 'GGL90 eddy viscosity at V-point'
76          diagUnits = 'm^2/s           '          diagUnits = 'm^2/s           '
77          diagCode  = 'SM      LR      '          diagCode  = 'SM      LR      '
78          CALL DIAGNOSTICS_ADDTOLIST( diagNum,          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22