/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_init_diagnostics.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_init_diagnostics.F

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

revision 1.4 by dgoldberg, Thu Sep 27 20:29:00 2012 UTC revision 1.5 by dgoldberg, Sat Jun 8 22:15:33 2013 UTC
# Line 102  C     myThid ::  my Thread Id number Line 102  C     myThid ::  my Thread Id number
102        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
103       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
104    
105          diagName  = 'SI2Dtrac'
106          diagTitle = 'Ice stream 2d tracer'
107          diagUnits = 'none       '
108          diagCode  = 'SM      L1      '
109          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
110         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
111    
112        WRITE(msgBuf,'(A)') 'ADDED DIAGS TO LIST'        WRITE(msgBuf,'(A)') 'ADDED DIAGS TO LIST'
113         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
114       &                     SQUEEZE_RIGHT , 1)       &                     SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22