/[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.21 by jmc, Mon May 2 15:00:51 2011 UTC
# Line 12  C     !INTERFACE: Line 12  C     !INTERFACE:
12       I     myIter, myThid )       I     myIter, myThid )
13    
14  C     !DESCRIPTION:  C     !DESCRIPTION:
15  C     Calculates stats for Kinetic energy  C     Calculates stats for Kinetic Energy
16    
17  C     !USES:  C     !USES:
18        IMPLICIT NONE        IMPLICIT NONE
# Line 29  C     !INPUT PARAMETERS: Line 29  C     !INPUT PARAMETERS:
29  CEOP  CEOP
30    
31  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
32        INTEGER bi,bj,i,j,k        INTEGER bi,bj,i,j,k,kp1
33        _RL numPnts,theVol,tmpVal        _RL numPnts,theVol,tmpVal, mskp1, msk_1
34        _RL theMax,theMean,theVolMean,potEnMean        _RL theMax,theMean,theVolMean,potEnMean
35        _RL tileMean(nSx,nSy)        _RL tileMean(nSx,nSy)
36        _RL tileVlAv(nSx,nSy)        _RL tileVlAv(nSx,nSy)
37        _RL tilePEav(nSx,nSy)        _RL tilePEav(nSx,nSy)
38        _RL tileVol (nSx,nSy)        _RL tileVol (nSx,nSy)
39    #ifdef ALLOW_NONHYDROSTATIC
40          _RL tmpWke
41    #endif
42    
43    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
44    
45        numPnts=0.        numPnts=0.
46        theVol=0.        theVol=0.
# Line 51  C     !LOCAL VARIABLES: Line 56  C     !LOCAL VARIABLES:
56          tileVlAv(bi,bj) = 0. _d 0          tileVlAv(bi,bj) = 0. _d 0
57          tilePEav(bi,bj) = 0. _d 0          tilePEav(bi,bj) = 0. _d 0
58          DO k=1,Nr          DO k=1,Nr
59             kp1 = MIN(k+1,Nr)
60             mskp1 = 1.
61             IF ( k.GE.Nr ) mskp1 = 0.
62    C- Note: Present NH implementation does not account for D.w/dt at k=1.
63    C        Consequently, wVel(k=1) does not contribute to NH KE (msk_1=0).
64             msk_1 = 1.
65             IF ( k.EQ. 1 ) msk_1 = 0.
66           DO j=1,sNy           DO j=1,sNy
67            DO i=1,sNx            DO i=1,sNx
68             tileVol(bi,bj) = tileVol(bi,bj)             tileVol(bi,bj) = tileVol(bi,bj)
69       &                    + rA(i,j,bi,bj)*deepFac2C(k)       &                    + rA(i,j,bi,bj)*deepFac2C(k)
70       &                     *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj)       &                     *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj)
71         &                     *maskInC(i,j,bi,bj)
72    
73  C- Vector Invariant form (like in pkg/mom_vecinv/mom_vi_calc_ke.F)  C- Vector Invariant form (like in pkg/mom_vecinv/mom_vi_calc_ke.F)
74  c          tmpVal=0.25*( uVel( i , j ,k,bi,bj)*uVel( i , j ,k,bi,bj)  c          tmpVal=0.25*( uVel( i , j ,k,bi,bj)*uVel( i , j ,k,bi,bj)
# Line 77  C    with no assumption on how grid spac Line 90  C    with no assumption on how grid spac
90       &         *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)       &         *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)
91       &      +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj)       &      +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj)
92       &         *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)       &         *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)
93       &        )       &        )*maskInC(i,j,bi,bj)
94             tileVlAv(bi,bj) = tileVlAv(bi,bj)             tileVlAv(bi,bj) = tileVlAv(bi,bj)
95       &                     + tmpVal*deepFac2C(k)*rhoFacC(k)*drF(k)       &                     + tmpVal*deepFac2C(k)*rhoFacC(k)*drF(k)
96             tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)             tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)
97    
98    #ifdef ALLOW_NONHYDROSTATIC
99               IF ( nonHydrostatic ) THEN
100                tmpWke = 0.25*
101         &        ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1
102         &                             *deepFac2F( k )*rhoFacF( k )
103         &         +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1
104         &                             *deepFac2F(kp1)*rhoFacF(kp1)
105         &        )*maskC(i,j,k,bi,bj)*maskInC(i,j,bi,bj)
106                tileVlAv(bi,bj) = tileVlAv(bi,bj)
107         &             + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
108                tmpVal = tmpVal
109         &             + tmpWke*recip_deepFac2C(k)*recip_rhoFacC(k)
110               ENDIF
111    #endif
112    
113             theMax=MAX(theMax,tmpVal)             theMax=MAX(theMax,tmpVal)
114             IF (tmpVal.NE.0.) THEN             IF (tmpVal.NE.0.) THEN
115              tileMean(bi,bj)=tileMean(bi,bj)+tmpVal              tileMean(bi,bj)=tileMean(bi,bj)+tmpVal
# Line 101  C       not sure for atmos/ocean in P ; Line 129  C       not sure for atmos/ocean in P ;
129             tmpVal = tmpVal             tmpVal = tmpVal
130       &            + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj)       &            + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj)
131             tilePEav(bi,bj) = tilePEav(bi,bj)             tilePEav(bi,bj) = tilePEav(bi,bj)
132       &            + tmpVal*rA(i,j,bi,bj)*deepFac2F(1)*maskH(i,j,bi,bj)       &            + tmpVal*rA(i,j,bi,bj)*deepFac2F(1)
133         &                    *maskInC(i,j,bi,bj)
134  c          tmpVal = etaN(i,j,bi,bj)  c          tmpVal = etaN(i,j,bi,bj)
135  c    &            + phi0surf(i,j,bi,bj)*recip_Bo(i,j,bi,bj)  c    &            + phi0surf(i,j,bi,bj)*recip_Bo(i,j,bi,bj)
136  c          tilePEav(bi,bj) = tilePEav(bi,bj)  c          tilePEav(bi,bj) = tilePEav(bi,bj)
137  c    &        + 0.5 _d 0*Bo_surf(i,j,bi,bj)*tmpVal*tmpVal  c    &        + 0.5 _d 0*Bo_surf(i,j,bi,bj)*tmpVal*tmpVal
138  c    &                  *rA(i,j,bi,bj)*maskH(i,j,bi,bj)  c    &                  *rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
139            ENDDO            ENDDO
140           ENDDO           ENDDO
 c        theMean    = theMean    + tileMean(bi,bj)  
 c        theVol     = theVol     + tileVol(bi,bj)  
 c        theVolMean = theVolMean + tileVlAv(bi,bj)  
 c        potEnMean  = potEnMean  + tilePEav(bi,bj)  
141  C- end bi,bj loops  C- end bi,bj loops
142         ENDDO         ENDDO
143        ENDDO        ENDDO
144        _GLOBAL_SUM_R8(numPnts,myThid)        _GLOBAL_SUM_RL(numPnts,myThid)
145        _GLOBAL_MAX_R8(theMax,myThid)        _GLOBAL_MAX_RL(theMax,myThid)
 c     _GLOBAL_SUM_R8(theMean,myThid)  
 c     _GLOBAL_SUM_R8(theVol,myThid)  
 c     _GLOBAL_SUM_R8(theVolMean,myThid)  
 c     _GLOBAL_SUM_R8(potEnMean, myThid)  
146        CALL GLOBAL_SUM_TILE_RL( tileMean, theMean   , myThid )        CALL GLOBAL_SUM_TILE_RL( tileMean, theMean   , myThid )
147        CALL GLOBAL_SUM_TILE_RL( tileVol , theVol    , myThid )        CALL GLOBAL_SUM_TILE_RL( tileVol , theVol    , myThid )
148        CALL GLOBAL_SUM_TILE_RL( tileVlAv, theVolMean, myThid )        CALL GLOBAL_SUM_TILE_RL( tileVlAv, theVolMean, myThid )
# Line 148  c     CALL MON_OUT_RL(mon_string_none,th Line 169  c     CALL MON_OUT_RL(mon_string_none,th
169    
170        RETURN        RETURN
171        END        END
   
 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22