/[MITgcm]/MITgcm/pkg/gmredi/GMREDI.h
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/GMREDI.h

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

revision 1.1 by adcroft, Wed Jun 21 19:42:54 2000 UTC revision 1.4 by adcroft, Fri Feb 2 21:36:29 2001 UTC
# Line 2  C $Header$ Line 2  C $Header$
2    
3  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
4    
5    C     Package flag
6          logical GMREDIisON
7          COMMON /GM_PACKAGE/ GMREDIisON
8    
9  C     GM/Redi parameters  C     GM/Redi parameters
10        _RL GM_background_K        _RL GM_background_K
11        _RL GM_maxSlope        _RL GM_maxSlope
# Line 35  C     Bottom row of tensor corresponds t Line 39  C     Bottom row of tensor corresponds t
39  C     Kwx is K_31 element, X direction at W point  C     Kwx is K_31 element, X direction at W point
40  C     Kwy is K_32 element, Y direction at W point  C     Kwy is K_32 element, Y direction at W point
41  C     Kwz is K_33 element, Z direction at W point  C     Kwz is K_33 element, Z direction at W point
42        _RL Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,MAX_NO_THREADS)        _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,MAX_NO_THREADS)        _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,MAX_NO_THREADS)        _RL Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
45        COMMON /GM_Wtensor/ Kwx,Kwy,Kwz        COMMON /GM_Wtensor/ Kwx,Kwy,Kwz
46    
47  #ifdef GM_NON_UNITY_DIAGONAL  #ifdef GM_NON_UNITY_DIAGONAL
48  C     First/second rows of tensor corresponds to U/V points  C     First/second rows of tensor corresponds to U/V points
49  C     Kux is K_11 element, X direction at U point  C     Kux is K_11 element, X direction at U point
50  C     Kvy is K_22 element, Y direction at V point  C     Kvy is K_22 element, Y direction at V point
51        _RL Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,MAX_NO_THREADS)        _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,MAX_NO_THREADS)        _RL Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
53        COMMON /GM_UVtensor/ Kux,Kvy        COMMON /GM_UVtensor/ Kux,Kvy
54  #else  #else
55        _RL Kux,Kvy        _RL Kux,Kvy
# Line 55  C     Kvy is K_22 element, Y direction a Line 59  C     Kvy is K_22 element, Y direction a
59  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
60  C     GM mixing/stirring coefficient (spatially variable in horizontal  C     GM mixing/stirring coefficient (spatially variable in horizontal
61  C     for Visbeck et al. parameterization)  C     for Visbeck et al. parameterization)
62        _RL VisbeckK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,MAX_NO_THREADS)        _RL VisbeckK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
63        COMMON /GM_Visbeck/ VisbeckK        COMMON /GM_Visbeck/ VisbeckK
64  #endif  #endif
65    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22