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

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

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

revision 1.6 by jmc, Thu Sep 3 20:39:18 2009 UTC revision 1.7 by jmc, Sat Apr 3 17:34:39 2010 UTC
# Line 407  C---+----1----+----2----+----3----+----4 Line 407  C---+----1----+----2----+----3----+----4
407    
408        ELSEIF ( power.EQ.2 ) THEN        ELSEIF ( power.EQ.2 ) THEN
409    
410         IF ( arrType.LE.1 ) THEN         IF ( arrType.EQ.0 .OR. arrType.EQ.1 ) THEN
411          DO j = 1,jRun          DO j = 1,jRun
412           DO i = 1,iRun           DO i = 1,iRun
413            cumFld(i,j) = cumFld(i,j)            cumFld(i,j) = cumFld(i,j)
# Line 415  C---+----1----+----2----+----3----+----4 Line 415  C---+----1----+----2----+----3----+----4
415       &                         *inpFldRL(i,j,k,bi,bj)       &                         *inpFldRL(i,j,k,bi,bj)
416           ENDDO           ENDDO
417          ENDDO          ENDDO
418         ELSEIF ( arrType.LE.3 ) THEN         ELSEIF ( arrType.EQ.2 .OR. arrType.EQ.3 ) THEN
419          DO j = 1,jRun          DO j = 1,jRun
420           DO i = 1,iRun           DO i = 1,iRun
421            cumFld(i,j) = cumFld(i,j)            cumFld(i,j) = cumFld(i,j)
# Line 429  C---+----1----+----2----+----3----+----4 Line 429  C---+----1----+----2----+----3----+----4
429    
430        ELSE        ELSE
431    
432         IF ( arrType.LE.1 ) THEN         IF ( arrType.EQ.0 .OR. arrType.EQ.1 ) THEN
433          DO j = 1,jRun          DO j = 1,jRun
434           DO i = 1,iRun           DO i = 1,iRun
435  C- jmc: try with fixed ranges, that are known at compiling stage  C- jmc: try with fixed ranges, that are known at compiling stage
# Line 440  c        DO i = 1,sNx Line 440  c        DO i = 1,sNx
440       &                + tmpFact*inpFldRL(i,j,k,bi,bj)       &                + tmpFact*inpFldRL(i,j,k,bi,bj)
441           ENDDO           ENDDO
442          ENDDO          ENDDO
443         ELSEIF ( arrType.LE.3 ) THEN         ELSEIF ( arrType.EQ.2 .OR. arrType.EQ.3 ) THEN
444          DO j = 1,jRun          DO j = 1,jRun
445           DO i = 1,iRun           DO i = 1,iRun
446            cumFld(i,j) = cumFld(i,j)            cumFld(i,j) = cumFld(i,j)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22