diff options
| author | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-08-16 15:12:36 +0000 |
|---|---|---|
| committer | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-08-16 15:12:36 +0000 |
| commit | 6ede75c2324582c010fccd8b6577092747cc65cf (patch) | |
| tree | 0df560e30097b8b6f7ba7d074238ca1cb16af4f2 /src | |
| parent | 014162d43fe77c906f3ebbc5fa0127ed6f1e0fae (diff) | |
change a CCTK_WARN(0,...) so it prints out more information about
what's gone wrong
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@124 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src')
| -rw-r--r-- | src/metric.F | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/metric.F b/src/metric.F index 912f399..4b5753a 100644 --- a/src/metric.F +++ b/src/metric.F @@ -27,6 +27,9 @@ c arguments $ gutt, gutx, guty, gutz, $ guxx, guyy, guzz, guxy, guyz, guxz, rama +c local variables + character*100 warn_buffer + cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c @@ -281,7 +284,9 @@ c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc else - call CCTK_WARN(0,"Unknown value of decoded_exact_model") + write (warn_buffer, '(a,i)') + $ 'Unknown decoded_exact_model = ', decoded_exact_model + call CCTK_WARN(0, warn_buffer) endif return |