/[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.7.4.2 by heimbach, Fri Mar 7 04:50:40 2003 UTC revision 1.21 by jmc, Mon May 2 15:00:51 2011 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "MONITOR_OPTIONS.h"
5    
6    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    CBOP
8    C     !ROUTINE: MON_KE
9    
10    C     !INTERFACE:
11        SUBROUTINE MON_KE(        SUBROUTINE MON_KE(
12       I                myThid )       I     myIter, myThid )
13  C     /==========================================================\  
14  C     | SUBROUTINE MON_KE                                        |  C     !DESCRIPTION:
15  C     | o Calculates stats for Kinetic energy                    |  C     Calculates stats for Kinetic Energy
 C     |==========================================================|  
 C     \==========================================================/  
       IMPLICIT NONE  
16    
17  C     === Global data ===  C     !USES:
18          IMPLICIT NONE
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "EEPARAMS.h"  #include "EEPARAMS.h"
21    #include "PARAMS.h"
22  #include "DYNVARS.h"  #include "DYNVARS.h"
23  #include "MONITOR.h"  #include "MONITOR.h"
24  #include "GRID.h"  #include "GRID.h"
25    #include "SURFACE.h"
26    
27  C     === Routine arguments ===  C     !INPUT PARAMETERS:
28        INTEGER myThid        INTEGER myIter, myThid
29    CEOP
30    
31    C     !LOCAL VARIABLES:
32          INTEGER bi,bj,i,j,k,kp1
33          _RL numPnts,theVol,tmpVal, mskp1, msk_1
34          _RL theMax,theMean,theVolMean,potEnMean
35          _RL tileMean(nSx,nSy)
36          _RL tileVlAv(nSx,nSy)
37          _RL tilePEav(nSx,nSy)
38          _RL tileVol (nSx,nSy)
39    #ifdef ALLOW_NONHYDROSTATIC
40          _RL tmpWke
41    #endif
42    
43  C     === Local variables ====  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
       INTEGER bi,bj,I,J,K  
       _RL tmpVal,tmpVol,theMax,theMean,theVolMean,theVol  
       INTEGER numPnts  
44    
45          numPnts=0.
46          theVol=0.
47        theMax=0.        theMax=0.
       numPnts=0  
48        theMean=0.        theMean=0.
49        theVolMean=0.        theVolMean=0.
50        theVol=0.        potEnMean =0.
51    
52        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
53         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
54          DO K=1,Nr          tileVol(bi,bj)  = 0. _d 0
55           DO J=1,sNy          tileMean(bi,bj) = 0. _d 0
56            DO I=1,sNx          tileVlAv(bi,bj) = 0. _d 0
57             theVol=theVol+rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)          tilePEav(bi,bj) = 0. _d 0
58            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
67              DO i=1,sNx
68               tileVol(bi,bj) = tileVol(bi,bj)
69         &                    + rA(i,j,bi,bj)*deepFac2C(k)
70         &                     *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)
75  c    &                  +uVel(I+1, J ,K,bi,bj)*uVel(I+1, J ,K,bi,bj)  c    &                  +uVel(i+1, j ,k,bi,bj)*uVel(i+1, j ,k,bi,bj)
76  c    &                  +vVel( I , J ,K,bi,bj)*vVel( I , J ,K,bi,bj)  c    &                  +vVel( i , j ,k,bi,bj)*vVel( i , j ,k,bi,bj)
77  c    &                  +vVel( I ,J+1,K,bi,bj)*vVel( I ,J+1,K,bi,bj) )  c    &                  +vVel( i ,j+1,k,bi,bj)*vVel( i ,j+1,k,bi,bj) )
78  c          theVolMean=theVolMean+tmpVal  c          tileVlAv(bi,bj) = tileVlAv(bi,bj)
79  c    &           *ra(i,j,bi,bj)*drf(k)*hFacC(i,j,k,bi,bj)  c    &              +tmpVal*rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)
80    
81  C- Energy conservative form (like in pkg/mom_fluxform/mom_calc_ke.F)  C- Energy conservative form (like in pkg/mom_fluxform/mom_calc_ke.F)
82  C    this is the safe way to check the energy conservation  C    this is the safe way to check the energy conservation
83  C    with no assumption on how grid spacing & area are defined.  C    with no assumption on how grid spacing & area are defined.
84             tmpVal=0.25*(             tmpVal=0.25*(
85       &       uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj)       &       uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj)
86       &         *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*hFacW( i ,j,k,bi,bj)       &         *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)
87       &      +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj)       &      +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj)
88       &         *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*hFacW(i+1,j,k,bi,bj)       &         *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)
89       &      +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj)       &      +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj)
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             theVolMean= theVolMean + tmpVal*drF(k)             tileVlAv(bi,bj) = tileVlAv(bi,bj)
95             tmpVal= tmpVal*recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)       &                     + tmpVal*deepFac2C(k)*rhoFacC(k)*drF(k)
96               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              theMean=theMean+tmpVal              tileMean(bi,bj)=tileMean(bi,bj)+tmpVal
116              numPnts=numPnts+1              numPnts=numPnts+1.
117             ENDIF             ENDIF
118    
119            ENDDO            ENDDO
120           ENDDO           ENDDO
121          ENDDO          ENDDO
122    C- Potential Energy (external mode):
123             DO j=1,sNy
124              DO i=1,sNx
125               tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj)
126         &                      *etaN(i,j,bi,bj)*etaN(i,j,bi,bj)
127    C- jmc: if geoid not flat (phi0surf), needs to add this term.
128    C       not sure for atmos/ocean in P ; or atmos. loading in ocean-Z
129               tmpVal = tmpVal
130         &            + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj)
131               tilePEav(bi,bj) = tilePEav(bi,bj)
132         &            + tmpVal*rA(i,j,bi,bj)*deepFac2F(1)
133         &                    *maskInC(i,j,bi,bj)
134    c          tmpVal = etaN(i,j,bi,bj)
135    c    &            + phi0surf(i,j,bi,bj)*recip_Bo(i,j,bi,bj)
136    c          tilePEav(bi,bj) = tilePEav(bi,bj)
137    c    &        + 0.5 _d 0*Bo_surf(i,j,bi,bj)*tmpVal*tmpVal
138    c    &                  *rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
139              ENDDO
140             ENDDO
141    C- end bi,bj loops
142         ENDDO         ENDDO
143        ENDDO        ENDDO
144        _GLOBAL_MAX_R8(theMax,myThid)        _GLOBAL_SUM_RL(numPnts,myThid)
145        _GLOBAL_SUM_R8(theMean,myThid)        _GLOBAL_MAX_RL(theMax,myThid)
146        tmpVal=float(numPnts)        CALL GLOBAL_SUM_TILE_RL( tileMean, theMean   , myThid )
147        _GLOBAL_SUM_R8(tmpVal,myThid)        CALL GLOBAL_SUM_TILE_RL( tileVol , theVol    , myThid )
148        IF (tmpVal.NE.0.) theMean=theMean/tmpVal        CALL GLOBAL_SUM_TILE_RL( tileVlAv, theVolMean, myThid )
149        _GLOBAL_SUM_R8(theVol,myThid)        CALL GLOBAL_SUM_TILE_RL( tilePEav, potEnMean , myThid )
150        _GLOBAL_SUM_R8(theVolMean,myThid)        IF (numPnts.NE.0.) theMean=theMean/numPnts
151          IF (theVol.NE.0.) THEN
152            theVolMean=theVolMean/theVol
153            potEnMean = potEnMean/theVol
154          ENDIF
155    
156    C--   Print stats for (barotropic) Potential Energy:
157          CALL MON_SET_PREF('pe_b',myThid)
158          CALL MON_OUT_RL(mon_string_none,potEnMean,
159         &         mon_foot_mean,myThid)
160    
161    C--   Print stats for KE
162          CALL MON_SET_PREF('ke',myThid)
163        CALL MON_OUT_RL(mon_string_none,theMax,mon_foot_max,myThid)        CALL MON_OUT_RL(mon_string_none,theMax,mon_foot_max,myThid)
164        CALL MON_OUT_RL(mon_string_none,theMean,mon_foot_mean,myThid)  c     CALL MON_OUT_RL(mon_string_none,theMean,mon_foot_mean,myThid)
       CALL MON_OUT_RL(mon_string_none,theVolMean,  
      &         mon_foot_volint,myThid)  
       IF (theVol.NE.0.) theVolMean=theVolMean/theVol  
165        CALL MON_OUT_RL(mon_string_none,theVolMean,        CALL MON_OUT_RL(mon_string_none,theVolMean,
166       &         mon_foot_volmean,myThid)       &         mon_foot_mean,myThid)
167        CALL MON_OUT_RL(mon_string_none,theVol,        CALL MON_OUT_RL(mon_string_none,theVol,
168       &         mon_foot_vol,myThid)       &         mon_foot_vol,myThid)
169    
Legend:
Removed from v.1.7.4.2  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22