Parent Directory | Revision Log | Revision Graph
Wrote real constants in double precision in min, max arguments (necessary when compiling on IBM with mpxlf95)
1 | 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 | |
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 | Limiter(Cr)=max(0.d0,max(min(1.d0,2.d0*Cr),min(2.d0,Cr))) |
ViewVC Help | |
Powered by ViewVC 1.1.22 |