61 |
_RL TimeAve_full(Nr,nSx,nSy) |
_RL TimeAve_full(Nr,nSx,nSy) |
62 |
|
|
63 |
COMMON /TAVE_STATEVARS/ |
COMMON /TAVE_STATEVARS/ |
64 |
& uFluxtave,vFluxtave,tFluxtave,sFluxtave, |
& uFluxtave,vFluxtave,tFluxtave,sFluxtave |
65 |
& etatave,Eta2tave, |
& ,etatave,uVeltave,vVeltave,wVeltave |
66 |
& uVeltave,vVeltave,wVeltave, |
& ,thetatave,salttave |
67 |
& thetatave,salttave, |
& ,UTtave,VTtave,WTtave |
68 |
& TTtave,UUtave,VVtave,UVtave, |
#ifndef HRCUBE |
69 |
& UTtave,VTtave,WTtave,TdiffRtave, |
& ,Eta2tave,TTtave,UUtave,VVtave,UVtave |
70 |
& phiHydtave, |
& ,TdiffRtave,phiHydtave |
71 |
& phiHydLowtave,phiHydLow2Tave, |
& ,phiHydLowtave,phiHydLow2Tave |
72 |
& ConvectCountTave |
& ,ConvectCountTave |
73 |
c & ,KEtave |
c & ,KEtave |
74 |
|
#endif /* ndef HRCUBE */ |
75 |
_RL uFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL uFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
76 |
_RL vFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL vFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
77 |
_RL tFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL tFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
78 |
_RL sFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL sFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
79 |
_RL etatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL etatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
_RL eta2Tave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
80 |
_RL uVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL uVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
81 |
_RL vVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL vVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
82 |
_RL wVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL wVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
83 |
_RL thetatave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL thetatave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
84 |
_RL salttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL salttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
85 |
|
_RL UTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
86 |
|
_RL VTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
87 |
|
_RL WTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
88 |
|
#ifndef HRCUBE |
89 |
|
_RL eta2Tave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
90 |
_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) |
91 |
_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) |
92 |
_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) |
93 |
_RL UVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL UVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
94 |
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) |
|
_RL UTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
|
_RL VTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
|
_RL WTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
95 |
_RL TdiffRtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL TdiffRtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
96 |
#ifdef ALLOW_MOM_VECINV |
#ifdef ALLOW_MOM_VECINV |
97 |
_RL uZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL uZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
98 |
_RL vZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL vZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
99 |
#endif |
#endif /* ALLOW_MOM_VECINV */ |
100 |
_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) |
101 |
_RL phiHydLowtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL phiHydLowtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
102 |
_RL phiHydLow2Tave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL phiHydLow2Tave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
103 |
_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) |
104 |
|
#endif /* ndef HRCUBE */ |
105 |
|
|
106 |
#ifdef NONLIN_FRSURF |
#ifdef NONLIN_FRSURF |
107 |
C hUtave :: average zonal flow (=hFacW*uVel) (still in m/s !) |
C hUtave :: average zonal flow (=hFacW*uVel) (still in m/s !) |
110 |
C hFacWtave :: average thickness fraction of open water, West side |
C hFacWtave :: average thickness fraction of open water, West side |
111 |
C hFacStave :: average thickness fraction of open water, South side |
C hFacStave :: average thickness fraction of open water, South side |
112 |
|
|
113 |
|
#ifndef HRCUBE |
114 |
COMMON /TAVE_THICKNESS/ |
COMMON /TAVE_THICKNESS/ |
115 |
& hUtave, hVtave |
& hUtave, hVtave |
116 |
c & , hFacCtave, hFacWtave, hFacStave |
c & , hFacCtave, hFacWtave, hFacStave |
119 |
c _RL hFacCtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
c _RL hFacCtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
120 |
c _RL hFacWtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
c _RL hFacWtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
121 |
c _RL hFacStave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
c _RL hFacStave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
122 |
|
#endif /* ndef HRCUBE */ |
123 |
#endif /* NONLIN_FRSURF */ |
#endif /* NONLIN_FRSURF */ |
124 |
|
|
125 |
#endif /* ALLOW_TIMEAVE */ |
#endif /* ALLOW_TIMEAVE */ |