/[MITgcm]/MITgcm/model/src/remove_mean.F
ViewVC logotype

Diff of /MITgcm/model/src/remove_mean.F

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

revision 1.2 by ce107, Tue Jul 31 22:50:24 2007 UTC revision 1.3 by jmc, Tue Apr 28 18:30:33 2009 UTC
# Line 70  CEOP Line 70  CEOP
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
# Line 96  C     Print the global mean to standard Line 96  C     Print the global mean to standard
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
# Line 175  CEOP Line 175  CEOP
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
# Line 201  C     Print the global mean to standard Line 201  C     Print the global mean to standard
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
# Line 212  C     the drift of the array arr Line 212  C     the drift of the array arr
212  C#endif /* ALLOW_BALANCE_FLUXES */  C#endif /* ALLOW_BALANCE_FLUXES */
213        RETURN        RETURN
214        END        END
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22