/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_main_init.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_main_init.F

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

revision 1.37 by jmc, Fri Jan 15 00:24:37 2010 UTC revision 1.38 by jmc, Tue Jun 14 00:18:37 2011 UTC
# Line 36  C                   &  r  &  same but cu Line 36  C                   &  r  &  same but cu
36  C                   &  R  &  same but cumulate product by hFac & level thickness \\  C                   &  R  &  same but cumulate product by hFac & level thickness \\
37  C         parse(4)  &  P  &  positive definite  \\  C         parse(4)  &  P  &  positive definite  \\
38  C         parse(5 ) &  C  &  with counter array  \\  C         parse(5 ) &  C  &  with counter array  \\
39    C                   &  P  &  post-processed (not filled up) from other diags  \\
40  C                   &  D  &  disable an array for output  \\  C                   &  D  &  disable an array for output  \\
41  C         parse(6--8) & '123'  &  retired, formerly: 3-digit mate number \\  C         parse(6--8) & '123'  &  retired, formerly: 3-digit mate number \\
42  C         parse(9)  &  U  &  model-level plus 1/2  \\  C         parse(9)  &  U  &  model-level plus 1/2  \\
# Line 334  c    I          diagName, diagCode, diag Line 335  c    I          diagName, diagCode, diag
335        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
336       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
337    
338          diagName  = 'PhiVEL  '
339          diagTitle = 'Horizontal Velocity Potential (m^2/s)'
340          diagUnits = 'm^2/s           '
341          diagCode  = 'SMR P   MR      '
342    C-    use 'UVELMASS' as mate.
343          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
344         I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
345    
346    c     diagName  = 'PsiVEL  '
347    c     diagTitle = 'Horizontal Velocity Stream-Function'
348    c     diagUnits = 'm^2/s           '
349    c     diagUnits = DIAGS_MK_UNITS( rUnit2c//'.m^2/s', myThid )
350    c     diagCode  = 'SZ  P   MR      '
351    C-    use 'PhiVEL' as mate.
352    c     diagMate  = diagNum
353    c     CALL DIAGNOSTICS_ADDTOLIST( diagNum,
354    c    I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
355    
356        diagName  = 'UTHMASS '        diagName  = 'UTHMASS '
357        diagTitle = 'Zonal Mass-Weight Transp of Pot Temp'        diagTitle = 'Zonal Mass-Weight Transp of Pot Temp'
358        diagUnits = DIAGS_MK_UNITS( tUnit4c//'.m/s', myThid )        diagUnits = DIAGS_MK_UNITS( tUnit4c//'.m/s', myThid )
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22