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

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

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

revision 1.3 by jmc, Sun Jun 18 23:31:35 2006 UTC revision 1.4 by jmc, Mon Jun 19 14:40:43 2006 UTC
# Line 72  CEOP Line 72  CEOP
72         DO j=1-Oly,sNy+Oly         DO j=1-Oly,sNy+Oly
73          DO i=1-Olx,sNx+Olx          DO i=1-Olx,sNx+Olx
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           wCFL = ABS(wLoc*deltaTloc*recip_drC(k))           wCFL = ABS(wLoc*deltaTloc*recip_drC(k))
78    
79  c        wT(i,j) = maskC(i,j,km1,bi,bj)*(  c        wT(i,j) = maskC(i,j,km1,bi,bj)*(
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22