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

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

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

revision 1.16 by jmc, Mon Oct 15 00:20:47 2007 UTC revision 1.17 by jmc, Tue Apr 28 18:16:53 2009 UTC
# Line 116  c        potEnMean  = potEnMean  + tileP Line 116  c        potEnMean  = potEnMean  + tileP
116  C- end bi,bj loops  C- end bi,bj loops
117         ENDDO         ENDDO
118        ENDDO        ENDDO
119        _GLOBAL_SUM_R8(numPnts,myThid)        _GLOBAL_SUM_RL(numPnts,myThid)
120        _GLOBAL_MAX_R8(theMax,myThid)        _GLOBAL_MAX_RL(theMax,myThid)
121  c     _GLOBAL_SUM_R8(theMean,myThid)  c     _GLOBAL_SUM_RL(theMean,myThid)
122  c     _GLOBAL_SUM_R8(theVol,myThid)  c     _GLOBAL_SUM_RL(theVol,myThid)
123  c     _GLOBAL_SUM_R8(theVolMean,myThid)  c     _GLOBAL_SUM_RL(theVolMean,myThid)
124  c     _GLOBAL_SUM_R8(potEnMean, myThid)  c     _GLOBAL_SUM_RL(potEnMean, myThid)
125        CALL GLOBAL_SUM_TILE_RL( tileMean, theMean   , myThid )        CALL GLOBAL_SUM_TILE_RL( tileMean, theMean   , myThid )
126        CALL GLOBAL_SUM_TILE_RL( tileVol , theVol    , myThid )        CALL GLOBAL_SUM_TILE_RL( tileVol , theVol    , myThid )
127        CALL GLOBAL_SUM_TILE_RL( tileVlAv, theVolMean, myThid )        CALL GLOBAL_SUM_TILE_RL( tileVlAv, theVolMean, myThid )
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22