pkg/monitor/mon_ke.F

C $Header: /u/gcmpack/MITgcm/pkg/monitor/mon_ke.F,v 1.22 2012/12/21 01:00:09 jmc 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, (barotropic) Potential Energy
C                      and total Angular Momentum

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
      INTEGER i,j,k
      INTEGER ks, kp1
      _RL numPnts,theVol,tmpVal, mskp1, msk_1
      _RL weight0, weight1
      _RL theMax,theMean,theVolMean,potEnMean
      _RL uBarC, vBarC, totAMu, totAMs
      _RL tileMean(nSx,nSy)
      _RL tileVlAv(nSx,nSy)
      _RL tilePEav(nSx,nSy)
      _RL tileVol (nSx,nSy)
      _RL tileAMu (nSx,nSy)
      _RL tileAMs (nSx,nSy)
      _RL radDist(1:sNx,1:sNy)
#ifdef ALLOW_NONHYDROSTATIC
      _RL tmpWke
#endif

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

      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
         kp1 = MIN(k+1,Nr)
         mskp1 = 1.
         IF ( k.GE.Nr ) mskp1 = 0.
C- Note: Present NH implementation does not account for D.w/dt at k=1.
C        Consequently, wVel(k=1) does not contribute to NH KE (msk_1=0).
         msk_1 = 1.
         IF ( k.EQ.1 .AND. selectNHfreeSurf.LE.0 ) msk_1 = 0.
         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)
     &                     *maskInC(i,j,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)*uVel( i ,j,k,bi,bj)
     &         *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)
     &      +uVel(i+1,j,k,bi,bj)*uVel(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)
     &      +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj)
     &         *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)
     &      +vVel(i,j+1,k,bi,bj)*vVel(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)
     &        )*maskInC(i,j,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)

#ifdef ALLOW_NONHYDROSTATIC
           IF ( nonHydrostatic ) THEN
            tmpWke = 0.25*
     &        ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1
     &                             *deepFac2F( k )*rhoFacF( k )
     &         +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1
     &                             *deepFac2F(kp1)*rhoFacF(kp1)
     &        )*maskC(i,j,k,bi,bj)*maskInC(i,j,bi,bj)
            tileVlAv(bi,bj) = tileVlAv(bi,bj)
     &             + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
            tmpVal = tmpVal
     &             + tmpWke*recip_deepFac2C(k)*recip_rhoFacC(k)
           ENDIF
#endif

           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)*etaN(i,j,bi,bj)
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)
           tilePEav(bi,bj) = tilePEav(bi,bj)
     &            + tmpVal*rA(i,j,bi,bj)*deepFac2F(1)
     &                    *maskInC(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)*maskInC(i,j,bi,bj)
          ENDDO
         ENDDO
C- end bi,bj loops
       ENDDO
      ENDDO
      _GLOBAL_SUM_RL(numPnts,myThid)
      _GLOBAL_MAX_RL(theMax,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--   Compute total angular momentum
      IF ( mon_output_AM ) THEN
       DO bj=myByLo(myThid),myByHi(myThid)
        DO bi=myBxLo(myThid),myBxHi(myThid)
C-    calculate radial distance
         DO j=1,sNy
          DO i=1,sNx
            radDist(i,j) = rSphere*COS( deg2rad*yC(i,j,bi,bj) )
     &                            *maskInC(i,j,bi,bj)
          ENDDO
         ENDDO
C-    calculate contribution from zonal velocity
         tileAMu(bi,bj) = 0. _d 0
         tileAMs(bi,bj) = 0. _d 0
         DO k=1,Nr
          DO j=1,sNy
           DO i=1,sNx
            uBarC = (uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))*0.5 _d 0
            vBarC = (vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))*0.5 _d 0
            tmpVal = ( angleCosC(i,j,bi,bj)*uBarC
     &                -angleSinC(i,j,bi,bj)*vBarC
     &               )*radDist(i,j)*deepFacC(k)
            tileAMu(bi,bj) = tileAMu(bi,bj)
     &             + tmpVal*rA(i,j,bi,bj)*deepFac2C(k)
     &                     *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj)
           ENDDO
          ENDDO
         ENDDO
C-    and contribution from mass distribution anomaly (i.e., free-surface)
c        IF ( .FALSE. ) THEN
         IF ( exactConserv ) THEN
C-    To improve balance between zonal-wind (AMu) and mass (AMs) AM, need
C     a consistent time-stepping of meridional mass transport in Coriolis
C     (zonal momentum, go through AB) and mass transport divergence;
C     try to account for AB-2 in AMs the same way it applies to f*v:
#ifdef ALLOW_ADAMSBASHFORTH_3
          weight1 = alph_AB
#else
          weight1 = 0.5 _d 0 + abEps
#endif
          weight0 = 1.0 _d 0 - weight1
          DO j=1,sNy
           DO i=1,sNx
            ks = kSurfC(i,j,bi,bj)
            tmpVal = weight1*etaH(i,j,bi,bj)
#ifdef EXACT_CONSERV
     &             + weight0*etaHnm1(i,j,bi,bj)
#endif
            tmpVal = omega*tmpVal
     &             * radDist(i,j)*radDist(i,j)*deepFac2F(ks)
            tileAMs(bi,bj) = tileAMs(bi,bj)
     &             + tmpVal*rA(i,j,bi,bj)*deepFac2F(ks)*rhoFacF(ks)
           ENDDO
          ENDDO
         ELSE
          DO j=1,sNy
           DO i=1,sNx
            ks = kSurfC(i,j,bi,bj)
            tmpVal = omega*etaN(i,j,bi,bj)
     &             * radDist(i,j)*radDist(i,j)*deepFac2F(ks)
            tileAMs(bi,bj) = tileAMs(bi,bj)
     &             + tmpVal*rA(i,j,bi,bj)*deepFac2F(ks)*rhoFacF(ks)
           ENDDO
          ENDDO
         ENDIF
C- end bi,bj loops
        ENDDO
       ENDDO
       CALL GLOBAL_SUM_TILE_RL( tileAMu , totAMu, myThid )
       CALL GLOBAL_SUM_TILE_RL( tileAMs , totAMs, myThid )

C--   Print stats for total Angular Momentum (per unit area, in kg/s):
       CALL MON_SET_PREF('am',myThid)
       totAMu = totAMu*rUnit2mass
       totAMs = totAMs*rUnit2mass
       IF ( globalArea.GT.0. ) totAMu = totAMu/globalArea
       IF ( globalArea.GT.0. ) totAMs = totAMs/globalArea
       CALL MON_OUT_RL( mon_string_none, totAMs,
     &         '_eta_mean', myThid )
       CALL MON_OUT_RL( mon_string_none, totAMu,
     &         '_uZo_mean', myThid )
       totAMu = totAMu + totAMs
       CALL MON_OUT_RL( mon_string_none, totAMu,
     &         '_tot_mean', myThid )

      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
1	jmc	1.23	C $Header: /u/gcmpack/MITgcm/pkg/monitor/mon_ke.F,v 1.22 2012/12/21 01:00:09 jmc Exp $
2	adcroft	1.1	C $Name: $
3
4	adcroft	1.11	#include "MONITOR_OPTIONS.h"
5	adcroft	1.1
6	edhill	1.12	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7			CBOP
8			C !ROUTINE: MON_KE
9
10			C !INTERFACE:
11	adcroft	1.1	SUBROUTINE MON_KE(
12	edhill	1.12	I myIter, myThid )
13
14			C !DESCRIPTION:
15	jmc	1.22	C Calculates stats for Kinetic Energy, (barotropic) Potential Energy
16			C and total Angular Momentum
17	edhill	1.12
18			C !USES:
19	adcroft	1.1	IMPLICIT NONE
20			#include "SIZE.h"
21			#include "EEPARAMS.h"
22	jmc	1.16	#include "PARAMS.h"
23	adcroft	1.1	#include "DYNVARS.h"
24	cnh	1.5	#include "MONITOR.h"
25	jmc	1.8	#include "GRID.h"
26	jmc	1.10	#include "SURFACE.h"
27	adcroft	1.1
28	edhill	1.12	C !INPUT PARAMETERS:
29	jmc	1.10	INTEGER myIter, myThid
30	edhill	1.12	CEOP
31	adcroft	1.1
32	edhill	1.12	C !LOCAL VARIABLES:
33	jmc	1.22	INTEGER bi, bj
34			INTEGER i,j,k
35			INTEGER ks, kp1
36	jmc	1.19	_RL numPnts,theVol,tmpVal, mskp1, msk_1
37	jmc	1.23	_RL weight0, weight1
38	jmc	1.10	_RL theMax,theMean,theVolMean,potEnMean
39	jmc	1.22	_RL uBarC, vBarC, totAMu, totAMs
40	jmc	1.16	_RL tileMean(nSx,nSy)
41			_RL tileVlAv(nSx,nSy)
42			_RL tilePEav(nSx,nSy)
43			_RL tileVol (nSx,nSy)
44	jmc	1.22	_RL tileAMu (nSx,nSy)
45			_RL tileAMs (nSx,nSy)
46			_RL radDist(1:sNx,1:sNy)
47	jmc	1.18	#ifdef ALLOW_NONHYDROSTATIC
48			_RL tmpWke
49			#endif
50	adcroft	1.1
51	jmc	1.21	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
52
53	jmc	1.10	numPnts=0.
54			theVol=0.
55	adcroft	1.1	theMax=0.
56			theMean=0.
57	jmc	1.8	theVolMean=0.
58	jmc	1.10	potEnMean =0.
59	adcroft	1.1
60			DO bj=myByLo(myThid),myByHi(myThid)
61			DO bi=myBxLo(myThid),myBxHi(myThid)
62	jmc	1.16	tileVol(bi,bj) = 0. _d 0
63			tileMean(bi,bj) = 0. _d 0
64			tileVlAv(bi,bj) = 0. _d 0
65			tilePEav(bi,bj) = 0. _d 0
66			DO k=1,Nr
67	jmc	1.18	kp1 = MIN(k+1,Nr)
68			mskp1 = 1.
69	jmc	1.19	IF ( k.GE.Nr ) mskp1 = 0.
70			C- Note: Present NH implementation does not account for D.w/dt at k=1.
71			C Consequently, wVel(k=1) does not contribute to NH KE (msk_1=0).
72			msk_1 = 1.
73	jmc	1.22	IF ( k.EQ.1 .AND. selectNHfreeSurf.LE.0 ) msk_1 = 0.
74	jmc	1.16	DO j=1,sNy
75			DO i=1,sNx
76			tileVol(bi,bj) = tileVol(bi,bj)
77			& + rA(i,j,bi,bj)*deepFac2C(k)
78			& rhoFacC(k)drF(k)*_hFacC(i,j,k,bi,bj)
79	jmc	1.21	& *maskInC(i,j,bi,bj)
80	jmc	1.9
81			C- Vector Invariant form (like in pkg/mom_vecinv/mom_vi_calc_ke.F)
82	jmc	1.16	c tmpVal=0.25( uVel( i , j ,k,bi,bj)uVel( i , j ,k,bi,bj)
83			c & +uVel(i+1, j ,k,bi,bj)*uVel(i+1, j ,k,bi,bj)
84			c & +vVel( i , j ,k,bi,bj)*vVel( i , j ,k,bi,bj)
85			c & +vVel( i ,j+1,k,bi,bj)*vVel( i ,j+1,k,bi,bj) )
86			c tileVlAv(bi,bj) = tileVlAv(bi,bj)
87			c & +tmpValrA(i,j,bi,bj)drF(k)*hFacC(i,j,k,bi,bj)
88	jmc	1.9
89			C- Energy conservative form (like in pkg/mom_fluxform/mom_calc_ke.F)
90			C this is the safe way to check the energy conservation
91			C with no assumption on how grid spacing & area are defined.
92			tmpVal=0.25*(
93			& uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj)
94	heimbach	1.15	& dyG( i ,j,bi,bj)dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)
95	jmc	1.9	& +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj)
96	heimbach	1.15	& dyG(i+1,j,bi,bj)dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)
97	jmc	1.9	& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj)
98	heimbach	1.15	& dxG(i, j ,bi,bj)dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)
99	jmc	1.9	& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj)
100	heimbach	1.15	& dxG(i,j+1,bi,bj)dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)
101	jmc	1.21	& )*maskInC(i,j,bi,bj)
102	jmc	1.16	tileVlAv(bi,bj) = tileVlAv(bi,bj)
103			& + tmpValdeepFac2C(k)rhoFacC(k)*drF(k)
104	heimbach	1.15	tmpVal= tmpVal_recip_hFacC(i,j,k,bi,bj)recip_rA(i,j,bi,bj)
105	jmc	1.9
106	jmc	1.18	#ifdef ALLOW_NONHYDROSTATIC
107			IF ( nonHydrostatic ) THEN
108			tmpWke = 0.25*
109	jmc	1.19	& ( wVel(i,j, k, bi,bj)wVel(i,j, k, bi,bj)msk_1
110	jmc	1.18	& deepFac2F( k )rhoFacF( k )
111			& +wVel(i,j,kp1,bi,bj)wVel(i,j,kp1,bi,bj)mskp1
112			& deepFac2F(kp1)rhoFacF(kp1)
113	jmc	1.21	& )maskC(i,j,k,bi,bj)maskInC(i,j,bi,bj)
114	jmc	1.18	tileVlAv(bi,bj) = tileVlAv(bi,bj)
115			& + tmpWkerA(i,j,bi,bj)drF(k)*_hFacC(i,j,k,bi,bj)
116			tmpVal = tmpVal
117			& + tmpWkerecip_deepFac2C(k)recip_rhoFacC(k)
118			ENDIF
119			#endif
120
121	jmc	1.16	theMax=MAX(theMax,tmpVal)
122	adcroft	1.1	IF (tmpVal.NE.0.) THEN
123	jmc	1.16	tileMean(bi,bj)=tileMean(bi,bj)+tmpVal
124	jmc	1.10	numPnts=numPnts+1.
125	adcroft	1.1	ENDIF
126	jmc	1.9
127	adcroft	1.1	ENDDO
128			ENDDO
129			ENDDO
130	jmc	1.10	C- Potential Energy (external mode):
131	jmc	1.16	DO j=1,sNy
132			DO i=1,sNx
133	jmc	1.10	tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj)
134			& etaN(i,j,bi,bj)etaN(i,j,bi,bj)
135			C- jmc: if geoid not flat (phi0surf), needs to add this term.
136			C not sure for atmos/ocean in P ; or atmos. loading in ocean-Z
137			tmpVal = tmpVal
138			& + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj)
139	jmc	1.16	tilePEav(bi,bj) = tilePEav(bi,bj)
140	jmc	1.20	& + tmpValrA(i,j,bi,bj)deepFac2F(1)
141			& *maskInC(i,j,bi,bj)
142	jmc	1.10	c tmpVal = etaN(i,j,bi,bj)
143			c & + phi0surf(i,j,bi,bj)*recip_Bo(i,j,bi,bj)
144	jmc	1.16	c tilePEav(bi,bj) = tilePEav(bi,bj)
145	jmc	1.10	c & + 0.5 _d 0Bo_surf(i,j,bi,bj)tmpVal*tmpVal
146	jmc	1.20	c & rA(i,j,bi,bj)maskInC(i,j,bi,bj)
147	jmc	1.10	ENDDO
148			ENDDO
149			C- end bi,bj loops
150	adcroft	1.1	ENDDO
151			ENDDO
152	jmc	1.17	_GLOBAL_SUM_RL(numPnts,myThid)
153			_GLOBAL_MAX_RL(theMax,myThid)
154	jmc	1.16	CALL GLOBAL_SUM_TILE_RL( tileMean, theMean , myThid )
155			CALL GLOBAL_SUM_TILE_RL( tileVol , theVol , myThid )
156			CALL GLOBAL_SUM_TILE_RL( tileVlAv, theVolMean, myThid )
157			CALL GLOBAL_SUM_TILE_RL( tilePEav, potEnMean , myThid )
158	jmc	1.10	IF (numPnts.NE.0.) theMean=theMean/numPnts
159			IF (theVol.NE.0.) THEN
160			theVolMean=theVolMean/theVol
161			potEnMean = potEnMean/theVol
162			ENDIF
163
164	jmc	1.22	C-- Compute total angular momentum
165			IF ( mon_output_AM ) THEN
166			DO bj=myByLo(myThid),myByHi(myThid)
167			DO bi=myBxLo(myThid),myBxHi(myThid)
168			C- calculate radial distance
169			DO j=1,sNy
170			DO i=1,sNx
171			radDist(i,j) = rSphereCOS( deg2radyC(i,j,bi,bj) )
172			& *maskInC(i,j,bi,bj)
173			ENDDO
174			ENDDO
175			C- calculate contribution from zonal velocity
176			tileAMu(bi,bj) = 0. _d 0
177			tileAMs(bi,bj) = 0. _d 0
178			DO k=1,Nr
179			DO j=1,sNy
180			DO i=1,sNx
181			uBarC = (uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))*0.5 _d 0
182			vBarC = (vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))*0.5 _d 0
183			tmpVal = ( angleCosC(i,j,bi,bj)*uBarC
184			& -angleSinC(i,j,bi,bj)*vBarC
185			& )radDist(i,j)deepFacC(k)
186			tileAMu(bi,bj) = tileAMu(bi,bj)
187			& + tmpValrA(i,j,bi,bj)deepFac2C(k)
188			& rhoFacC(k)drF(k)*_hFacC(i,j,k,bi,bj)
189			ENDDO
190			ENDDO
191			ENDDO
192	jmc	1.23	C- and contribution from mass distribution anomaly (i.e., free-surface)
193			c IF ( .FALSE. ) THEN
194			IF ( exactConserv ) THEN
195			C- To improve balance between zonal-wind (AMu) and mass (AMs) AM, need
196			C a consistent time-stepping of meridional mass transport in Coriolis
197			C (zonal momentum, go through AB) and mass transport divergence;
198			C try to account for AB-2 in AMs the same way it applies to f*v:
199			#ifdef ALLOW_ADAMSBASHFORTH_3
200			weight1 = alph_AB
201			#else
202			weight1 = 0.5 _d 0 + abEps
203			#endif
204			weight0 = 1.0 _d 0 - weight1
205			DO j=1,sNy
206			DO i=1,sNx
207			ks = kSurfC(i,j,bi,bj)
208			tmpVal = weight1*etaH(i,j,bi,bj)
209			#ifdef EXACT_CONSERV
210			& + weight0*etaHnm1(i,j,bi,bj)
211			#endif
212			tmpVal = omega*tmpVal
213			& * radDist(i,j)radDist(i,j)deepFac2F(ks)
214			tileAMs(bi,bj) = tileAMs(bi,bj)
215			& + tmpValrA(i,j,bi,bj)deepFac2F(ks)*rhoFacF(ks)
216			ENDDO
217			ENDDO
218			ELSE
219	jmc	1.22	DO j=1,sNy
220			DO i=1,sNx
221			ks = kSurfC(i,j,bi,bj)
222			tmpVal = omega*etaN(i,j,bi,bj)
223			& * radDist(i,j)radDist(i,j)deepFac2F(ks)
224			tileAMs(bi,bj) = tileAMs(bi,bj)
225			& + tmpValrA(i,j,bi,bj)deepFac2F(ks)*rhoFacF(ks)
226			ENDDO
227			ENDDO
228	jmc	1.23	ENDIF
229	jmc	1.22	C- end bi,bj loops
230			ENDDO
231			ENDDO
232			CALL GLOBAL_SUM_TILE_RL( tileAMu , totAMu, myThid )
233			CALL GLOBAL_SUM_TILE_RL( tileAMs , totAMs, myThid )
234
235	jmc	1.23	C-- Print stats for total Angular Momentum (per unit area, in kg/s):
236	jmc	1.22	CALL MON_SET_PREF('am',myThid)
237			totAMu = totAMu*rUnit2mass
238			totAMs = totAMs*rUnit2mass
239			IF ( globalArea.GT.0. ) totAMu = totAMu/globalArea
240			IF ( globalArea.GT.0. ) totAMs = totAMs/globalArea
241			CALL MON_OUT_RL( mon_string_none, totAMs,
242			& '_eta_mean', myThid )
243			CALL MON_OUT_RL( mon_string_none, totAMu,
244			& '_uZo_mean', myThid )
245			totAMu = totAMu + totAMs
246			CALL MON_OUT_RL( mon_string_none, totAMu,
247			& '_tot_mean', myThid )
248
249			ENDIF
250
251	jmc	1.10	C-- Print stats for (barotropic) Potential Energy:
252			CALL MON_SET_PREF('pe_b',myThid)
253			CALL MON_OUT_RL(mon_string_none,potEnMean,
254			& mon_foot_mean,myThid)
255	adcroft	1.1
256	jmc	1.10	C-- Print stats for KE
257			CALL MON_SET_PREF('ke',myThid)
258	jmc	1.8	CALL MON_OUT_RL(mon_string_none,theMax,mon_foot_max,myThid)
259	jmc	1.10	c CALL MON_OUT_RL(mon_string_none,theMean,mon_foot_mean,myThid)
260	jmc	1.8	CALL MON_OUT_RL(mon_string_none,theVolMean,
261	jmc	1.10	& mon_foot_mean,myThid)
262	jmc	1.9	CALL MON_OUT_RL(mon_string_none,theVol,
263			& mon_foot_vol,myThid)
264	adcroft	1.1
265			RETURN
266			END