70 |
ENDDO |
ENDDO |
71 |
ENDDO |
ENDDO |
72 |
|
|
73 |
_GLOBAL_SUM_R8(theVol,myThid) |
_GLOBAL_SUM_RL(theVol,myThid) |
74 |
_GLOBAL_SUM_R8(theMean,myThid) |
_GLOBAL_SUM_RL(theMean,myThid) |
75 |
|
|
76 |
IF (theVol.GT.0.) THEN |
IF (theVol.GT.0.) THEN |
77 |
theMean=theMean/theVol |
theMean=theMean/theVol |
96 |
C the drift of the array arr |
C the drift of the array arr |
97 |
IF ( balancePrintMean ) THEN |
IF ( balancePrintMean ) THEN |
98 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
99 |
WRITE(msgbuf,'(a,a,a,e24.17)') |
WRITE(msgbuf,'(a,a,a,e24.17)') |
100 |
& 'REMOVE_MEAN_RL: Global mean of ', |
& 'REMOVE_MEAN_RL: Global mean of ', |
101 |
& arrName, ' = ', theMean |
& arrName, ' = ', theMean |
102 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
103 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
104 |
_END_MASTER( myThid ) |
_END_MASTER( myThid ) |
105 |
ENDIF |
ENDIF |
175 |
ENDDO |
ENDDO |
176 |
ENDDO |
ENDDO |
177 |
|
|
178 |
_GLOBAL_SUM_R8(theVol,myThid) |
_GLOBAL_SUM_RS(theVol,myThid) |
179 |
_GLOBAL_SUM_R8(theMean,myThid) |
_GLOBAL_SUM_RS(theMean,myThid) |
180 |
|
|
181 |
IF (theVol.GT.0.) THEN |
IF (theVol.GT.0.) THEN |
182 |
theMean=theMean/theVol |
theMean=theMean/theVol |
201 |
C the drift of the array arr |
C the drift of the array arr |
202 |
IF ( balancePrintMean ) THEN |
IF ( balancePrintMean ) THEN |
203 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
204 |
WRITE(msgbuf,'(a,a,a,e24.17)') |
WRITE(msgbuf,'(a,a,a,e24.17)') |
205 |
& 'REMOVE_MEAN_RS: Global mean of ', |
& 'REMOVE_MEAN_RS: Global mean of ', |
206 |
& arrName, ' = ', theMean |
& arrName, ' = ', theMean |
207 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
208 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
209 |
_END_MASTER( myThid ) |
_END_MASTER( myThid ) |
210 |
ENDIF |
ENDIF |
212 |
C#endif /* ALLOW_BALANCE_FLUXES */ |
C#endif /* ALLOW_BALANCE_FLUXES */ |
213 |
RETURN |
RETURN |
214 |
END |
END |
|
|
|