C $Header: /u/gcmpack/MITgcm/pkg/generic_advdiff/GAD_SOM_VARS.h,v 1.2 2008/05/09 21:43:16 jmc Exp $ C $Name: $ CBOP C !ROUTINE: GAD_SOM_VARS.h C !INTERFACE: C include "GAD_SOM_VARS.h" C !DESCRIPTION: C \bv C *==========================================================* C | GAD_SOM_VARS.h C | o state variables for 2nd Order-Moment Advection C *==========================================================* C | Storage needed for Temperature and Salinity when using C | 2nd Order-Moment (SOM) Advection C *==========================================================* C \ev CEOP #ifdef GAD_ALLOW_TS_SOM_ADV C-- COMMON /GAD_SOM_VARS_R/ REAL, state variables for 2nd Order-Moment Advection C moments are stored in this order (3-D case): 1rst Order moments (3:x,y,z) C and 2nd Order moments (6:xx,yy,zz,xy,xz,yz). C som_T :: Pot.Temp 1rst & 2nd Order Moments C som_S :: Salinity 1rst & 2nd Order Moments COMMON /GAD_SOM_VARS_R/ & som_T, & som_S _RL som_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM) _RL som_S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM) #endif /* GAD_ALLOW_TS_SOM_ADV */