OpenAD/code_ad_1x1_moc/mon_ke.F

C $Header: /u/gcmpack/MITgcm_contrib/heimbach/OpenAD/code_ad_1x1_moc/mon_ke.F,v 1.1 2009/09/18 16:34:11 utke Exp $
C $Name:  $

#include "MONITOR_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP
C     !ROUTINE: MON_KE

C     !INTERFACE:
      SUBROUTINE MON_KE(
     I     myIter, myThid )

C     !DESCRIPTION:
C     Calculates stats for Kinetic energy

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "DYNVARS.h"
#include "MONITOR.h"
#include "GRID.h"
#include "SURFACE.h"

C     !INPUT PARAMETERS:
      INTEGER myIter, myThid
CEOP

C     !LOCAL VARIABLES:
      INTEGER bi,bj,i,j,k
      _RL numPnts,theVol,tmpVal
      _RL theMax,theMean,theVolMean,potEnMean
      _RL tileMean(nSx,nSy)
      _RL tileVlAv(nSx,nSy)
      _RL tilePEav(nSx,nSy)
      _RL tileVol (nSx,nSy)

      numPnts=0.
      theVol=0.
      theMax=0.
      theMean=0.
      theVolMean=0.
      potEnMean =0.

      DO bj=myByLo(myThid),myByHi(myThid)
       DO bi=myBxLo(myThid),myBxHi(myThid)
        tileVol(bi,bj)  = 0. _d 0
        tileMean(bi,bj) = 0. _d 0
        tileVlAv(bi,bj) = 0. _d 0
        tilePEav(bi,bj) = 0. _d 0
        DO k=1,Nr
         DO j=1,sNy
          DO i=1,sNx
           tileVol(bi,bj) = tileVol(bi,bj)
     &                    + rA(i,j,bi,bj)*deepFac2C(k)
     &                     *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj)

C- Vector Invariant form (like in pkg/mom_vecinv/mom_vi_calc_ke.F)
c          tmpVal=0.25*( uVel( i , j ,k,bi,bj)*uVel( i , j ,k,bi,bj)
c    &                  +uVel(i+1, j ,k,bi,bj)*uVel(i+1, j ,k,bi,bj)
c    &                  +vVel( i , j ,k,bi,bj)*vVel( i , j ,k,bi,bj)
c    &                  +vVel( i ,j+1,k,bi,bj)*vVel( i ,j+1,k,bi,bj) )
c          tileVlAv(bi,bj) = tileVlAv(bi,bj)
c    &              +tmpVal*rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)

C- Energy conservative form (like in pkg/mom_fluxform/mom_calc_ke.F)
C    this is the safe way to check the energy conservation
C    with no assumption on how grid spacing & area are defined.
           tmpVal=0.25*(
     &       uVel( i ,j,k,bi,bj)%v*uVel( i ,j,k,bi,bj)%v
     &         *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)
     &      +uVel(i+1,j,k,bi,bj)%v*uVel(i+1,j,k,bi,bj)%v
     &         *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)
     &      +vVel(i, j ,k,bi,bj)%v*vVel(i, j ,k,bi,bj)%v
     &         *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)
     &      +vVel(i,j+1,k,bi,bj)%v*vVel(i,j+1,k,bi,bj)%v
     &         *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)
     &        )
           tileVlAv(bi,bj) = tileVlAv(bi,bj)
     &                     + tmpVal*deepFac2C(k)*rhoFacC(k)*drF(k)
           tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)

           theMax=MAX(theMax,tmpVal)
           IF (tmpVal.NE.0.) THEN
            tileMean(bi,bj)=tileMean(bi,bj)+tmpVal
            numPnts=numPnts+1.
           ENDIF

          ENDDO
         ENDDO
        ENDDO
C- Potential Energy (external mode):
         DO j=1,sNy
          DO i=1,sNx
           tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj)
     &                      *etaN(i,j,bi,bj)%v*etaN(i,j,bi,bj)%v
C- jmc: if geoid not flat (phi0surf), needs to add this term.
C       not sure for atmos/ocean in P ; or atmos. loading in ocean-Z
           tmpVal = tmpVal
     &            + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj)%v
           tilePEav(bi,bj) = tilePEav(bi,bj)
     &            + tmpVal*rA(i,j,bi,bj)*deepFac2F(1)*maskH(i,j,bi,bj)
c          tmpVal = etaN(i,j,bi,bj)
c    &            + phi0surf(i,j,bi,bj)*recip_Bo(i,j,bi,bj)
c          tilePEav(bi,bj) = tilePEav(bi,bj)
c    &        + 0.5 _d 0*Bo_surf(i,j,bi,bj)*tmpVal*tmpVal
c    &                  *rA(i,j,bi,bj)*maskH(i,j,bi,bj)
          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)
C- end bi,bj loops
       ENDDO
      ENDDO
      _GLOBAL_SUM_RL(numPnts,myThid)
      _GLOBAL_MAX_RL(theMax,myThid)
c     _GLOBAL_SUM_RL(theMean,myThid)
c     _GLOBAL_SUM_RL(theVol,myThid)
c     _GLOBAL_SUM_RL(theVolMean,myThid)
c     _GLOBAL_SUM_RL(potEnMean, myThid)
      CALL GLOBAL_SUM_TILE_RL( tileMean, theMean   , myThid )
      CALL GLOBAL_SUM_TILE_RL( tileVol , theVol    , myThid )
      CALL GLOBAL_SUM_TILE_RL( tileVlAv, theVolMean, myThid )
      CALL GLOBAL_SUM_TILE_RL( tilePEav, potEnMean , myThid )
      IF (numPnts.NE.0.) theMean=theMean/numPnts
      IF (theVol.NE.0.) THEN
        theVolMean=theVolMean/theVol
        potEnMean = potEnMean/theVol
      ENDIF

C--   Print stats for (barotropic) Potential Energy:
      CALL MON_SET_PREF('pe_b',myThid)
      CALL MON_OUT_RL(mon_string_none,potEnMean,
     &         mon_foot_mean,myThid)

C--   Print stats for KE
      CALL MON_SET_PREF('ke',myThid)
      CALL MON_OUT_RL(mon_string_none,theMax,mon_foot_max,myThid)
c     CALL MON_OUT_RL(mon_string_none,theMean,mon_foot_mean,myThid)
      CALL MON_OUT_RL(mon_string_none,theVolMean,
     &         mon_foot_mean,myThid)
      CALL MON_OUT_RL(mon_string_none,theVol,
     &         mon_foot_vol,myThid)

      RETURN
      END

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
1	utke	1.2	C $Header: /u/gcmpack/MITgcm_contrib/heimbach/OpenAD/code_ad_1x1_moc/mon_ke.F,v 1.1 2009/09/18 16:34:11 utke Exp $
2	utke	1.1	C $Name: $
3
4			#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(
12			I myIter, myThid )
13
14			C !DESCRIPTION:
15			C Calculates stats for Kinetic energy
16
17			C !USES:
18			IMPLICIT NONE
19			#include "SIZE.h"
20			#include "EEPARAMS.h"
21			#include "PARAMS.h"
22			#include "DYNVARS.h"
23	utke	1.2	#include "MONITOR.h"
24	utke	1.1	#include "GRID.h"
25			#include "SURFACE.h"
26
27			C !INPUT PARAMETERS:
28			INTEGER myIter, myThid
29			CEOP
30
31			C !LOCAL VARIABLES:
32			INTEGER bi,bj,i,j,k
33			_RL numPnts,theVol,tmpVal
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
40			numPnts=0.
41			theVol=0.
42			theMax=0.
43			theMean=0.
44			theVolMean=0.
45			potEnMean =0.
46
47			DO bj=myByLo(myThid),myByHi(myThid)
48			DO bi=myBxLo(myThid),myBxHi(myThid)
49			tileVol(bi,bj) = 0. _d 0
50			tileMean(bi,bj) = 0. _d 0
51			tileVlAv(bi,bj) = 0. _d 0
52			tilePEav(bi,bj) = 0. _d 0
53			DO k=1,Nr
54			DO j=1,sNy
55			DO i=1,sNx
56			tileVol(bi,bj) = tileVol(bi,bj)
57			& + rA(i,j,bi,bj)*deepFac2C(k)
58			& rhoFacC(k)drF(k)*_hFacC(i,j,k,bi,bj)
59
60			C- Vector Invariant form (like in pkg/mom_vecinv/mom_vi_calc_ke.F)
61			c tmpVal=0.25( uVel( i , j ,k,bi,bj)uVel( i , j ,k,bi,bj)
62			c & +uVel(i+1, j ,k,bi,bj)*uVel(i+1, j ,k,bi,bj)
63			c & +vVel( i , j ,k,bi,bj)*vVel( i , j ,k,bi,bj)
64			c & +vVel( i ,j+1,k,bi,bj)*vVel( i ,j+1,k,bi,bj) )
65			c tileVlAv(bi,bj) = tileVlAv(bi,bj)
66			c & +tmpValrA(i,j,bi,bj)drF(k)*hFacC(i,j,k,bi,bj)
67
68			C- Energy conservative form (like in pkg/mom_fluxform/mom_calc_ke.F)
69			C this is the safe way to check the energy conservation
70			C with no assumption on how grid spacing & area are defined.
71			tmpVal=0.25*(
72			& uVel( i ,j,k,bi,bj)%v*uVel( i ,j,k,bi,bj)%v
73	utke	1.2	& dyG( i ,j,bi,bj)dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)
74	utke	1.1	& +uVel(i+1,j,k,bi,bj)%v*uVel(i+1,j,k,bi,bj)%v
75	utke	1.2	& dyG(i+1,j,bi,bj)dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)
76	utke	1.1	& +vVel(i, j ,k,bi,bj)%v*vVel(i, j ,k,bi,bj)%v
77	utke	1.2	& dxG(i, j ,bi,bj)dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)
78	utke	1.1	& +vVel(i,j+1,k,bi,bj)%v*vVel(i,j+1,k,bi,bj)%v
79	utke	1.2	& dxG(i,j+1,bi,bj)dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)
80	utke	1.1	& )
81			tileVlAv(bi,bj) = tileVlAv(bi,bj)
82			& + tmpValdeepFac2C(k)rhoFacC(k)*drF(k)
83			tmpVal= tmpVal_recip_hFacC(i,j,k,bi,bj)recip_rA(i,j,bi,bj)
84
85			theMax=MAX(theMax,tmpVal)
86			IF (tmpVal.NE.0.) THEN
87			tileMean(bi,bj)=tileMean(bi,bj)+tmpVal
88			numPnts=numPnts+1.
89			ENDIF
90
91			ENDDO
92			ENDDO
93			ENDDO
94			C- Potential Energy (external mode):
95			DO j=1,sNy
96			DO i=1,sNx
97			tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj)
98			& etaN(i,j,bi,bj)%vetaN(i,j,bi,bj)%v
99			C- jmc: if geoid not flat (phi0surf), needs to add this term.
100			C not sure for atmos/ocean in P ; or atmos. loading in ocean-Z
101			tmpVal = tmpVal
102			& + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj)%v
103			tilePEav(bi,bj) = tilePEav(bi,bj)
104			& + tmpValrA(i,j,bi,bj)deepFac2F(1)*maskH(i,j,bi,bj)
105			c tmpVal = etaN(i,j,bi,bj)
106			c & + phi0surf(i,j,bi,bj)*recip_Bo(i,j,bi,bj)
107			c tilePEav(bi,bj) = tilePEav(bi,bj)
108			c & + 0.5 _d 0Bo_surf(i,j,bi,bj)tmpVal*tmpVal
109			c & rA(i,j,bi,bj)maskH(i,j,bi,bj)
110			ENDDO
111			ENDDO
112			c theMean = theMean + tileMean(bi,bj)
113			c theVol = theVol + tileVol(bi,bj)
114			c theVolMean = theVolMean + tileVlAv(bi,bj)
115			c potEnMean = potEnMean + tilePEav(bi,bj)
116			C- end bi,bj loops
117			ENDDO
118			ENDDO
119	utke	1.2	_GLOBAL_SUM_RL(numPnts,myThid)
120			_GLOBAL_MAX_RL(theMax,myThid)
121			c _GLOBAL_SUM_RL(theMean,myThid)
122			c _GLOBAL_SUM_RL(theVol,myThid)
123			c _GLOBAL_SUM_RL(theVolMean,myThid)
124			c _GLOBAL_SUM_RL(potEnMean, myThid)
125	utke	1.1	CALL GLOBAL_SUM_TILE_RL( tileMean, theMean , myThid )
126			CALL GLOBAL_SUM_TILE_RL( tileVol , theVol , myThid )
127			CALL GLOBAL_SUM_TILE_RL( tileVlAv, theVolMean, myThid )
128			CALL GLOBAL_SUM_TILE_RL( tilePEav, potEnMean , myThid )
129			IF (numPnts.NE.0.) theMean=theMean/numPnts
130			IF (theVol.NE.0.) THEN
131			theVolMean=theVolMean/theVol
132			potEnMean = potEnMean/theVol
133			ENDIF
134
135			C-- Print stats for (barotropic) Potential Energy:
136			CALL MON_SET_PREF('pe_b',myThid)
137			CALL MON_OUT_RL(mon_string_none,potEnMean,
138			& mon_foot_mean,myThid)
139
140			C-- Print stats for KE
141			CALL MON_SET_PREF('ke',myThid)
142			CALL MON_OUT_RL(mon_string_none,theMax,mon_foot_max,myThid)
143			c CALL MON_OUT_RL(mon_string_none,theMean,mon_foot_mean,myThid)
144			CALL MON_OUT_RL(mon_string_none,theVolMean,
145			& mon_foot_mean,myThid)
146			CALL MON_OUT_RL(mon_string_none,theVol,
147			& mon_foot_vol,myThid)
148
149			RETURN
150			END
151
152			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|