pkg/gmredi/GMREDI_TAVE.h

0c49347dc7 Alis*0001 #ifdef ALLOW_GMREDI
                0002
e2c2a49732 Jean*0003 C     *==========================================================*
                0004 C     | GMREDI_TAVE.h
                0005 C     | o Header for GM-Redi time-average output
                0006 C     *==========================================================*
0c49347dc7 Alis*0007
edf2138f58 Jean*0008 #ifdef ALLOW_TIMEAVE
0c49347dc7 Alis*0009
                0010
                0011 C     Storage arrays for time-averages
8d8488bf10 Jean*0012       _RL GM_timeAve  (nSx,nSy)
0c49347dc7 Alis*0013       _RL GM_Kwx_T    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0014       _RL GM_Kwy_T    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0015       _RL GM_Kwz_T    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
8d8488bf10 Jean*0016       COMMON /GM_TAVE_VARS/
                0017      &                       GM_timeAve,
0c49347dc7 Alis*0018      &                       GM_Kwx_T,
                0019      &                       GM_Kwy_T,
                0020      &                       GM_Kwz_T
                0021
                0022 #ifdef GM_VISBECK_VARIABLE_K
                0023       _RL Visbeck_K_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0024       COMMON /VIS_TAVE/
                0025      &                       Visbeck_K_T
                0026 #endif
                0027
8d8488bf10 Jean*0028 #ifdef GM_BOLUS_ADVEC
f42e64b3e7 Jean*0029       _RL GM_PsiXtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0030       _RL GM_PsiYtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0031       COMMON /GM_TAVE_PSI_B/ GM_PsiXtave, GM_PsiYtave
                0032 #endif
                0033
edf2138f58 Jean*0034 #endif /* ALLOW_TIMEAVE */
0c49347dc7 Alis*0035
                0036 #endif /* ALLOW_GMREDI */
e2d47178e0 Ed H*0037
                0038 CEH3 ;;; Local Variables: ***
                0039 CEH3 ;;; mode:fortran ***
                0040 CEH3 ;;; End: ***