/[MITgcm]/MITgcm/pkg/gmredi/GMREDI_TAVE.h
ViewVC logotype

Annotation of /MITgcm/pkg/gmredi/GMREDI_TAVE.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.2 - (hide annotations) (download)
Fri Jul 29 18:24:35 2005 UTC (18 years, 10 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint57t_post, checkpoint57o_post, checkpoint58e_post, mitgcm_mapl_00, checkpoint58u_post, checkpoint58w_post, checkpoint57s_post, checkpoint60, checkpoint61, checkpoint62, checkpoint58r_post, checkpoint57y_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58h_post, checkpoint57y_pre, checkpoint58q_post, checkpoint57v_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint58f_post, checkpoint57x_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58g_post, checkpoint58o_post, checkpoint57z_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint58p_post, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y, checkpoint58b_post, checkpoint58m_post
Changes since 1.1: +5 -1 lines
File MIME type: text/plain 
 o MNC-ify the gmredi package -- tested and works w/ and w/o mnc
   for ideal_2D_oce and lab_sea on linux_ia32_g77
1 edhill 1.2 C $Header: /u/gcmpack/MITgcm/pkg/gmredi/GMREDI_TAVE.h,v 1.1 2005/01/04 00:11:39 jmc Exp $
2 jmc 1.1 C $Name: $
3    
4     #ifdef ALLOW_GMREDI
5    
6     C *==========================================================*
7     C | GMREDI_TAVE.h
8     C | o Header for GM-Redi time-average output
9     C *==========================================================*
10    
11     #ifdef ALLOW_TIMEAVE
12    
13     C Keep track of time
14     _RL GM_TimeAve(Nr,nSx,nSy)
15     COMMON /GM_TAVE/ GM_TimeAve
16    
17    
18     C Storage arrays for time-averages
19     _RL GM_Kwx_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
20     _RL GM_Kwy_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
21     _RL GM_Kwz_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
22     COMMON /GM_TAVE_ARRAYS/
23     & GM_Kwx_T,
24     & GM_Kwy_T,
25     & GM_Kwz_T
26    
27     #ifdef GM_VISBECK_VARIABLE_K
28     _RL Visbeck_K_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29     COMMON /VIS_TAVE/
30     & Visbeck_K_T
31     #endif
32    
33     #ifdef GM_BOLUS_ADVEC
34     _RL GM_PsiXtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
35     _RL GM_PsiYtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
36     COMMON /GM_TAVE_PSI_B/ GM_PsiXtave, GM_PsiYtave
37     #endif
38    
39     #endif /* ALLOW_TIMEAVE */
40    
41     #endif /* ALLOW_GMREDI */
42 edhill 1.2
43     CEH3 ;;; Local Variables: ***
44     CEH3 ;;; mode:fortran ***
45     CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22