/[MITgcm]/MITgcm/pkg/generic_advdiff/GAD_SOM_VARS.h
ViewVC logotype

Contents of /MITgcm/pkg/generic_advdiff/GAD_SOM_VARS.h

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

Revision 1.1 - (show annotations) (download)
Tue Jan 16 04:38:34 2007 UTC (17 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint58w_post, checkpoint58x_post, checkpoint59q, checkpoint59p, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint59, checkpoint58y_post, checkpoint58v_post
File MIME type: text/plain 
2nd-Order Moment Advection Scheme (Prather, 1986): first check-in
 - enable by setting #define GAD_ALLOW_SOM_ADVECT (in GAD_OPTIONS.h)
 - used without limiter (AdvScheme=80) or with Prather limiter (AdvScheme=81)
 - still needs work (not working with some options ; efficiency to improve)
   and serious testing.
1 C $Header: $
2 C $Name: $
3
4 CBOP
5 C !ROUTINE: GAD_SOM_VARS.h
6 C !INTERFACE:
7 C include "GAD_SOM_VARS.h"
8 C !DESCRIPTION:
9 C \bv
10 C *==========================================================*
11 C | GAD_SOM_VARS.h
12 C | o Additional state variables for non-hydrostatic model
13 C *==========================================================*
14 C | In N-H mode, wVel becomes a prognostic variable: need
15 C | to hold two levels of time tendency for w (for AB-2)
16 C *==========================================================*
17 C \ev
18 CEOP
19
20 #ifdef GAD_ALLOW_SOM_ADVECT
21 C-- COMMON /GAD_SOM_VARS_R/ REAL, state variables for 2nd Order-Moment Advection
22 C moments are stored in this order (3-D case): 1rst Order moments (3:x,y,z)
23 C and 2nd Order moments (6:xx,yy,zz,xy,xz,yz).
24 C som_T :: Pot.Temp 1rst & 2nd Order Moments
25 C som_S :: Salinity 1rst & 2nd Order Moments
26
27 COMMON /GAD_SOM_VARS_R/
28 & som_T,
29 & som_S
30 _RL som_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM)
31 _RL som_S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM)
32
33 #endif /* GAD_ALLOW_SOM_ADVECT */
  ViewVC Help
Powered by ViewVC 1.1.22