diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-05-29 16:35:04 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-05-29 16:35:04 +0000 |
commit | 02d65d88abd6e22da6ca35cec820e0cedc5da2af (patch) | |
tree | 0432dcfe976b297e3f666e709b2eddcfdc6b722a /src | |
parent | 626db7d5d3b8c83a51c9130369dc5fed4fad457e (diff) |
GRHydro: add option to control action taken when con2prim failed
From: Roland Haas <rhaas@caltech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@529 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src')
-rw-r--r-- | src/GRHydro_Con2Prim.F90 | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90 index 87289b9..000ec7f 100644 --- a/src/GRHydro_Con2Prim.F90 +++ b/src/GRHydro_Con2Prim.F90 @@ -2288,6 +2288,7 @@ subroutine check_GRHydro_C2P_failed(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS DECLARE_CCTK_ARGUMENTS + DECLARE_CCTK_FUNCTIONS integer :: i, j, k, nx, ny, nz character(len=300) warnline @@ -2401,7 +2402,13 @@ subroutine check_GRHydro_C2P_failed(CCTK_ARGUMENTS) write(warnline,'(a32,4g16.7)') 'lapse, shift: ',& alp(i,j,k),betax(i,j,k),betay(i,j,k),betaz(i,j,k) call CCTK_WARN(1,warnline) - call CCTK_WARN(0,"Aborting.") + if (CCTK_EQUALS(GRHydro_c2p_failed_action, "terminate")) then + call CCTK_TerminateNext(cctkGH) + else if (CCTK_EQUALS(GRHydro_c2p_failed_action, "abort")) then + call CCTK_ERROR("Aborting.") + else + call CCTK_ERROR("Internal error, unknown action") + end if !$OMP END CRITICAL end if |