pkg/diagnostics/diagnostics_write.F

C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagnostics_write.F,v 1.7 2004/07/06 03:55:53 edhill Exp $
C $Name:  $

#include "DIAG_OPTIONS.h"

      SUBROUTINE DIAGNOSTICS_WRITE ( myIter, myThid ) 
C***********************************************************************
C  Purpose
C  -------
C    Output sequence for the (multiple) diagnostics output files
C
C  Arguments  Description
C  ----------------------
C     myIter ..... Current Iteration Number
C     myThid ..... my thread Id number
C***********************************************************************
       IMPLICIT NONE
#include "SIZE.h"
#include "DIAGNOSTICS_SIZE.h"
#include "DIAGNOSTICS.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

      INTEGER myIter, myThid

c Local variables
c ===============
      INTEGER   n

      IF ( myIter.ne.nIter0 ) THEN

C***********************************************************************
C***   Check to see IF its time for Diagnostic Output                ***
C***********************************************************************

        DO n = 1,nlists
          IF ( MOD(myIter,freq(n)).EQ.0 ) THEN
            CALL DIAGNOSTICS_OUT(n,myIter,myThid)
          ENDIF
        ENDDO

C-      wait for everyone before setting arrays to zero: 
        _BARRIER
        DO n = 1,nlists
          IF ( MOD(myIter,freq(n)).EQ.0 ) CALL CLRINDX(n,myThid)
        ENDDO

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
      ENDIF

      RETURN 
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagnostics_write.F,v 1.7 2004/07/06 03:55:53 edhill Exp $
2	C $Name: $
3
4	#include "DIAG_OPTIONS.h"
5
6	SUBROUTINE DIAGNOSTICS_WRITE ( myIter, myThid )
7	C***********************************************************************
8	C Purpose
9	C -------
10	C Output sequence for the (multiple) diagnostics output files
11	C
12	C Arguments Description
13	C ----------------------
14	C myIter ..... Current Iteration Number
15	C myThid ..... my thread Id number
16	C***********************************************************************
17	IMPLICIT NONE
18	#include "SIZE.h"
19	#include "DIAGNOSTICS_SIZE.h"
20	#include "DIAGNOSTICS.h"
21	#include "EEPARAMS.h"
22	#include "PARAMS.h"
23
24	INTEGER myIter, myThid
25
26	c Local variables
27	c ===============
28	INTEGER n
29
30	IF ( myIter.ne.nIter0 ) THEN
31
32	C***********************************************************************
33	C* Check to see IF its time for Diagnostic Output *
34	C***********************************************************************
35
36	DO n = 1,nlists
37	IF ( MOD(myIter,freq(n)).EQ.0 ) THEN
38	CALL DIAGNOSTICS_OUT(n,myIter,myThid)
39	ENDIF
40	ENDDO
41
42	C- wait for everyone before setting arrays to zero:
43	_BARRIER
44	DO n = 1,nlists
45	IF ( MOD(myIter,freq(n)).EQ.0 ) CALL CLRINDX(n,myThid)
46	ENDDO
47
48	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
49	ENDIF
50
51	RETURN
52	END