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

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

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

revision 1.9 by jmc, Sun Jun 18 23:31:36 2006 UTC revision 1.10 by jmc, Mon Jun 19 14:40:43 2006 UTC
# Line 71  CEOP Line 71  CEOP
71        DO j=1-Oly+2,sNy+Oly-1        DO j=1-Oly+2,sNy+Oly-1
72         DO i=1-Olx,sNx+Olx         DO i=1-Olx,sNx+Olx
73    
74  c       vLoc = vFld(i,j)          vLoc = vFld(i,j)
75          vLoc = vTrans(i,j)*recip_dxG(i,j,bi,bj)  c       vLoc = vTrans(i,j)*recip_dxG(i,j,bi,bj)
76       &       *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)  c    &       *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
77          Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)          Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)
78          Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )          Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
79          Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)          Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22