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

Diff of /MITgcm/pkg/diagnostics/diagnostics_fill.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Mon Dec 20 19:07:12 2004 UTC revision 1.4 by jmc, Mon Jan 3 02:29:34 2005 UTC
# Line 270  C     !LOCAL VARIABLES: Line 270  C     !LOCAL VARIABLES:
270  C     i,j    :: loop indices  C     i,j    :: loop indices
271        INTEGER i, j        INTEGER i, j
272    
273  c     DO j = 1,jRun        DO j = 1,jRun
274  c      DO i = 1,iRun         DO i = 1,iRun
275  C- jmc: try with fixed ranges, that are known at compiling stage  C- jmc: try with fixed ranges, that are known at compiling stage
276  C        (might produce a better cash optimisation ?)  C        (might produce a better cash optimisation ?)
277        DO j = 1,sNy  c     DO j = 1,sNy
278         DO i = 1,sNx  c      DO i = 1,sNx
279          cumFld(i,j) = cumFld(i,j) + inpFld(i,j,k,bi,bj)          cumFld(i,j) = cumFld(i,j) + inpFld(i,j,k,bi,bj)
280         ENDDO         ENDDO
281        ENDDO        ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22