pkg/gmredi/GMREDI.h

C $Header: /u/gcmpack/models/MITgcmUV/pkg/gmredi/GMREDI.h,v 1.4 2001/02/02 21:36:29 adcroft Exp $
C $Name: $

#ifdef ALLOW_GMREDI

C     Package flag
      logical GMREDIisON
      COMMON /GM_PACKAGE/ GMREDIisON

C     GM/Redi parameters
      _RL GM_background_K
      _RL GM_maxSlope
      _RL GM_Visbeck_alpha
      _RL GM_Visbeck_length
      _RL GM_Visbeck_depth
      _RL GM_Visbeck_maxval_K
      CHARACTER*(MAX_LEN_FNAM) GM_taper_scheme
      _RL GM_Scrit
      _RL GM_Sd
      COMMON /GM_PARAMS/ GM_background_K,
     &                   GM_maxSlope,
     &                   GM_Visbeck_alpha,
     &                   GM_Visbeck_length,
     &                   GM_Visbeck_depth,
     &                   GM_Visbeck_maxval_K,
     &                   GM_taper_scheme,
     &                   GM_Scrit,
     &                   GM_Sd


C     More GM/Redi parameters diagnosed from previous block
C     (not directly user configured)
      _RL GM_rMaxSlope
      COMMON /GM_PARAMS2/ GM_rMaxSlope


C     GM/Redi tensor elements

C     Bottom row of tensor corresponds to W points
C     Kwx is K_31 element, X direction at W point
C     Kwy is K_32 element, Y direction at W point
C     Kwz is K_33 element, Z direction at W point
      _RL Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      COMMON /GM_Wtensor/ Kwx,Kwy,Kwz

#ifdef GM_NON_UNITY_DIAGONAL
C     First/second rows of tensor corresponds to U/V points
C     Kux is K_11 element, X direction at U point
C     Kvy is K_22 element, Y direction at V point
      _RL Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      COMMON /GM_UVtensor/ Kux,Kvy
#else
      _RL Kux,Kvy
      PARAMETER(Kux=1.,Kvy=1.)
#endif

#ifdef GM_VISBECK_VARIABLE_K
C     GM mixing/stirring coefficient (spatially variable in horizontal
C     for Visbeck et al. parameterization)
      _RL VisbeckK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      COMMON /GM_Visbeck/ VisbeckK
#endif

#endif /* ALLOW_GMREDI */
1	C $Header: /u/gcmpack/models/MITgcmUV/pkg/gmredi/GMREDI.h,v 1.4 2001/02/02 21:36:29 adcroft Exp $
2	C $Name: $
3
4	#ifdef ALLOW_GMREDI
5
6	C Package flag
7	logical GMREDIisON
8	COMMON /GM_PACKAGE/ GMREDIisON
9
10	C GM/Redi parameters
11	_RL GM_background_K
12	_RL GM_maxSlope
13	_RL GM_Visbeck_alpha
14	_RL GM_Visbeck_length
15	_RL GM_Visbeck_depth
16	_RL GM_Visbeck_maxval_K
17	CHARACTER*(MAX_LEN_FNAM) GM_taper_scheme
18	_RL GM_Scrit
19	_RL GM_Sd
20	COMMON /GM_PARAMS/ GM_background_K,
21	& GM_maxSlope,
22	& GM_Visbeck_alpha,
23	& GM_Visbeck_length,
24	& GM_Visbeck_depth,
25	& GM_Visbeck_maxval_K,
26	& GM_taper_scheme,
27	& GM_Scrit,
28	& GM_Sd
29
30
31	C More GM/Redi parameters diagnosed from previous block
32	C (not directly user configured)
33	_RL GM_rMaxSlope
34	COMMON /GM_PARAMS2/ GM_rMaxSlope
35
36
37	C GM/Redi tensor elements
38
39	C Bottom row of tensor corresponds to W points
40	C Kwx is K_31 element, X direction at W point
41	C Kwy is K_32 element, Y direction at W point
42	C Kwz is K_33 element, Z direction at W point
43	_RL Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
44	_RL Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
45	_RL Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
46	COMMON /GM_Wtensor/ Kwx,Kwy,Kwz
47
48	#ifdef GM_NON_UNITY_DIAGONAL
49	C First/second rows of tensor corresponds to U/V points
50	C Kux is K_11 element, X direction at U point
51	C Kvy is K_22 element, Y direction at V point
52	_RL Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
53	_RL Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
54	COMMON /GM_UVtensor/ Kux,Kvy
55	#else
56	_RL Kux,Kvy
57	PARAMETER(Kux=1.,Kvy=1.)
58	#endif
59
60	#ifdef GM_VISBECK_VARIABLE_K
61	C GM mixing/stirring coefficient (spatially variable in horizontal
62	C for Visbeck et al. parameterization)
63	_RL VisbeckK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
64	COMMON /GM_Visbeck/ VisbeckK
65	#endif
66
67	#endif /* ALLOW_GMREDI */