C $Header: /u/gcmpack/MITgcm/pkg/gmredi/GMREDI_TAVE.h,v 1.3 2010/01/02 23:10:47 jmc Exp $ C $Name: $ #ifdef ALLOW_GMREDI C *==========================================================* C | GMREDI_TAVE.h C | o Header for GM-Redi time-average output C *==========================================================* #ifdef ALLOW_TIMEAVE C Storage arrays for time-averages _RL GM_timeAve (nSx,nSy) _RL GM_Kwx_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RL GM_Kwy_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RL GM_Kwz_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) COMMON /GM_TAVE_VARS/ & GM_timeAve, & GM_Kwx_T, & GM_Kwy_T, & GM_Kwz_T #ifdef GM_VISBECK_VARIABLE_K _RL Visbeck_K_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) COMMON /VIS_TAVE/ & Visbeck_K_T #endif #ifdef GM_BOLUS_ADVEC _RL GM_PsiXtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RL GM_PsiYtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) COMMON /GM_TAVE_PSI_B/ GM_PsiXtave, GM_PsiYtave #endif #endif /* ALLOW_TIMEAVE */ #endif /* ALLOW_GMREDI */ CEH3 ;;; Local Variables: *** CEH3 ;;; mode:fortran *** CEH3 ;;; End: ***