diff options
| author | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-06-04 11:37:49 +0000 |
|---|---|---|
| committer | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-06-04 11:37:49 +0000 |
| commit | 0b149d89f5b608e35fbc2a9122b2b4498d4c8862 (patch) | |
| tree | 1d3864dad20b7913bc16771b6be4eae78c36962e /src/metrics/bowl.F77 | |
| parent | b6bdf70938ecfef4933bc7e5a63355695903dad5 (diff) | |
* make various error messages more specific, i.e. instead of just
saying that we got an impossible value of some variable, now also
say what that value was
* declare a number of variables with the save attribute which
are set on the first call and assumed-in-the-code to be preserved
across calls
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@180 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/metrics/bowl.F77')
| -rw-r--r-- | src/metrics/bowl.F77 | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/metrics/bowl.F77 b/src/metrics/bowl.F77 index 95dca9c..ec239f6 100644 --- a/src/metrics/bowl.F77 +++ b/src/metrics/bowl.F77 @@ -89,6 +89,7 @@ c local static variables c local variables integer type + character*100 warn_buffer CCTK_REAL r,r2,rr2 CCTK_REAL xr,yr,zr,xr2,yr2,zr2 @@ -119,7 +120,9 @@ c Get parameters of the metric. else if (CCTK_Equals(bowl__shape,"Fermi").ne.0) then type = 2 else - call CCTK_WARN(0,"Unknown parameter bowl__shape") + write (warn_buffer, '(a,a,a)') + $ 'Unknown bowl__shape = "', bowl__shape, '"' + call CCTK_WARN(0, warn_buffer) end if if (bowl__evolve.eq.1) then @@ -189,6 +192,11 @@ c I use the same trick as above. fac = one - two/(dexp(4.0d0*r) + dexp(-4.0d0*r)) rr2 = (one - a*fac/(one + dexp(-s*(r-c)))/r)**2 + else + write (warn_buffer, '(a,i)') + $ 'Unknown type = ', type + call CCTK_WARN(0, warn_buffer) + end if c Give metric components. |