diff options
| author | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2011-03-20 19:46:09 +0000 |
|---|---|---|
| committer | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2011-03-20 19:46:09 +0000 |
| commit | e41c85fa6679f61da35e9e408aaf14a82f641067 (patch) | |
| tree | e24fe4ca20c145caebd2f3278ea45db4686c8ec3 | |
| parent | 8682216ce83fb74500d4318577e9955b8dd1281e (diff) | |
* improve error handling in nuc_eos a bit.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@38 8e189c6b-2ab8-4400-aa02-70a9cfce18b9
| -rw-r--r-- | src/nuc_eos/nuc_eos.F90 | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/src/nuc_eos/nuc_eos.F90 b/src/nuc_eos/nuc_eos.F90 index 64a78a5..3420ee0 100644 --- a/src/nuc_eos/nuc_eos.F90 +++ b/src/nuc_eos/nuc_eos.F90 @@ -48,11 +48,13 @@ subroutine nuc_eos_full(xrho,xtemp,xye,xenr,xprs,xent,xcs2,xdedt,& keyerrr = 0 if(xrho.gt.eos_rhomax) then - call CCTK_WARN(0, "nuc_eos: rho > rhomax") + keyerr = 103 + return endif if(xrho.lt.eos_rhomin) then - call CCTK_WARN (0, "nuc_eos: rho < rhomin") + keyerr = 104 + return endif if(xye.gt.eos_yemax) then @@ -228,7 +230,8 @@ subroutine nuc_eos_short(xrho,xtemp,xye,xenr,xprs,xent,xcs2,xdedt,& keyerrr = 0 if(xrho.gt.eos_rhomax) then - call CCTK_WARN (0, "nuc_eos: rho > rhomax") + keyerr = 103 + return endif if(xrho.lt.eos_rhomin*1.126d0) then @@ -351,7 +354,8 @@ subroutine nuc_eos_press_eps(xrho,xtemp,xye,xenr,xprs,& keyerrt = 0 if(xrho.gt.eos_rhomax) then - call CCTK_WARN (0, "nuc_eos: rho > rhomax") + keyerr = 103 + return endif if(xrho.lt.eos_rhomin*1.126d0) then @@ -430,7 +434,8 @@ subroutine nuc_eos_dpdr_dpde(xrho,xtemp,xye,xenr,xdpdrhoe,& keyerrt = 0 if(xrho.gt.eos_rhomax) then - call CCTK_WARN (0, "nuc_eos: rho > rhomax") + keyerr = 103 + return endif if(xrho.lt.eos_rhomin*1.126d0) then |