/[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.4 by jmc, Fri Jul 1 18:28:52 2011 UTC revision 1.5 by jmc, Fri Mar 24 23:34:13 2017 UTC
# Line 26  C     == Global variables === Line 26  C     == Global variables ===
26  #include "DIAGNOSTICS.h"  #include "DIAGNOSTICS.h"
27    
28  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
29  C     == Routine arguments ==  C     myThid   :: my Thread Id number
 C     myThid  :: my Thread Id number  
30        INTEGER myThid        INTEGER myThid
31  CEOP  
32    C     !FUNCTIONS:
33          INTEGER  ILNBLNK
34          EXTERNAL ILNBLNK
35    
36  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
 C     == Local variables ==  
37        INTEGER  n, iL, nUnit        INTEGER  n, iL, nUnit
38          CHARACTER*(10) suff
39        CHARACTER*(MAX_LEN_FNAM) dataFName        CHARACTER*(MAX_LEN_FNAM) dataFName
40        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
41        INTEGER  ILNBLNK  CEOP
       EXTERNAL ILNBLNK  
42    
43        _BEGIN_MASTER( myThid)        _BEGIN_MASTER( myThid)
44    
# Line 51  C-      write a conclusion & close the f Line 52  C-      write a conclusion & close the f
52            WRITE(nUnit,'(A)') '# records End here.'            WRITE(nUnit,'(A)') '# records End here.'
53            CLOSE(nUnit)            CLOSE(nUnit)
54    
55              IF ( rwSuffixType.EQ.0 ) THEN
56                WRITE(suff,'(I10.10)') nIter0
57              ELSE
58                CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid )
59              ENDIF
60            iL = ILNBLNK(diagSt_Fname(n))            iL = ILNBLNK(diagSt_Fname(n))
61            WRITE(dataFName,'(2A,I10.10,A)')            WRITE(dataFName,'(4A)')
62       &          diagSt_Fname(n)(1:iL), '.', nIter0, '.txt'       &          diagSt_Fname(n)(1:iL), '.', suff, '.txt'
63            WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_CLOSE_IO: ',            WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_CLOSE_IO: ',
64       &         'close file: ',dataFName(1:iL+15), ' , unit=', nUnit       &         'close file: ',dataFName(1:iL+15), ' , unit=', nUnit
65            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
66       &                        SQUEEZE_RIGHT , myThid)       &                        SQUEEZE_RIGHT, myThid )
67    
68          ENDDO          ENDDO
69    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22