pkg/generic_advdiff/GAD_FLUX_LIMITER.h

C $Header: /u/gcmpack/models/MITgcmUV/pkg/generic_advdiff/GAD_FLUX_LIMITER.h,v 1.3 2001/06/21 14:34:33 jamous Exp $
C $Name: checkpoint40pre2 $

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.D0,max(min(1.D0,2.D0*Cr),
     &                         min(2.D0,Cr))) 
1	heimbach	1.4	C $Header: /u/gcmpack/models/MITgcmUV/pkg/generic_advdiff/GAD_FLUX_LIMITER.h,v 1.3 2001/06/21 14:34:33 jamous Exp $
2			C $Name: checkpoint40pre2 $
3	adcroft	1.1
4			C Statement function to describe flux limiter
5			_RL Limiter
6			C Upwind Limiter(Cr)=0.
7			C Lax-Wendroff Limiter(Cr)=1.
8			C Suberbee Limiter(Cr)=max(0.,max(min(1.,2*Cr),min(2.,Cr)))
9
10			c Limiter(Cr)=0.
11			c Limiter(Cr)=1.
12	heimbach	1.4	Limiter(Cr)=max(0.D0,max(min(1.D0,2.D0*Cr),
13			& min(2.D0,Cr)))