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

Diff of /MITgcm/pkg/generic_advdiff/gad_os7mp_adv_y.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:26 2007 UTC revision 1.7 by mlosch, Fri Oct 5 10:50:47 2007 UTC
# Line 95  C     == Local variables == Line 95  C     == Local variables ==
95           MskIm   = maskLocS(i,j+1)           MskIm   = maskLocS(i,j+1)
96           MskImm  = maskLocS(i,j+2)           MskImm  = maskLocS(i,j+2)
97           MskImmm = maskLocS(i,j+3)           MskImmm = maskLocS(i,j+3)
98            ELSE
99             Qippp = 0. _d 0
100             Qipp  = 0. _d 0
101             Qip   = 0. _d 0
102             Qi    = 0. _d 0
103             Qim   = 0. _d 0
104             Qimm  = 0. _d 0
105             Qimmm = 0. _d 0
106    
107             MskIpp  = 0. _d 0
108             MskIp   = 0. _d 0
109             MskI    = 0. _d 0
110             MskIm   = 0. _d 0
111             MskImm  = 0. _d 0
112             MskImmm = 0. _d 0
113          ENDIF          ENDIF
114    
115          IF (vTrans(i,j).ne.0.) THEN          IF (vTrans(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