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

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

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

revision 1.1 by jmc, Fri May 20 07:28:51 2005 UTC revision 1.2 by jmc, Tue Feb 5 15:31:19 2008 UTC
# Line 59  C-      write a conclusion & close the f Line 59  C-      write a conclusion & close the f
59            iL = ILNBLNK(diagSt_Fname(n))            iL = ILNBLNK(diagSt_Fname(n))
60            WRITE(dataFName,'(2A,I10.10,A)')            WRITE(dataFName,'(2A,I10.10,A)')
61       &          diagSt_Fname(n)(1:iL), '.', nIter0, '.txt'       &          diagSt_Fname(n)(1:iL), '.', nIter0, '.txt'
62            WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_CLOSE_IO: ',            WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_CLOSE_IO: ',
63       &         'close file: ',dataFName(1:iL+15), ' , unit=', nUnit       &         'close file: ',dataFName(1:iL+15), ' , unit=', nUnit
64            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
65       &                        SQUEEZE_RIGHT , myThid)       &                        SQUEEZE_RIGHT , myThid)
66    
67          ENDDO          ENDDO
68          
69        ENDIF        ENDIF
70    
71        _END_MASTER( myThid )        _END_MASTER( myThid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22