/[MITgcm]/MITgcm/pkg/gmredi/gmredi_xtransport.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_xtransport.F

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

revision 1.8 by heimbach, Tue Nov 12 20:42:24 2002 UTC revision 1.9 by heimbach, Thu Nov 14 22:43:49 2002 UTC
# Line 1  Line 1 
 C $Header$  
 C $Name$  
1    
2  #include "GMREDI_OPTIONS.h"  #include "GMREDI_OPTIONS.h"
3    
# Line 37  C     df               - Diffusive flux Line 35  C     df               - Diffusive flux
35        INTEGER iMin,iMax,jMin,jMax,bi,bj,k        INTEGER iMin,iMax,jMin,jMax,bi,bj,k
36        _RS xA(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS xA(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
37        _RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
38          integer tracerIdentity
39        _RL df    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL df    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
       INTEGER tracerIdentity  
40        INTEGER myThid        INTEGER myThid
41    
42  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
# Line 92  C--   Area integrated zonal flux Line 90  C--   Area integrated zonal flux
90  #else  #else
91       &    *(GM_isopycK       &    *(GM_isopycK
92  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
93       &    +0.5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))  cph     &    +0.5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))
94  #endif  #endif
95       &    )       &    )
96  #endif /* GM_NON_UNITY_DIAGONAL */  #endif /* GM_NON_UNITY_DIAGONAL */
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22