/[MITgcm]/MITgcm/pkg/exch2/w2_eeboot.F
ViewVC logotype

Diff of /MITgcm/pkg/exch2/w2_eeboot.F

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

revision 1.8 by jmc, Wed Apr 29 19:44:44 2009 UTC revision 1.9 by jmc, Wed Apr 29 21:37:46 2009 UTC
# Line 95  C     Open message output-file (if neede Line 95  C     Open message output-file (if neede
95          CALL MDSFINDUNIT( W2_oUnit, myThid )          CALL MDSFINDUNIT( W2_oUnit, myThid )
96          OPEN( W2_oUnit, file=fName(1:iLen),          OPEN( W2_oUnit, file=fName(1:iLen),
97       &                  status='unknown', form='formatted')       &                  status='unknown', form='formatted')
98  c       WRITE(msgBuf,'(2AA)') '  repport on file: ', fName(1:iLen)          WRITE(msgBuf,'(2A)') ' write to log-file: ', fName(1:iLen)
         WRITE(msgBuf,'(2AA)') ' write to log-file: ', fName(1:iLen)  
99          CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid )          CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid )
100        ENDIF        ENDIF
101    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22