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

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

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

revision 1.3 by jmc, Wed Mar 3 23:45:55 2004 UTC revision 1.4 by jmc, Fri Mar 5 02:28:11 2004 UTC
# Line 98  C-    set k index range [k1,k2] Line 98  C-    set k index range [k1,k2]
98        ENDDO        ENDDO
99    
100        DO n=1,nSepBnd        DO n=1,nSepBnd
        theMin(n)=-theMin(n)  
        _GLOBAL_MAX_R8(theMin(n), myThid)  
        theMin(n)=-theMin(n)  
        _GLOBAL_MAX_R8(theMax(n), myThid)  
101         _GLOBAL_SUM_R8(theVol(n), myThid)         _GLOBAL_SUM_R8(theVol(n), myThid)
102         _GLOBAL_SUM_R8(theMean(n),myThid)         _GLOBAL_SUM_R8(theMean(n),myThid)
103         _GLOBAL_SUM_R8(theVar(n), myThid)         _GLOBAL_SUM_R8(theVar(n), myThid)
# Line 111  C-    set k index range [k1,k2] Line 107  C-    set k index range [k1,k2]
107         IF (theVol(n).GT.0.) THEN         IF (theVol(n).GT.0.) THEN
108          theMean(n)= theMean(n)/theVol(n)          theMean(n)= theMean(n)/theVol(n)
109          theVar(n) = theVar(n) /theVol(n)          theVar(n) = theVar(n) /theVol(n)
110            theVar(n) = theVar(n) -theMean(n)*theMean(n)
111            IF ( noPnts(n) ) theMin(n) = theMean(n)
112            theMin(n) = -theMin(n)
113            _GLOBAL_MAX_R8(theMin(n), myThid)
114            theMin(n)=-theMin(n)
115            IF ( noPnts(n) ) theMax(n) = theMin(n)
116            _GLOBAL_MAX_R8(theMax(n), myThid)
117         ENDIF         ENDIF
118        ENDDO        ENDDO
119    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22