/[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.3 by molod, Thu Feb 26 22:08:49 2004 UTC revision 1.4 by molod, Thu Feb 26 22:49:39 2004 UTC
# Line 14  C*************************************** Line 14  C***************************************
14  #include "SIZE.h"  #include "SIZE.h"
15  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
16  #include "diagnostics.h"  #include "diagnostics.h"
17    #include "EEPARAMS.h"
18    #include "PARAMS.h"
19    
20        integer myThid, myIter        integer myThid, myIter
21    
# Line 25  C*************************************** Line 27  C***************************************
27  C***   Check to see if its time for Diagnostic Output                ***  C***   Check to see if its time for Diagnostic Output                ***
28  C***********************************************************************  C***********************************************************************
29        do n=1,nlists        do n=1,nlists
30        if ( mod(freq(n),myIter).eq.0 ) then        if ( mod(freq(n),myIter).eq.0 .and. myIter.ne.niter0) then
31         call diagout(myThid,myIter,n)         call diagout(myThid,myIter,n)
32         call clrindx(myThid,n)         call clrindx(myThid,n)
33        endif        endif
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22