/[MITgcm]/MITgcm/pkg/layers/layers_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/layers/layers_diagnostics_init.F

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

revision 1.2 by gforget, Wed Sep 19 18:48:18 2012 UTC revision 1.3 by gforget, Wed Sep 19 22:46:56 2012 UTC
# Line 51  C     myThid ::  my Thread Id number Line 51  C     myThid ::  my Thread Id number
51        diagTitle = 'Layer Integrated U (UH in m2/s)'        diagTitle = 'Layer Integrated U (UH in m2/s)'
52        diagUnits = 'm2/s             '        diagUnits = 'm2/s             '
53        diagCode  = 'UU      MX      '        diagCode  = 'UU      MX      '
54    #ifdef LAYERS_VFLUX
55        diagMate  = diagNum + 2        diagMate  = diagNum + 2
56    #else
57          diagMate  = 0
58    #endif
59        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
60       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
61        CALL DIAGNOSTICS_SETKLEV( diagName, Nlayers , myThid )        CALL DIAGNOSTICS_SETKLEV( diagName, Nlayers , myThid )
# Line 62  C     myThid ::  my Thread Id number Line 66  C     myThid ::  my Thread Id number
66        diagTitle = 'Layer Integrated V (VH m2/s)'        diagTitle = 'Layer Integrated V (VH m2/s)'
67        diagUnits = 'm2/s             '        diagUnits = 'm2/s             '
68        diagCode  = 'VV      MX      '        diagCode  = 'VV      MX      '
69    #ifdef LAYERS_UFLUX
70        diagMate  = diagNum        diagMate  = diagNum
71    #else
72          diagMate  = 0
73    #endif
74        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
75       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
76        CALL DIAGNOSTICS_SETKLEV( diagName, Nlayers , myThid )        CALL DIAGNOSTICS_SETKLEV( diagName, Nlayers , myThid )
# Line 74  C     myThid ::  my Thread Id number Line 82  C     myThid ::  my Thread Id number
82        diagTitle = 'Layer Thickness at U points (m)'        diagTitle = 'Layer Thickness at U points (m)'
83        diagUnits = 'm             '        diagUnits = 'm             '
84        diagCode  = 'UU      MX      '        diagCode  = 'UU      MX      '
85    #ifdef LAYERS_VFLUX
86        diagMate  = diagNum + 2        diagMate  = diagNum + 2
87    #else
88          diagMate  = 0
89    #endif
90        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
91       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
92        CALL DIAGNOSTICS_SETKLEV( diagName, Nlayers , myThid )        CALL DIAGNOSTICS_SETKLEV( diagName, Nlayers , myThid )
# Line 85  C     myThid ::  my Thread Id number Line 97  C     myThid ::  my Thread Id number
97        diagTitle = 'Layer Thickness at V points (m)'        diagTitle = 'Layer Thickness at V points (m)'
98        diagUnits = 'm             '        diagUnits = 'm             '
99        diagCode  = 'VV      MX      '        diagCode  = 'VV      MX      '
100    #ifdef LAYERS_UFLUX
101        diagMate  = diagNum        diagMate  = diagNum
102    #else
103          diagMate  = 0
104    #endif
105        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
106       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
107        CALL DIAGNOSTICS_SETKLEV( diagName, Nlayers , myThid )        CALL DIAGNOSTICS_SETKLEV( diagName, Nlayers , myThid )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22