pkg/generic_advdiff/GAD_SOM_VARS.h

d7ce0d34f8 Jean*0001 CBOP
                0002 C     !ROUTINE: GAD_SOM_VARS.h
                0003 C     !INTERFACE:
                0004 C     include "GAD_SOM_VARS.h"
                0005 C     !DESCRIPTION:
                0006 C     \bv
                0007 C     *==========================================================*
                0008 C     | GAD_SOM_VARS.h
6e23417f74 Jean*0009 C     | o state variables for 2nd Order-Moment Advection
d7ce0d34f8 Jean*0010 C     *==========================================================*
6e23417f74 Jean*0011 C     | Storage needed for Temperature and Salinity when using
                0012 C     | 2nd Order-Moment (SOM) Advection
d7ce0d34f8 Jean*0013 C     *==========================================================*
                0014 C     \ev
                0015 CEOP
                0016
6e23417f74 Jean*0017 #ifdef GAD_ALLOW_TS_SOM_ADV
d7ce0d34f8 Jean*0018 C--   COMMON /GAD_SOM_VARS_R/ REAL, state variables for 2nd Order-Moment Advection
                0019 C     moments are stored in this order (3-D case): 1rst Order moments (3:x,y,z)
                0020 C                                   and 2nd Order moments (6:xx,yy,zz,xy,xz,yz).
                0021 C     som_T  :: Pot.Temp 1rst & 2nd Order Moments
                0022 C     som_S  :: Salinity 1rst & 2nd Order Moments
                0023
                0024       COMMON /GAD_SOM_VARS_R/
                0025      &                som_T,
                0026      &                som_S
                0027       _RL  som_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM)
                0028       _RL  som_S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM)
                0029
6e23417f74 Jean*0030 #endif /* GAD_ALLOW_TS_SOM_ADV */