pkg/diagnostics/diagnostics_write.F

      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 "CPP_OPTIONS.h"
#include "SIZE.h"
#include "diagnostics_SIZE.h"
#include "diagnostics.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 ( mod(freq(n),myIter).eq.0 ) then
       call diagout(myThid,myIter,n)
       call clrindx(myThid,n)
      endif
      enddo

      return
      end
1	molod	1.2	subroutine diagnostics_write (myThid, myIter)
2	molod	1.1	C***********************************************************************
3			C Purpose
4			C -------
5	molod	1.2	C Output sequence for the (multiple) diagnostics output files
6	molod	1.1	C
7			C Arguments Description
8			C ----------------------
9	molod	1.2	C myIter ..... Current Iteration Number
10			C myThid ..... Current Process(or)
11	molod	1.1	C***********************************************************************
12	molod	1.2	implicit none
13			#include "CPP_OPTIONS.h"
14	molod	1.1	#include "SIZE.h"
15			#include "diagnostics_SIZE.h"
16			#include "diagnostics.h"
17
18	molod	1.2	integer myThid, myIter
19	molod	1.1
20			c Local variables
21			c ===============
22	molod	1.2	integer n
23	molod	1.1
24			C***********************************************************************
25	molod	1.2	C* Check to see if its time for Diagnostic Output *
26	molod	1.1	C***********************************************************************
27	molod	1.2	do n=1,nlists
28			if ( mod(freq(n),myIter).eq.0 ) then
29	molod	1.3	call diagout(myThid,myIter,n)
30	molod	1.2	call clrindx(myThid,n)
31	molod	1.1	endif
32			enddo
33
34			return
35			end