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

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

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

revision 1.5 by jmc, Wed Jun 13 18:45:27 2007 UTC revision 1.6 by mlosch, Fri Oct 5 10:50:47 2007 UTC
# Line 91  C     == Local variables == Line 91  C     == Local variables ==
91           MskIm   = maskC(i,j,kp1,bi,bj) * float(kp1-k)           MskIm   = maskC(i,j,kp1,bi,bj) * float(kp1-k)
92           MskImm  = maskC(i,j,kp2,bi,bj) * float(kp2-kp1)           MskImm  = maskC(i,j,kp2,bi,bj) * float(kp2-kp1)
93           MskImmm = maskC(i,j,kp3,bi,bj) * float(kp3-kp2)           MskImmm = maskC(i,j,kp3,bi,bj) * float(kp3-kp2)
94            ELSE
95             Qippp = 0. _d 0
96             Qipp  = 0. _d 0
97             Qip   = 0. _d 0
98             Qi    = 0. _d 0
99             Qim   = 0. _d 0
100             Qimm  = 0. _d 0
101             Qimmm = 0. _d 0
102    
103             MskIpp  = 0. _d 0
104             MskIp   = 0. _d 0
105             MskI    = 0. _d 0
106             MskIm   = 0. _d 0
107             MskImm  = 0. _d 0
108             MskImmm = 0. _d 0
109          ENDIF          ENDIF
110    
111          IF (wTrans(i,j).ne.0.) THEN          IF (wTrans(i,j).ne.0.) THEN
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22