/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_write.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_write.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by edhill, Tue Jul 6 03:55:53 2004 UTC revision 1.8 by jmc, Mon Dec 13 21:55:48 2004 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "DIAG_OPTIONS.h"  #include "DIAG_OPTIONS.h"
5    
6        subroutine diagnostics_write (myThid, myIter)        SUBROUTINE DIAGNOSTICS_WRITE ( myIter, myThid )
7  C***********************************************************************  C***********************************************************************
8  C  Purpose  C  Purpose
9  C  -------  C  -------
# Line 12  C Line 12  C
12  C  Arguments  Description  C  Arguments  Description
13  C  ----------------------  C  ----------------------
14  C     myIter ..... Current Iteration Number  C     myIter ..... Current Iteration Number
15  C     myThid ..... Current Process(or)  C     myThid ..... my thread Id number
16  C***********************************************************************  C***********************************************************************
17         implicit none         IMPLICIT NONE
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "diagnostics_SIZE.h"  #include "DIAGNOSTICS_SIZE.h"
20  #include "diagnostics.h"  #include "DIAGNOSTICS.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23    
24        integer myThid, myIter        INTEGER myIter, myThid
25    
26  c Local variables  c Local variables
27  c ===============  c ===============
28        integer   n        INTEGER   n
29    
30          IF ( myIter.ne.nIter0 ) THEN
31    
32  C***********************************************************************  C***********************************************************************
33  C***   Check to see if its time for Diagnostic Output                ***  C***   Check to see IF its time for Diagnostic Output                ***
34  C***********************************************************************  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  
35    
36        return          DO n = 1,nlists
37        end            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
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22