/[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.2 by molod, Thu Feb 26 02:21:18 2004 UTC revision 1.3 by molod, Thu Feb 26 22:08:49 2004 UTC
# Line 12  C*************************************** Line 12  C***************************************
12         implicit none         implicit none
13  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
14  #include "SIZE.h"  #include "SIZE.h"
 #include "fizhi_SIZE.h"  
15  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
16  #include "diagnostics.h"  #include "diagnostics.h"
17    
# Line 27  C***   Check to see if its time for Diag Line 26  C***   Check to see if its time for Diag
26  C***********************************************************************  C***********************************************************************
27        do n=1,nlists        do n=1,nlists
28        if ( mod(freq(n),myIter).eq.0 ) then        if ( mod(freq(n),myIter).eq.0 ) then
29         call diagout(myThid,n)         call diagout(myThid,myIter,n)
30         call clrindx(myThid,n)         call clrindx(myThid,n)
31        endif        endif
32        enddo        enddo
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22