diff options
| author | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-06-04 11:42:21 +0000 |
|---|---|---|
| committer | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-06-04 11:42:21 +0000 |
| commit | c8f497de5b5d8ef405ad81df516984129a863c9f (patch) | |
| tree | a8063cf01cd942c15eae1544fec323925e8ed066 /src | |
| parent | 3f217742fb40c989440c6d0ee284e6527e621a81 (diff) | |
make an error message more specific: instead of just saying
invalid exact_model parameter!
now say what the invalid value is
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@183 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src')
| -rw-r--r-- | src/decode_pars.F77 | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/decode_pars.F77 b/src/decode_pars.F77 index abe55d7..98c07a2 100644 --- a/src/decode_pars.F77 +++ b/src/decode_pars.F77 @@ -42,6 +42,9 @@ c@@*/ DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS +c local variables + character*100 warn_buffer + cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c @@ -117,7 +120,9 @@ c miscellaneous spacetimes elseif (CCTK_Equals(exact_model, "constant density star") .ne. 0) then decoded_exact_model = EXACT__constant_density_star else - call CCTK_WARN(0, "invalid exact_model parameter!") + write (warn_buffer, '(a,a,a)') + $ 'Unknown exact_model = "', exact_model, '"' + call CCTK_WARN(0, warn_buffer) endif cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc |