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
      _RL Limiter
C Upwind        Limiter(Cr)=0.
C Lax-Wendroff  Limiter(Cr)=1.
C Suberbee      Limiter(Cr)=max(0.,max(min(1.,2*Cr),min(2.,Cr)))

c     Limiter(Cr)=0.
c     Limiter(Cr)=1.
      Limiter(Cr)=max(0. _d 0,max(min(1. _d 0,2. _d 0*Cr),min(2. _d 0,Cr)))