/[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.4 by molod, Thu Feb 26 22:49:39 2004 UTC revision 1.5 by molod, Fri Feb 27 23:46:52 2004 UTC
# Line 27  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 .and. myIter.ne.niter0) then        if ( myIter.ne.niter0) then
31         call diagout(myThid,myIter,n)         if ( mod(myIter,freq(n)).eq.0 ) then
32         call clrindx(myThid,n)          call diagout(myThid,myIter,n)
33            call clrindx(myThid,n)
34           endif
35        endif        endif
36        enddo        enddo
37    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22