/[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.8 by edhill, Wed May 5 00:39:21 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4        subroutine getdiag (myThid,lev,ipoint,undef,qtmp)        subroutine getdiag (myThid,lev,ipoint,undef,qtmp)
5  C***********************************************************************          C***********************************************************************        
6  C  PURPOSE                                                                        C  PURPOSE                                                                      
# Line 15  C Line 18  C
18  C***********************************************************************          C***********************************************************************        
19        implicit none        implicit none
20    
21    #include "PACKAGES_CONFIG.h"
22  #include "EEPARAMS.h"  #include "EEPARAMS.h"
23  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
24  #include "SIZE.h"  #include "SIZE.h"
# Line 23  C*************************************** Line 27  C***************************************
27  #include "fizhi_SIZE.h"  #include "fizhi_SIZE.h"
28  #else  #else
29         integer Nrphys         integer Nrphys
30         parameter (Nrphys=1)         parameter (Nrphys=0)
31  #endif  #endif
32    
33  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
# Line 89  C*************************************** Line 93  C***************************************
93  #include "fizhi_SIZE.h"  #include "fizhi_SIZE.h"
94  #else  #else
95         integer Nrphys         integer Nrphys
96         parameter (Nrphys=1)         parameter (Nrphys=0)
97  #endif  #endif
98    
99  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
# Line 143  C*************************************** Line 147  C***************************************
147  #include "EEPARAMS.h"  #include "EEPARAMS.h"
148  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
149  #include "SIZE.h"  #include "SIZE.h"
 #include "fizhi_SIZE.h"  
150  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
151  #include "diagnostics.h"  #include "diagnostics.h"
152    
# Line 189  C*************************************** Line 192  C***************************************
192  #include "EEPARAMS.h"  #include "EEPARAMS.h"
193  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
194  #include "SIZE.h"  #include "SIZE.h"
 #include "fizhi_SIZE.h"  
195  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
196  #include "diagnostics.h"  #include "diagnostics.h"
197    
# Line 230  C*************************************** Line 232  C***************************************
232        implicit none        implicit none
233  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
234  #include "SIZE.h"  #include "SIZE.h"
 #include "fizhi_SIZE.h"  
235  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
236  #include "diagnostics.h"  #include "diagnostics.h"
237    
# Line 260  C ************************************** Line 261  C **************************************
261            IDIAG(NUM) = IPOINTER            IDIAG(NUM) = IPOINTER
262            IPOINTER   = IPOINTER + KDIAG(NUM)            IPOINTER   = IPOINTER + KDIAG(NUM)
263            ndiagmx    = ndiagmx  + KDIAG(NUM)            ndiagmx    = ndiagmx  + KDIAG(NUM)
264            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
265          endif          endif
266        ELSE        ELSE
267            if(myThid.eq.0) WRITE(6,3000) NUM, CDIAG(NUM)            if(myThid.eq.1) WRITE(6,3000) NUM, CDIAG(NUM)
268        ENDIF        ENDIF
269    
270  c Check for Counter Diagnostic  c Check for Counter Diagnostic
# Line 278  c ---------------------------- Line 279  c ----------------------------
279          IDIAG(mate) = IPOINTER          IDIAG(mate) = IPOINTER
280          IPOINTER    = IPOINTER + KDIAG(mate)          IPOINTER    = IPOINTER + KDIAG(mate)
281          ndiagmx     = ndiagmx  + KDIAG(mate)          ndiagmx     = ndiagmx  + KDIAG(mate)
282          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
283         endif         endif
284        ELSE        ELSE
285            if(myThid.eq.0) WRITE(6,3000) mate, CDIAG(mate)            if(myThid.eq.1) WRITE(6,3000) mate, CDIAG(mate)
286        ENDIF        ENDIF
287        endif        endif
288    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22