/[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 

--- MITgcm_contrib/dgoldberg/streamice/slope_limiter.F	2012/03/29 15:59:21	1.1
+++ MITgcm_contrib/dgoldberg/streamice/slope_limiter.F	2013/05/23 22:12:33	1.2
@@ -15,7 +15,7 @@
         SLOPE_LIMITER = 0.0
        else
         r = num/denom
-        SLOPE_LIMITER = 0.0*(r+abs(r))/(1+abs(r))
+        SLOPE_LIMITER = (r+abs(r))/(1+abs(r))
        endif
 
        RETURN
 
  ViewVC Help
Powered by ViewVC 1.1.22