/[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.6 by edhill, Wed May 5 00:39:21 2004 UTC revision 1.7 by edhill, Tue Jul 6 03:55:53 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "DIAG_OPTIONS.h"
5    
6        subroutine diagnostics_write (myThid, myIter)        subroutine diagnostics_write (myThid, myIter)
7  C***********************************************************************  C***********************************************************************
8  C  Purpose  C  Purpose
# Line 13  C     myIter ..... Current Iteration Num Line 15  C     myIter ..... Current Iteration Num
15  C     myThid ..... Current Process(or)  C     myThid ..... Current Process(or)
16  C***********************************************************************  C***********************************************************************
17         implicit none         implicit none
 #include "CPP_OPTIONS.h"  
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
20  #include "diagnostics.h"  #include "diagnostics.h"
# Line 29  c =============== Line 30  c ===============
30  C***********************************************************************  C***********************************************************************
31  C***   Check to see if its time for Diagnostic Output                ***  C***   Check to see if its time for Diagnostic Output                ***
32  C***********************************************************************  C***********************************************************************
33        do n=1,nlists        do n = 1,nlists
34        if ( myIter.ne.niter0) then          if ( myIter.ne.niter0) then
35         if ( mod(myIter,freq(n)).eq.0 ) then            if ( mod(myIter,freq(n)).eq.0 ) then
36          call diagout(myThid,myIter,n)              call diagout(myThid,myIter,n)
37          call clrindx(myThid,n)              call clrindx(myThid,n)
38         endif            endif
39        endif          endif
40        enddo        enddo
41    
42        return        return
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22