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

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

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

revision 1.3 by mlosch, Mon Nov 21 09:37:10 2011 UTC revision 1.4 by mlosch, Mon Dec 12 15:28:16 2011 UTC
# Line 462  C     and thus will not compile with a F Line 462  C     and thus will not compile with a F
462         ENDIF         ENDIF
463    
464        ENDIF        ENDIF
465    C     inpArr can be undefined/non-initialised in overlaps, so we need
466    C     to clean this fields first by copying the defined range to tmpFld
467          tmpFld = 0. _d 0
468          DO j = 1,jRun
469           DO i = 1,iRun
470            tmpFld(i,j) = inpArr(i,j)
471           ENDDO
472          ENDDO
473        IF ( power.EQ.2) THEN        IF ( power.EQ.2) THEN
474         tmpFld = inpArr*inpArr         tmpFld = tmpFld*tmpFld
       ELSE  
        tmpFld = inpArr  
475        ENDIF        ENDIF
476  C     sum up the volume  C     sum up the volume
477        tmpVol = tmpVol*arrMaskL        tmpVol = tmpVol*arrMaskL
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22