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) |
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 |
|
|