/[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.2 by heimbach, Mon Nov 13 16:35:28 2000 UTC revision 1.3 by heimbach, Mon Jan 29 20:07:39 2001 UTC
# Line 38  C     Bottom row of tensor corresponds t Line 38  C     Bottom row of tensor corresponds t
38  C     Kwx is K_31 element, X direction at W point  C     Kwx is K_31 element, X direction at W point
39  C     Kwy is K_32 element, Y direction at W point  C     Kwy is K_32 element, Y direction at W point
40  C     Kwz is K_33 element, Z direction at W point  C     Kwz is K_33 element, Z direction at W point
41        _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)
42        _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)
43        _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)
44        COMMON /GM_Wtensor/ Kwx,Kwy,Kwz        COMMON /GM_Wtensor/ Kwx,Kwy,Kwz
45    
46  #ifdef GM_NON_UNITY_DIAGONAL  #ifdef GM_NON_UNITY_DIAGONAL
47  C     First/second rows of tensor corresponds to U/V points  C     First/second rows of tensor corresponds to U/V points
48  C     Kux is K_11 element, X direction at U point  C     Kux is K_11 element, X direction at U point
49  C     Kvy is K_22 element, Y direction at V point  C     Kvy is K_22 element, Y direction at V point
50        _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)
51        _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)
52        COMMON /GM_UVtensor/ Kux,Kvy        COMMON /GM_UVtensor/ Kux,Kvy
53  #else  #else
54        _RL Kux,Kvy        _RL Kux,Kvy
# Line 58  C     Kvy is K_22 element, Y direction a Line 58  C     Kvy is K_22 element, Y direction a
58  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
59  C     GM mixing/stirring coefficient (spatially variable in horizontal  C     GM mixing/stirring coefficient (spatially variable in horizontal
60  C     for Visbeck et al. parameterization)  C     for Visbeck et al. parameterization)
61        _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)
62        COMMON /GM_Visbeck/ VisbeckK        COMMON /GM_Visbeck/ VisbeckK
63  #endif  #endif
64    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22