/[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.7 by jmc, Sat Oct 22 20:17:44 2005 UTC revision 1.8 by heimbach, Wed Jun 7 01:55:14 2006 UTC
# Line 110  C--    Add centered & upwind contributio Line 110  C--    Add centered & upwind contributio
110             rUpwind = ABS(rCenter)*upwindFac(i,j)             rUpwind = ABS(rCenter)*upwindFac(i,j)
111             a3d(i,j,k)   = a3d(i,j,k)             a3d(i,j,k)   = a3d(i,j,k)
112       &                  - (rCenter+rUpwind)*deltaTarg(k)       &                  - (rCenter+rUpwind)*deltaTarg(k)
113       &                   *recip_hFacC(i,j,k,bi,bj)*recip_drF(k)       &                   *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
114             b3d(i,j,k)   = b3d(i,j,k)             b3d(i,j,k)   = b3d(i,j,k)
115       &                  - (rCenter-rUpwind)*deltaTarg(k)       &                  - (rCenter-rUpwind)*deltaTarg(k)
116       &                    *recip_hFacC(i,j,k,bi,bj)*recip_drF(k)       &                    *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
117             b3d(i,j,k-1) = b3d(i,j,k-1)             b3d(i,j,k-1) = b3d(i,j,k-1)
118       &                  + (rCenter+rUpwind)*deltaTarg(k-1)       &                  + (rCenter+rUpwind)*deltaTarg(k-1)
119       &                    *recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)       &                    *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
120             c3d(i,j,k-1) = c3d(i,j,k-1)             c3d(i,j,k-1) = c3d(i,j,k-1)
121       &                  + (rCenter-rUpwind)*deltaTarg(k-1)       &                  + (rCenter-rUpwind)*deltaTarg(k-1)
122       &                    *recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)       &                    *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
123           ENDDO           ENDDO
124         ENDDO         ENDDO
125    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22