C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagstats_close_io.F,v 1.5 2017/03/24 23:34:13 jmc Exp $ C $Name: $ #include "DIAG_OPTIONS.h" CBOP C !ROUTINE: DIAGSTATS_CLOSE_IO C !INTERFACE: SUBROUTINE DIAGSTATS_CLOSE_IO( myThid ) C !DESCRIPTION: \bv C *================================================================== C | S/R DIAGSTATS_CLOSE_IO C | o Close I/O unit of ASCII output file C *================================================================== C \ev C !USES: IMPLICIT NONE C == Global variables === #include "SIZE.h" #include "EEPARAMS.h" #include "PARAMS.h" #include "DIAGNOSTICS_SIZE.h" #include "DIAGNOSTICS.h" C !INPUT/OUTPUT PARAMETERS: C myThid :: my Thread Id number INTEGER myThid C !FUNCTIONS: INTEGER ILNBLNK EXTERNAL C !LOCAL VARIABLES: INTEGER n, iL, nUnit CHARACTER*(10) suff CHARACTER*(MAX_LEN_FNAM) dataFName CHARACTER*(MAX_LEN_MBUF) msgBuf CEOP _BEGIN_MASTER( myThid) IF ( diagSt_Ascii .AND. myProcId.EQ.0 ) THEN DO n=1,diagSt_nbLists nUnit = diagSt_ioUnit(n) C- write a conclusion & close the file: WRITE(nUnit,'(A)') '# records End here.' CLOSE(nUnit) IF ( rwSuffixType.EQ.0 ) THEN WRITE(suff,'(I10.10)') nIter0 ELSE CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) ENDIF iL = ILNBLNK(diagSt_Fname(n)) WRITE(dataFName,'(4A)') & diagSt_Fname(n)(1:iL), '.', suff, '.txt' WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_CLOSE_IO: ', & 'close file: ',dataFName(1:iL+15), ' , unit=', nUnit CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, & SQUEEZE_RIGHT, myThid ) ENDDO ENDIF C- Close also local diagnostics output file IF ( diagLoc_ioUnit.GT.0 ) THEN CLOSE(diagLoc_ioUnit) ENDIF _END_MASTER( myThid ) RETURN END