pkg/gmredi/GMREDI.h

C $Header: /u/gcmpack/models/MITgcmUV/pkg/gmredi/GMREDI.h,v 1.3 2001/01/29 20:07:39 heimbach Exp $

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