--- MITgcm/pkg/generic_advdiff/GAD_FLUX_LIMITER.h	2001/06/20 16:15:07	1.2
+++ MITgcm/pkg/generic_advdiff/GAD_FLUX_LIMITER.h	2001/06/21 14:34:33	1.3
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/generic_advdiff/GAD_FLUX_LIMITER.h,v 1.2 2001/06/20 16:15:07 jamous Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/generic_advdiff/GAD_FLUX_LIMITER.h,v 1.3 2001/06/21 14:34:33 jamous Exp $
 C $Name:  $
 
 C Statement function to describe flux limiter
@@ -9,4 +9,4 @@
 
 c     Limiter(Cr)=0.
 c     Limiter(Cr)=1.
-      Limiter(Cr)=max(0.d0,max(min(1.d0,2.d0*Cr),min(2.d0,Cr)))
+      Limiter(Cr)=max(0. _d 0,max(min(1. _d 0,2. _d 0*Cr),min(2. _d 0,Cr)))