Parent Directory | Revision Log | Revision Graph
Wrote real constants in double precision in min, max arguments (necessary when compiling on IBM with mpxlf95)
1 | jamous | 1.2 | C $Header: /u/gcmpack/models/MITgcmUV/pkg/generic_advdiff/GAD_FLUX_LIMITER.h,v 1.1 2001/05/30 19:34:48 adcroft Exp $ |
2 | C $Name: $ | ||
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 | jamous | 1.2 | Limiter(Cr)=max(0.d0,max(min(1.d0,2.d0*Cr),min(2.d0,Cr))) |
ViewVC Help | |
Powered by ViewVC 1.1.22 |