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

Diff of /MITgcm/pkg/generic_advdiff/gad_dst3fl_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 72  C  wCFL              :: Courant-Friedric Line 72  C  wCFL              :: Courant-Friedric
72          Rjm=(tracer(i,j,km2)-tracer(i,j,km1))          Rjm=(tracer(i,j,km2)-tracer(i,j,km1))
73       &         *maskC(i,j,km1,bi,bj)       &         *maskC(i,j,km1,bi,bj)
74    
75  c       wLoc = wFld(i,j)          wLoc = wFld(i,j)
76          wLoc = rTrans(i,j)*recip_rA(i,j,bi,bj)  c       wLoc = rTrans(i,j)*recip_rA(i,j,bi,bj)
77          cfl=abs(wLoc*dTarg*recip_drC(k))          cfl=abs(wLoc*dTarg*recip_drC(k))
78          d0=(2. _d 0 -cfl)*(1. _d 0 -cfl)*oneSixth          d0=(2. _d 0 -cfl)*(1. _d 0 -cfl)*oneSixth
79          d1=(1. _d 0 -cfl*cfl)*oneSixth          d1=(1. _d 0 -cfl*cfl)*oneSixth
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22