File indexing completed on 2021-04-08 05:12:34 UTC
view on githubraw file Latest commit ba0b0470 on 2021-04-08 01:06:32 UTC
6d54cf9ca1 Ed H*0001 #include "TIMEAVE_OPTIONS.h"
0002
aa7db3783b Jean*0003 #ifdef ALLOW_TIMEAVE
0004
0005
0006
0007
0008
0009
0010
0011
9a31010562 Jean*0012
aa7db3783b Jean*0013
0014
0015
9a31010562 Jean*0016
0017
0018
aa7db3783b Jean*0019
0020
0021
0022
0023
9a31010562 Jean*0024
0025
9d36aec500 Dimi*0026
0027
0028
0029
0030
0031
aa7db3783b Jean*0032
0033
0034
0035
0036
ba0b047096 Mart*0037
9d36aec500 Dimi*0038
aa7db3783b Jean*0039
0040
0041
4237a8e6b2 Jean*0042
aa7db3783b Jean*0043
0044
0045
1a4a1e8371 Alis*0046
03afacb44c Alis*0047
0048
1a4a1e8371 Alis*0049
4237a8e6b2 Jean*0050
9d36aec500 Dimi*0051
0052
aa7db3783b Jean*0053
60c223928f Mart*0054
0055
0056
aa7db3783b Jean*0057
cf6eb84240 Jean*0058
9a31010562 Jean*0059 COMMON /TAVE_TIME/ timeAve_half, timeAve_full
0060 _RL timeAve_half(nSx,nSy)
0061 _RL timeAve_full(nSx,nSy)
cf6eb84240 Jean*0062
9d36aec500 Dimi*0063 COMMON /TAVE_STATEVARS/
e7f0a9dbe1 Dimi*0064 & uFluxtave,vFluxtave,tFluxtave,sFluxtave
0065 & ,etatave,uVeltave,vVeltave,wVeltave
1bf6bedaf8 Dimi*0066 & ,thetatave,salttave,phiHydLowtave
1a4a1e8371 Alis*0067 & ,UTtave,VTtave,WTtave,UStave,VStave,WStave
e7f0a9dbe1 Dimi*0068 & ,Eta2tave,TTtave,UUtave,VVtave,UVtave
52cc3612c0 Jean*0069 & ,TdiffRtave
0070 #ifdef ALLOW_MOM_VECINV
0071 & ,uZetatave, vZetatave
0072 #endif /* ALLOW_MOM_VECINV */
0073 & ,phiHydtave
1bf6bedaf8 Dimi*0074 & ,phiHydLow2Tave
e7f0a9dbe1 Dimi*0075 & ,ConvectCountTave
9d36aec500 Dimi*0076 _RL uFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0077 _RL vFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0078 _RL tFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0079 _RL sFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
aa7db3783b Jean*0080 _RL etatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
cf6eb84240 Jean*0081 _RL uVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0082 _RL vVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
aa7db3783b Jean*0083 _RL wVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
cf6eb84240 Jean*0084 _RL thetatave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0085 _RL salttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
1bf6bedaf8 Dimi*0086 _RL phiHydLowtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
e7f0a9dbe1 Dimi*0087 _RL UTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0088 _RL VTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
1a4a1e8371 Alis*0089 _RL WTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
03afacb44c Alis*0090 _RL UStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0091 _RL VStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
1a4a1e8371 Alis*0092 _RL WStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
e7f0a9dbe1 Dimi*0093 _RL eta2Tave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
aea29c8517 Alis*0094 _RL TTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0095 _RL UUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0096 _RL VVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
4237a8e6b2 Jean*0097 _RL UVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0098 _RL TdiffRtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
99bc607d7a Ed H*0099 #ifdef ALLOW_MOM_VECINV
6add245ab0 Jean*0100 _RL uZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0101 _RL vZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
e7f0a9dbe1 Dimi*0102 #endif /* ALLOW_MOM_VECINV */
cf6eb84240 Jean*0103 _RL phiHydtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
60c223928f Mart*0104 _RL phiHydLow2Tave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
cf6eb84240 Jean*0105 _RL ConvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
aa7db3783b Jean*0106
0107 #ifdef NONLIN_FRSURF
0108
0109
0110
0111
0112
0113
9a31010562 Jean*0114 COMMON /TAVE_THICKNESS/
aa7db3783b Jean*0115 & hUtave, hVtave
9a31010562 Jean*0116
aa7db3783b Jean*0117 _RL hUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0118 _RL hVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0119
0120
0121
0122 #endif /* NONLIN_FRSURF */
0123
9a31010562 Jean*0124 #endif /* ALLOW_TIMEAVE */