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

Diff of /MITgcm/pkg/diagnostics/diagnostics_utils.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 18:33:46 2004 UTC revision 1.7 by molod, Fri Apr 16 17:50:43 2004 UTC
# Line 15  C Line 15  C
15  C***********************************************************************          C***********************************************************************        
16        implicit none        implicit none
17    
18    #include "PACKAGES_CONFIG.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
21  #include "SIZE.h"  #include "SIZE.h"
# Line 23  C*************************************** Line 24  C***************************************
24  #include "fizhi_SIZE.h"  #include "fizhi_SIZE.h"
25  #else  #else
26         integer Nrphys         integer Nrphys
27         parameter (Nrphys=1)         parameter (Nrphys=0)
28  #endif  #endif
29    
30  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
# Line 89  C*************************************** Line 90  C***************************************
90  #include "fizhi_SIZE.h"  #include "fizhi_SIZE.h"
91  #else  #else
92         integer Nrphys         integer Nrphys
93         parameter (Nrphys=1)         parameter (Nrphys=0)
94  #endif  #endif
95    
96  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
# Line 143  C*************************************** Line 144  C***************************************
144  #include "EEPARAMS.h"  #include "EEPARAMS.h"
145  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
146  #include "SIZE.h"  #include "SIZE.h"
 #include "fizhi_SIZE.h"  
147  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
148  #include "diagnostics.h"  #include "diagnostics.h"
149    
# Line 189  C*************************************** Line 189  C***************************************
189  #include "EEPARAMS.h"  #include "EEPARAMS.h"
190  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
191  #include "SIZE.h"  #include "SIZE.h"
 #include "fizhi_SIZE.h"  
192  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
193  #include "diagnostics.h"  #include "diagnostics.h"
194    
# Line 230  C*************************************** Line 229  C***************************************
229        implicit none        implicit none
230  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
231  #include "SIZE.h"  #include "SIZE.h"
 #include "fizhi_SIZE.h"  
232  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
233  #include "diagnostics.h"  #include "diagnostics.h"
234    
# Line 260  C ************************************** Line 258  C **************************************
258            IDIAG(NUM) = IPOINTER            IDIAG(NUM) = IPOINTER
259            IPOINTER   = IPOINTER + KDIAG(NUM)            IPOINTER   = IPOINTER + KDIAG(NUM)
260            ndiagmx    = ndiagmx  + KDIAG(NUM)            ndiagmx    = ndiagmx  + KDIAG(NUM)
261            if(myThid.eq.0) WRITE(6,2000)KDIAG(NUM),NUM,CDIAG(NUM),ndiagmx            if(myThid.eq.1) WRITE(6,2000)KDIAG(NUM),NUM,CDIAG(NUM),ndiagmx
262          endif          endif
263        ELSE        ELSE
264            if(myThid.eq.0) WRITE(6,3000) NUM, CDIAG(NUM)            if(myThid.eq.1) WRITE(6,3000) NUM, CDIAG(NUM)
265        ENDIF        ENDIF
266    
267  c Check for Counter Diagnostic  c Check for Counter Diagnostic
# Line 278  c ---------------------------- Line 276  c ----------------------------
276          IDIAG(mate) = IPOINTER          IDIAG(mate) = IPOINTER
277          IPOINTER    = IPOINTER + KDIAG(mate)          IPOINTER    = IPOINTER + KDIAG(mate)
278          ndiagmx     = ndiagmx  + KDIAG(mate)          ndiagmx     = ndiagmx  + KDIAG(mate)
279          if(myThid.eq.0)WRITE(6,2000)KDIAG(mate),mate,CDIAG(mate),ndiagmx          if(myThid.eq.1)WRITE(6,2000)KDIAG(mate),mate,CDIAG(mate),ndiagmx
280         endif         endif
281        ELSE        ELSE
282            if(myThid.eq.0) WRITE(6,3000) mate, CDIAG(mate)            if(myThid.eq.1) WRITE(6,3000) mate, CDIAG(mate)
283        ENDIF        ENDIF
284        endif        endif
285    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22