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

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

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

revision 1.7 by jmc, Sun Jun 18 23:31:35 2006 UTC revision 1.8 by jmc, Mon Jun 19 14:40:43 2006 UTC
# Line 80  C  wCFL              :: Courant-Friedric Line 80  C  wCFL              :: Courant-Friedric
80          Rjm=(tracer(i,j,km2)-tracer(i,j,km1))          Rjm=(tracer(i,j,km2)-tracer(i,j,km1))
81       &         *maskC(i,j,km1,bi,bj)       &         *maskC(i,j,km1,bi,bj)
82    
83  c       wLoc = wFld(i,j)          wLoc = wFld(i,j)
84          wLoc = rTrans(i,j)*recip_rA(i,j,bi,bj)  c       wLoc = rTrans(i,j)*recip_rA(i,j,bi,bj)
85          cfl=abs(wLoc*dTarg*recip_drC(k))          cfl=abs(wLoc*dTarg*recip_drC(k))
86          d0=(2.-cfl)*(1.-cfl)*oneSixth          d0=(2.-cfl)*(1.-cfl)*oneSixth
87          d1=(1.-cfl*cfl)*oneSixth          d1=(1.-cfl*cfl)*oneSixth
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22