/[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.2 by dgoldberg, Fri Apr 20 14:09:13 2012 UTC revision 1.3 by dgoldberg, Thu Jul 26 16:13:18 2012 UTC
# Line 26  C     !USES: Line 26  C     !USES:
26        INTEGER myThid        INTEGER myThid
27    
28  #ifdef ALLOW_STREAMICE  #ifdef ALLOW_STREAMICE
29    
30          CHARACTER*(MAX_LEN_MBUF) msgBuf
31  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
32    
33  C     myThid ::  my Thread Id number  C     myThid ::  my Thread Id number
# Line 80  C     myThid ::  my Thread Id number Line 82  C     myThid ::  my Thread Id number
82       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
83    
84    
85        PRINT *, "ADDED DIAGS TO LIST"        WRITE(msgBuf,'(A)') 'ADDED DIAGS TO LIST'
86           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
87         &                     SQUEEZE_RIGHT , 1)
88    
89    
90  #endif  #endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22