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