34 |
C TTtave :: theta * theta |
C TTtave :: theta * theta |
35 |
C UUtave :: uVel * uVel (used to compute the averaged KE) |
C UUtave :: uVel * uVel (used to compute the averaged KE) |
36 |
C VVtave :: vVel * vVel (used to compute the averaged KE) |
C VVtave :: vVel * vVel (used to compute the averaged KE) |
37 |
|
C UVtave :: uVel * vVel (at vorticity point, i.e. grid-corner) |
38 |
C KEtave :: Kinetic Energy |
C KEtave :: Kinetic Energy |
39 |
C UTtave :: uVel * theta (* hFacW) |
C UTtave :: uVel * theta (* hFacW) |
40 |
C VTtave :: vVel * theta (* hFacS) |
C VTtave :: vVel * theta (* hFacS) |
41 |
C WTtave :: wVel * theta |
C WTtave :: wVel * theta |
42 |
|
C tDiffRtave :: vertical diffusion flux of Temperature (theta) |
43 |
|
C uZetatave :: uVel*Relativ_Vorticity_3 (computed at v point) |
44 |
|
C vZetatave :: vVel*Relativ_Vorticity_3 (computed at u point) |
45 |
C phiHydtave :: Hydrostatic (ocean) pressure / (atmos) geo- Potential |
C phiHydtave :: Hydrostatic (ocean) pressure / (atmos) geo- Potential |
46 |
|
C phiHydLowtave:: Hydrostatic (ocean) pressure / (atmos) geo- Potential |
47 |
|
C at the fixed boundary: (ocean) bottom pressure |
48 |
|
C (atmos) geo- Potential |
49 |
C ConvectCountTave :: Average number of convective adjustment event |
C ConvectCountTave :: Average number of convective adjustment event |
50 |
|
|
51 |
COMMON /TAVE_TIME/ TimeAve_half,TimeAve_full |
COMMON /TAVE_TIME/ TimeAve_half,TimeAve_full |
56 |
& etatave,Eta2tave, |
& etatave,Eta2tave, |
57 |
& uVeltave,vVeltave,wVeltave, |
& uVeltave,vVeltave,wVeltave, |
58 |
& thetatave,salttave, |
& thetatave,salttave, |
59 |
& TTtave,UUtave,VVtave, |
& TTtave,UUtave,VVtave,UVtave, |
60 |
& UTtave,VTtave,WTtave, |
& UTtave,VTtave,WTtave,TdiffRtave, |
61 |
& phiHydtave,ConvectCountTave |
& phiHydtave, |
62 |
|
& phiHydLowtave,phiHydLow2Tave, |
63 |
|
& ConvectCountTave |
64 |
c & ,KEtave |
c & ,KEtave |
65 |
_RL etatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL etatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
66 |
_RL eta2Tave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL eta2Tave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
72 |
_RL TTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL TTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
73 |
_RL UUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL UUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
74 |
_RL VVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL VVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
75 |
|
_RL UVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
76 |
c _RL KEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
c _RL KEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
77 |
_RL UTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL UTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
78 |
_RL VTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL VTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
79 |
_RL WTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL WTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
80 |
|
_RL TdiffRtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
81 |
|
#ifndef DISABLE_MOM_VECINV |
82 |
|
_RL uZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
83 |
|
_RL vZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
84 |
|
#endif |
85 |
_RL phiHydtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL phiHydtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
86 |
|
_RL phiHydLowtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
87 |
|
_RL phiHydLow2Tave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
88 |
_RL ConvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL ConvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
89 |
|
|
90 |
#ifdef NONLIN_FRSURF |
#ifdef NONLIN_FRSURF |