pkg/diagnostics/diagnostics_write.F

C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagnostics_write.F,v 1.6 2004/05/05 00:39:21 edhill Exp $
C $Name:  $

#include "DIAG_OPTIONS.h"

      subroutine diagnostics_write (myThid, myIter) 
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 ..... Current Process(or)
C***********************************************************************
       implicit none
#include "SIZE.h"
#include "diagnostics_SIZE.h"
#include "diagnostics.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

      integer myThid, myIter

c Local variables
c ===============
      integer   n

C***********************************************************************
C***   Check to see if its time for Diagnostic Output                ***
C***********************************************************************
      do n = 1,nlists
        if ( myIter.ne.niter0) then
          if ( mod(myIter,freq(n)).eq.0 ) then
            call diagout(myThid,myIter,n)
            call clrindx(myThid,n)
          endif
        endif
      enddo

      return
      end
1	edhill	1.7	C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagnostics_write.F,v 1.6 2004/05/05 00:39:21 edhill Exp $
2	edhill	1.6	C $Name: $
3
4	edhill	1.7	#include "DIAG_OPTIONS.h"
5
6	molod	1.2	subroutine diagnostics_write (myThid, myIter)
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			C myThid ..... Current Process(or)
16	molod	1.1	C***********************************************************************
17	molod	1.2	implicit none
18	molod	1.1	#include "SIZE.h"
19			#include "diagnostics_SIZE.h"
20			#include "diagnostics.h"
21	molod	1.4	#include "EEPARAMS.h"
22			#include "PARAMS.h"
23	molod	1.1
24	molod	1.2	integer myThid, myIter
25	molod	1.1
26			c Local variables
27			c ===============
28	molod	1.2	integer n
29	molod	1.1
30			C***********************************************************************
31	molod	1.2	C* Check to see if its time for Diagnostic Output *
32	molod	1.1	C***********************************************************************
33	edhill	1.7	do n = 1,nlists
34			if ( myIter.ne.niter0) then
35			if ( mod(myIter,freq(n)).eq.0 ) then
36			call diagout(myThid,myIter,n)
37			call clrindx(myThid,n)
38			endif
39			endif
40	molod	1.1	enddo
41
42			return
43			end