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

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

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

revision 1.10 by jmc, Sun Jun 18 23:31:35 2006 UTC revision 1.11 by jmc, Mon Jun 19 14:40:43 2006 UTC
# Line 82  CEOP Line 82  CEOP
82         DO j=1-Oly,sNy+Oly         DO j=1-Oly,sNy+Oly
83          DO i=1-Olx,sNx+Olx          DO i=1-Olx,sNx+Olx
84    
85  c        wLoc = wFld(i,j)           wLoc = wFld(i,j)
86           wLoc = rTrans(i,j)*recip_rA(i,j,bi,bj)  c        wLoc = rTrans(i,j)*recip_rA(i,j,bi,bj)
87           Rjp=(tracer(i,j,kp1)-tracer(i,j,k))           Rjp=(tracer(i,j,kp1)-tracer(i,j,k))
88       &        *maskC(i,j,kp1,bi,bj)       &        *maskC(i,j,kp1,bi,bj)
89           Rj= (tracer(i,j,k)  -tracer(i,j,kM1))           Rj= (tracer(i,j,k)  -tracer(i,j,kM1))
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22