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

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

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

revision 1.11 by jmc, Wed Apr 4 01:39:06 2007 UTC revision 1.12 by mlosch, Fri Feb 29 01:30:59 2008 UTC
# Line 69  CEOP Line 69  CEOP
69         uT(1-Olx,j)=0.         uT(1-Olx,j)=0.
70         uT(2-Olx,j)=0.         uT(2-Olx,j)=0.
71         uT(sNx+Olx,j)=0.         uT(sNx+Olx,j)=0.
72          ENDDO
73          DO j=1-Oly,sNy+Oly
74         DO i=1-Olx+2,sNx+Olx-1         DO i=1-Olx+2,sNx+Olx-1
75    
76          uCFL = uFld(i,j)          uCFL = uFld(i,j)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22