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	jmc	1.8	C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagnostics_write.F,v 1.7 2004/07/06 03:55:53 edhill Exp $
2	edhill	1.6	C $Name: $
3
4	edhill	1.7	#include "DIAG_OPTIONS.h"
5
6	jmc	1.8	SUBROUTINE DIAGNOSTICS_WRITE ( myIter, myThid )
7	molod	1.1	C***********************************************************************
8			C Purpose
9			C -------
10	molod	1.2	C Output sequence for the (multiple) diagnostics output files
11	molod	1.1	C
12			C Arguments Description
13			C ----------------------
14	molod	1.2	C myIter ..... Current Iteration Number
15	jmc	1.8	C myThid ..... my thread Id number
16	molod	1.1	C***********************************************************************
17	jmc	1.8	IMPLICIT NONE
18	molod	1.1	#include "SIZE.h"
19	jmc	1.8	#include "DIAGNOSTICS_SIZE.h"
20			#include "DIAGNOSTICS.h"
21	molod	1.4	#include "EEPARAMS.h"
22			#include "PARAMS.h"
23	molod	1.1
24	jmc	1.8	INTEGER myIter, myThid
25	molod	1.1
26			c Local variables
27			c ===============
28	jmc	1.8	INTEGER n
29
30			IF ( myIter.ne.nIter0 ) THEN
31	molod	1.1
32			C***********************************************************************
33	jmc	1.8	C* Check to see IF its time for Diagnostic Output *
34	molod	1.1	C***********************************************************************
35
36	jmc	1.8	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