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

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

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

revision 1.3 by edhill, Mon Mar 29 03:33:51 2004 UTC revision 1.4 by jmc, Sat Dec 4 00:22:25 2004 UTC
# Line 102  C--   Compute the upwind fraction: Line 102  C--   Compute the upwind fraction:
102  C--    Add centered & upwind contributions  C--    Add centered & upwind contributions
103         DO j=jMin,jMax         DO j=jMin,jMax
104           DO i=iMin,iMax           DO i=iMin,iMax
105             rCenter = 0.5 _d 0 *deltaTtracer*rTrans(i,j)             rCenter = 0.5 _d 0 *deltaTarg*rTrans(i,j)
106       &                        *recip_rA(i,j,bi,bj)*rkFac       &                        *recip_rA(i,j,bi,bj)*rkFac
107             rUpwind = abs(rCenter)*upwindFac(i,j)             rUpwind = abs(rCenter)*upwindFac(i,j)
108             a3d(i,j,k)   = a3d(i,j,k)             a3d(i,j,k)   = a3d(i,j,k)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22