/[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.26 by jmc, Sat Aug 16 17:28:29 2008 UTC revision 1.27 by jmc, Tue Nov 18 21:41:06 2008 UTC
# Line 69  C-      No counter diagnostics => averag Line 69  C-      No counter diagnostics => averag
69            factor = FLOAT(ndiag(ip,bi,bj))            factor = FLOAT(ndiag(ip,bi,bj))
70            IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor            IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor
71    
72    #ifdef ALLOW_FIZHI
73            DO j = 1,sNy+1            DO j = 1,sNy+1
74              DO i = 1,sNx+1              DO i = 1,sNx+1
75                IF ( qdiag(i,j,ipnt,bi,bj) .LE. undef ) THEN                IF ( qdiag(i,j,ipnt,bi,bj) .LE. undef ) THEN
# Line 78  C-      No counter diagnostics => averag Line 79  C-      No counter diagnostics => averag
79                ENDIF                ENDIF
80              ENDDO              ENDDO
81            ENDDO            ENDDO
82    #else /* ALLOW_FIZHI */
83              DO j = 1,sNy+1
84                DO i = 1,sNx+1
85                  qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)*factor
86                ENDDO
87              ENDDO
88    #endif /* ALLOW_FIZHI */
89    
90          ELSE          ELSE
91  C-      With counter diagnostics => average = Sum / counter:  C-      With counter diagnostics => average = Sum / counter:
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22