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"
#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 ( mod(freq(n),myIter).eq.0 .and. myIter.ne.niter0) 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	molod	1.4	#include "EEPARAMS.h"
18			#include "PARAMS.h"
19	molod	1.1
20	molod	1.2	integer myThid, myIter
21	molod	1.1
22			c Local variables
23			c ===============
24	molod	1.2	integer n
25	molod	1.1
26			C***********************************************************************
27	molod	1.2	C* Check to see if its time for Diagnostic Output *
28	molod	1.1	C***********************************************************************
29	molod	1.2	do n=1,nlists
30	molod	1.4	if ( mod(freq(n),myIter).eq.0 .and. myIter.ne.niter0) then
31	molod	1.3	call diagout(myThid,myIter,n)
32	molod	1.2	call clrindx(myThid,n)
33	molod	1.1	endif
34			enddo
35
36			return
37			end