~airpollution/fluidity/fluidity_airpollution

« back to all changes in this revision

Viewing changes to libmba2d/magic.fd

  • Committer: ziyouzhj
  • Date: 2013-12-09 16:51:29 UTC
  • Revision ID: ziyouzhj@gmail.com-20131209165129-ucoetc3u0atyy05c
airpolution

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
C =========================================================
 
2
C AniRatio      = the maximal ratio of Hessian eigenvalues
 
3
C AniEigenvalue = the eigenvalue used when H is zero matrix
 
4
C
 
5
C MaxBaskets    = the maximal number of baskets
 
6
C
 
7
C DiscreteGrad  = mesh step for computing finite difference 
 
8
C                 gradient of mesh quality function.
 
9
C
 
10
C MaxSharpAngle = cosine of the maximal permitable sharp 
 
11
c                 angle, default is 150 degrees
 
12
C =========================================================
 
13
      Real*8    AniRatio
 
14
      Parameter(AniRatio = 1D-8)
 
15
 
 
16
      Real*8    AniEigenvalue
 
17
      Parameter(AniEigenvalue = 1D-6)
 
18
 
 
19
      Integer   MaxBaskets
 
20
      Parameter(MaxBaskets = 20)
 
21
 
 
22
      Real*8    DiscreteGrad
 
23
      Parameter(DiscreteGrad = 6D-5)
 
24
 
 
25
      Real*8    MaxSharpAngle
 
26
      Parameter(MaxSharpAngle = -8.6603D-01)
 
27