/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/slope_limiter.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/slope_limiter.F

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

revision 1.1 by heimbach, Thu Mar 29 15:59:21 2012 UTC revision 1.2 by dgoldberg, Thu May 23 22:12:33 2013 UTC
# Line 15  Line 15 
15          SLOPE_LIMITER = 0.0          SLOPE_LIMITER = 0.0
16         else         else
17          r = num/denom          r = num/denom
18          SLOPE_LIMITER = 0.0*(r+abs(r))/(1+abs(r))          SLOPE_LIMITER = (r+abs(r))/(1+abs(r))
19         endif         endif
20    
21         RETURN         RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22