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

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

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

revision 1.5 by jmc, Sun Dec 16 18:54:49 2001 UTC revision 1.6 by jmc, Wed Mar 6 01:56:27 2002 UTC
# Line 96  C-      Off-diagonal components of horiz Line 96  C-      Off-diagonal components of horiz
96  #endif /* GM_EXTRA_DIAGONAL */    #endif /* GM_EXTRA_DIAGONAL */  
97    
98  #ifdef GM_BOLUS_ADVEC  #ifdef GM_BOLUS_ADVEC
99        IF (GM_AdvForm) THEN        IF (GM_AdvForm .AND. GM_AdvSeparate) THEN
100         kp1 = MIN(k+1,Nr)         kp1 = MIN(k+1,Nr)
101         maskp1 = 1.         maskp1 = 1.
102         IF (k.GE.Nr) maskp1 = 0.         IF (k.GE.Nr) maskp1 = 0.
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22