pkg/diagnostics/diagstats_close_io.F

C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagstats_close_io.F,v 1.4 2011/07/01 18:28:52 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 ILNBLNK

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
1	C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagstats_close_io.F,v 1.4 2011/07/01 18:28:52 jmc Exp $
2	C $Name: $
3
4	#include "DIAG_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: DIAGSTATS_CLOSE_IO
8	C !INTERFACE:
9	SUBROUTINE DIAGSTATS_CLOSE_IO( myThid )
10
11	C !DESCRIPTION: \bv
12	C *==================================================================
13	C \| S/R DIAGSTATS_CLOSE_IO
14	C \| o Close I/O unit of ASCII output file
15	C *==================================================================
16	C \ev
17
18	C !USES:
19	IMPLICIT NONE
20
21	C == Global variables ===
22	#include "SIZE.h"
23	#include "EEPARAMS.h"
24	#include "PARAMS.h"
25	#include "DIAGNOSTICS_SIZE.h"
26	#include "DIAGNOSTICS.h"
27
28	C !INPUT/OUTPUT PARAMETERS:
29	C myThid :: my Thread Id number
30	INTEGER myThid
31
32	C !FUNCTIONS:
33	INTEGER ILNBLNK
34	EXTERNAL ILNBLNK
35
36	C !LOCAL VARIABLES:
37	INTEGER n, iL, nUnit
38	CHARACTER*(10) suff
39	CHARACTER*(MAX_LEN_FNAM) dataFName
40	CHARACTER*(MAX_LEN_MBUF) msgBuf
41	CEOP
42
43	_BEGIN_MASTER( myThid)
44
45	IF ( diagSt_Ascii .AND. myProcId.EQ.0 ) THEN
46
47	DO n=1,diagSt_nbLists
48
49	nUnit = diagSt_ioUnit(n)
50
51	C- write a conclusion & close the file:
52	WRITE(nUnit,'(A)') '# records End here.'
53	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))
61	WRITE(dataFName,'(4A)')
62	& diagSt_Fname(n)(1:iL), '.', suff, '.txt'
63	WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_CLOSE_IO: ',
64	& 'close file: ',dataFName(1:iL+15), ' , unit=', nUnit
65	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
66	& SQUEEZE_RIGHT, myThid )
67
68	ENDDO
69
70	ENDIF
71
72	C- Close also local diagnostics output file
73	IF ( diagLoc_ioUnit.GT.0 ) THEN
74	CLOSE(diagLoc_ioUnit)
75	ENDIF
76
77	_END_MASTER( myThid )
78
79	RETURN
80	END