/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_os7mp_adv_x.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_os7mp_adv_x.F

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

revision 1.6 by jmc, Wed Jun 13 18:45:25 2007 UTC revision 1.7 by mlosch, Fri Oct 5 10:50:47 2007 UTC
# Line 93  C     == Local variables == Line 93  C     == Local variables ==
93           MskIm   = maskLocW(i+1,j)           MskIm   = maskLocW(i+1,j)
94           MskImm  = maskLocW(i+2,j)           MskImm  = maskLocW(i+2,j)
95           MskImmm = maskLocW(i+3,j)           MskImmm = maskLocW(i+3,j)
96            ELSE
97             Qippp = 0. _d 0
98             Qipp  = 0. _d 0
99             Qip   = 0. _d 0
100             Qi    = 0. _d 0
101             Qim   = 0. _d 0
102             Qimm  = 0. _d 0
103             Qimmm = 0. _d 0
104    
105             MskIpp  = 0. _d 0
106             MskIp   = 0. _d 0
107             MskI    = 0. _d 0
108             MskIm   = 0. _d 0
109             MskImm  = 0. _d 0
110             MskImmm = 0. _d 0
111          ENDIF          ENDIF
112    
113          IF (uTrans(i,j).ne.0.) THEN          IF (uTrans(i,j).ne.0.) THEN
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22