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

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

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

revision 1.1 by jmc, Tue Jan 16 04:38:35 2007 UTC revision 1.2 by jmc, Wed Aug 15 22:35:41 2007 UTC
# Line 63  CEOP Line 63  CEOP
63    
64        IF ( limiter.EQ.1 ) THEN        IF ( limiter.EQ.1 ) THEN
65         DO k=1,Nr         DO k=1,Nr
66          DO j=1-OLy,sNy+OLy          DO j=jMinAdvR,jMaxAdvR
67           DO i=1-OLx,sNx+OLx           DO i=iMinAdvR,iMaxAdvR
68  C     If flux-limiting transport is to be applied, place limits on  C     If flux-limiting transport is to be applied, place limits on
69  C     appropriate moments before transport.  C     appropriate moments before transport.
70            slpmax = 0.            slpmax = 0.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22