/[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.5 by molod, Thu Feb 26 22:20:36 2004 UTC revision 1.11 by molod, Wed Jul 7 15:58:17 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4    #include "DIAG_OPTIONS.h"
5    
6        subroutine getdiag (myThid,lev,ipoint,undef,qtmp)        subroutine getdiag (myThid,lev,ipoint,undef,qtmp)
7  C***********************************************************************          C***********************************************************************        
8  C  PURPOSE                                                                        C  PURPOSE                                                                      
# Line 14  C    qtmp ..... AVERAGED DIAGNOSTIC QUAN Line 19  C    qtmp ..... AVERAGED DIAGNOSTIC QUAN
19  C                                                                                C                                                                              
20  C***********************************************************************          C***********************************************************************        
21        implicit none        implicit none
   
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 50  C*************************************** Line 54  C***************************************
54    
55        do j = 1,sNy        do j = 1,sNy
56        do i = 1,sNx        do i = 1,sNx
57         if( qdiag(i,j,ipnt,bi,bj).ne.undef ) then         if( qdiag(i,j,ipnt,bi,bj).ge.undef ) then
58          qtmp(i,j,lev,bi,bj) = qdiag(i,j,ipnt,bi,bj)*factor          qtmp(i,j,lev,bi,bj) = qdiag(i,j,ipnt,bi,bj)*factor
59         else         else
60          qtmp(i,j,lev,bi,bj) = undef          qtmp(i,j,lev,bi,bj) = undef
# 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 113  C*************************************** Line 117  C***************************************
117    
118        do j = 1,sNy        do j = 1,sNy
119        do i = 1,sNx        do i = 1,sNx
120         if( qdiag(i,j,ipnt,bi,bj).ne.undef ) then         if( qdiag(i,j,ipnt,bi,bj).ge.undef ) then
121          qtmp(i,j,lev,bi,bj) = qdiag(i,j,ipnt,bi,bj)          qtmp(i,j,lev,bi,bj) = qdiag(i,j,ipnt,bi,bj)
122         else         else
123          qtmp(i,j,lev,bi,bj) = undef          qtmp(i,j,lev,bi,bj) = undef
# 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"
   
 #ifdef ALLOW_FIZHI  
 #include "fizhi_SIZE.h"  
 #else  
        integer Nrphys  
        parameter (Nrphys=1)  
 #endif  
   
150  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
151  #include "diagnostics.h"  #include "diagnostics.h"
152    
# Line 196  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"
   
 #ifdef ALLOW_FIZHI  
 #include "fizhi_SIZE.h"  
 #else  
        integer Nrphys  
        parameter (Nrphys=1)  
 #endif  
   
195  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
196  #include "diagnostics.h"  #include "diagnostics.h"
197    
# Line 244  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"
   
 #ifdef ALLOW_FIZHI  
 #include "fizhi_SIZE.h"  
 #else  
        integer Nrphys  
        parameter (Nrphys=1)  
 #endif  
   
235  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
236  #include "diagnostics.h"  #include "diagnostics.h"
237    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22