pkg/diagnostics/diagstats_close_io.F

C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagstats_close_io.F,v 1.3 2010/01/13 01:44:12 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     == Routine arguments ==
C     myThid  :: my Thread Id number
      INTEGER myThid
CEOP

C     !LOCAL VARIABLES:
C     == Local variables ==
      INTEGER  n, iL, nUnit
      CHARACTER*(MAX_LEN_FNAM) dataFName
      CHARACTER*(MAX_LEN_MBUF) msgBuf
      INTEGER  ILNBLNK
      EXTERNAL ILNBLNK

      _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)

          iL = ILNBLNK(diagSt_Fname(n))
          WRITE(dataFName,'(2A,I10.10,A)')
     &          diagSt_Fname(n)(1:iL), '.', nIter0, '.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	jmc	1.4	C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagstats_close_io.F,v 1.3 2010/01/13 01:44:12 jmc Exp $
2	jmc	1.1	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 == Routine arguments ==
30	jmc	1.3	C myThid :: my Thread Id number
31	jmc	1.1	INTEGER myThid
32			CEOP
33
34			C !LOCAL VARIABLES:
35			C == Local variables ==
36			INTEGER n, iL, nUnit
37			CHARACTER*(MAX_LEN_FNAM) dataFName
38			CHARACTER*(MAX_LEN_MBUF) msgBuf
39			INTEGER ILNBLNK
40			EXTERNAL ILNBLNK
41
42			_BEGIN_MASTER( myThid)
43
44	jmc	1.3	IF ( diagSt_Ascii .AND. myProcId.EQ.0 ) THEN
45	jmc	1.1
46			DO n=1,diagSt_nbLists
47
48			nUnit = diagSt_ioUnit(n)
49
50			C- write a conclusion & close the file:
51			WRITE(nUnit,'(A)') '# records End here.'
52			CLOSE(nUnit)
53
54			iL = ILNBLNK(diagSt_Fname(n))
55			WRITE(dataFName,'(2A,I10.10,A)')
56			& diagSt_Fname(n)(1:iL), '.', nIter0, '.txt'
57	jmc	1.2	WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_CLOSE_IO: ',
58	jmc	1.1	& 'close file: ',dataFName(1:iL+15), ' , unit=', nUnit
59			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
60			& SQUEEZE_RIGHT , myThid)
61
62			ENDDO
63	jmc	1.2
64	jmc	1.1	ENDIF
65
66	jmc	1.4	C- Close also local diagnostics output file
67			IF ( diagLoc_ioUnit.GT.0 ) THEN
68			CLOSE(diagLoc_ioUnit)
69			ENDIF
70
71	jmc	1.1	_END_MASTER( myThid )
72
73			RETURN
74			END