/[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.5 by adcroft, Tue May 13 18:18:05 2003 UTC revision 1.6 by jmc, Mon Nov 10 23:03:29 2003 UTC
# Line 75  c          IF (tmpVal.NE.0.) THEN Line 75  c          IF (tmpVal.NE.0.) THEN
75       &                               )       &                               )
76              numPnts=numPnts+1              numPnts=numPnts+1
77              tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K)              tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K)
78         &                                 *arrMask(I,J,K,bi,bj)
79              theVol = theVol   + tmpVol              theVol = theVol   + tmpVol
80              theMean = theMean + tmpVol*tmpVal              theMean = theMean + tmpVol*tmpVal
81              theVar = theVar   + tmpVol*tmpVal**2              theVar = theVar   + tmpVol*tmpVal**2
# Line 115  c          IF (tmpVal.NE.0.) THEN Line 116  c          IF (tmpVal.NE.0.) THEN
116  c           IF (tmpVal.NE.0.) THEN  c           IF (tmpVal.NE.0.) THEN
117              IF (arrMask(I,J,K,bi,bj).NE.0.) THEN              IF (arrMask(I,J,K,bi,bj).NE.0.) THEN
118               tmpVol=arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K)               tmpVol=arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K)
119         &                                *arrMask(I,J,K,bi,bj)
120               theSD = theSD + tmpVol*(tmpVal-theMean)**2               theSD = theSD + tmpVol*(tmpVal-theMean)**2
121              ENDIF              ENDIF
122             ENDDO             ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22