/[MITgcm]/MITgcm/pkg/longstep/longstep_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/longstep/longstep_diagnostics_init.F

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

revision 1.1 by jahn, Fri Jun 26 23:10:10 2009 UTC revision 1.2 by jmc, Tue Jan 12 21:34:09 2010 UTC
# Line 27  CEOP Line 27  CEOP
27  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
28  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
29  C     === Local variables ===  C     === Local variables ===
30  C     msgBuf      - Informational/error meesage buffer  C     msgBuf      - Informational/error message buffer
31  c     CHARACTER*(MAX_LEN_MBUF) msgBuf  c     CHARACTER*(MAX_LEN_MBUF) msgBuf
32    
33        INTEGER       diagNum        INTEGER       diagNum
# Line 49  C--   Add diagnostics to the (long) list Line 49  C--   Add diagnostics to the (long) list
49        diagName  = 'LSuVel  '        diagName  = 'LSuVel  '
50        diagTitle = 'Zonal Component of Velocity (m/s)'        diagTitle = 'Zonal Component of Velocity (m/s)'
51        diagUnits = 'm/s             '        diagUnits = 'm/s             '
52        diagCode  = 'UU      MR      '        diagCode  = 'UUR     MR      '
53        diagMate  = diagNum + 2        diagMate  = diagNum + 2
54        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
55       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
# Line 57  C--   Add diagnostics to the (long) list Line 57  C--   Add diagnostics to the (long) list
57        diagName  = 'LSvVel  '        diagName  = 'LSvVel  '
58        diagTitle = 'Meridional Component of Velocity (m/s)'        diagTitle = 'Meridional Component of Velocity (m/s)'
59        diagUnits = 'm/s             '        diagUnits = 'm/s             '
60        diagCode  = 'VV      MR      '        diagCode  = 'VVR     MR      '
61        diagMate  = diagNum        diagMate  = diagNum
62        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
63       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
# Line 65  C--   Add diagnostics to the (long) list Line 65  C--   Add diagnostics to the (long) list
65        diagName  = 'LStheta '        diagName  = 'LStheta '
66        diagTitle = 'Potential Temperature'        diagTitle = 'Potential Temperature'
67        diagUnits = 'degC            '        diagUnits = 'degC            '
68        diagCode  = 'SM      MR      '        diagCode  = 'SMR     MR      '
69        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
70       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
71    
72        diagName  = 'LSsalt  '        diagName  = 'LSsalt  '
73        diagTitle = 'Salinity'        diagTitle = 'Salinity'
74        diagUnits = 'psu             '        diagUnits = 'psu             '
75        diagCode  = 'SM      MR      '        diagCode  = 'SMR     MR      '
76        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
77       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
78    
# Line 99  C--   Add diagnostics to the (long) list Line 99  C--   Add diagnostics to the (long) list
99         diagName  = 'LSkwx   '         diagName  = 'LSkwx   '
100         diagTitle = 'K_31 element (W.point, X.dir) of GM-Redi tensor'         diagTitle = 'K_31 element (W.point, X.dir) of GM-Redi tensor'
101         diagUnits = 'm^2/s           '         diagUnits = 'm^2/s           '
102         WRITE(diagCode,'(A,I3.3,A)') 'UM   ',diagNum+2,'LR      '         diagCode  = 'UM      LR      '
103         CALL DIAGNOSTICS_ADD2LIST( diagNum,         diagMate  = diagNum + 2
104       I          diagName, diagCode, diagUnits, diagTitle, myThid )         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
105         I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
106    
107         diagName  = 'LSkwy   '         diagName  = 'LSkwy   '
108         diagTitle = 'K_32 element (W.point, Y.dir) of GM-Redi tensor'         diagTitle = 'K_32 element (W.point, Y.dir) of GM-Redi tensor'
109         diagUnits = 'm^2/s           '         diagUnits = 'm^2/s           '
110         WRITE(diagCode,'(A,I3.3,A)') 'VM   ', diagNum ,'LR      '         diagCode  = 'VM      LR      '
111         CALL DIAGNOSTICS_ADD2LIST( diagNum,         diagMate  = diagNum
112       I          diagName, diagCode, diagUnits, diagTitle, myThid )         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
113         I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
114    
115         diagName  = 'LSkwz   '         diagName  = 'LSkwz   '
116         diagTitle = 'K_33 element (W.point, Z.dir) of GM-Redi tensor'         diagTitle = 'K_33 element (W.point, Z.dir) of GM-Redi tensor'
117         diagUnits = 'm^2/s           '         diagUnits = 'm^2/s           '
118         diagCode  = 'WM P    LR      '         diagCode  = 'WM P    LR      '
119         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
120       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
121        ENDIF        ENDIF
122  #endif  #endif
123    
# Line 124  C--   Add diagnostics to the (long) list Line 126  C--   Add diagnostics to the (long) list
126         diagName  = 'LSKPPdfS'         diagName  = 'LSKPPdfS'
127         diagTitle = 'Vertical diffusion coefficient for salt & tracers'         diagTitle = 'Vertical diffusion coefficient for salt & tracers'
128         diagUnits = 'm^2/s           '         diagUnits = 'm^2/s           '
129         diagCode  = 'SM P    UR      '         diagCode  = 'SM P    LR      '
130         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
131       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
132    
133         diagName  = 'LSKPPght'         diagName  = 'LSKPPght'
134         diagTitle = 'Nonlocal transport coefficient'         diagTitle = 'Nonlocal transport coefficient'
135         diagUnits = 's/m^2           '         diagUnits = 's/m^2           '
136         diagCode  = 'SM P    LR      '         diagCode  = 'SM P    LR      '
137         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
138       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
139        ENDIF        ENDIF
140  #endif /* ALLOW_KPP */  #endif /* ALLOW_KPP */
141    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22