/[MITgcm]/MITgcm_contrib/darwin2/pkg/monod/monod_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/monod/monod_diagnostics_init.F

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

revision 1.1 by jahn, Wed Apr 13 18:56:25 2011 UTC revision 1.2 by jahn, Wed Nov 9 23:34:17 2011 UTC
# Line 143  C---+----1----+----2----+----3----+----4 Line 143  C---+----1----+----2----+----3----+----4
143        diagCode  = 'SM P    MR      '        diagCode  = 'SM P    MR      '
144        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
145       I             diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I             diagName, diagCode, diagUnits, diagTitle, 0, myThid )
146          
147          diagName = 'Shannon '
148          WRITE(diagTitle, '(A)')
149         &    '# Shannon index'
150          diagUnits = '1               '
151          diagCode  = 'SM P    MR      '
152          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
153         I             diagName, diagCode, diagUnits, diagTitle, 0, myThid )
154          
155          diagName = 'Simpson '
156          WRITE(diagTitle, '(A)')
157         &    '# Simpson diversity index 1/sum p*p'
158          diagUnits = '1               '
159          diagCode  = 'SM P    MR      '
160          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
161         I             diagName, diagCode, diagUnits, diagTitle, 0, myThid )
162  #endif /* DAR_DIAG_DIVER */  #endif /* DAR_DIAG_DIVER */
163    
164  #ifdef ALLOW_DIAZ  #ifdef ALLOW_DIAZ
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22