/[MITgcm]/MITgcm/pkg/monitor/mon_stats_rl.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_stats_rl.F

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

revision 1.10 by edhill, Sat Apr 3 21:17:10 2004 UTC revision 1.11 by jmc, Thu Jan 27 16:36:24 2005 UTC
# Line 79  C     !LOCAL VARIABLES: Line 79  C     !LOCAL VARIABLES:
79       &                                 *arrMask(I,J,K,bi,bj)       &                                 *arrMask(I,J,K,bi,bj)
80              theVolTile = theVolTile   + tmpVol              theVolTile = theVolTile   + tmpVol
81              theMeanTile = theMeanTile + tmpVol*tmpVal              theMeanTile = theMeanTile + tmpVol*tmpVal
82              theVarTile = theVarTile   + tmpVol*tmpVal**2              theVarTile = theVarTile   + tmpVol*tmpVal*tmpVal
83             ENDIF             ENDIF
84            ENDDO            ENDDO
85           ENDDO           ENDDO
# Line 100  C     !LOCAL VARIABLES: Line 100  C     !LOCAL VARIABLES:
100        numPnts=NINT(tmpVal)        numPnts=NINT(tmpVal)
101    
102        IF (tmpVal.GT.0.) THEN        IF (tmpVal.GT.0.) THEN
103         rNumPnts=1./tmpVal         rNumPnts=1. _d 0/tmpVal
104         theDel2=theDel2*rNumPnts         theDel2=theDel2*rNumPnts
105        ENDIF        ENDIF
106    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22