diff options
author | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-04-10 01:37:15 +0000 |
---|---|---|
committer | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-04-10 01:37:15 +0000 |
commit | bee0c184719df30513137cab441e054e13d0be74 (patch) | |
tree | 72bf041c96f46a18d60f58ff992e461b13109a43 /src | |
parent | 9a6d4af33543b82b40855664a378eb107b72790d (diff) |
increase warn level for possibly non-fatal c2p failures from 2 (parameter default) to 4 (parameter default + 2)
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@104 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src')
-rw-r--r-- | src/Whisky_Con2Prim.F90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Whisky_Con2Prim.F90 b/src/Whisky_Con2Prim.F90 index 137950f..344b138 100644 --- a/src/Whisky_Con2Prim.F90 +++ b/src/Whisky_Con2Prim.F90 @@ -250,15 +250,15 @@ subroutine Conservative2Primitive(CCTK_ARGUMENTS) ! whisky_C2P_failed(i,j,k) = 1 !$OMP CRITICAL - call CCTK_WARN(1, 'Specific internal energy just went below 0! ') + call CCTK_WARN(Whisky_NaN_verbose+2, 'Specific internal energy just went below 0! ') write(warnline,'(a28,i2)') 'on carpet reflevel: ',whisky_reflevel - call CCTK_WARN(1,warnline) + call CCTK_WARN(Whisky_NaN_verbose+2,warnline) write(warnline,'(a20,3g16.7)') 'xyz location: ',& x(i,j,k),y(i,j,k),z(i,j,k) - call CCTK_WARN(1,warnline) + call CCTK_WARN(Whisky_NaN_verbose+2,warnline) write(warnline,'(a20,g16.7)') 'radius: ',r(i,j,k) - call CCTK_WARN(1,warnline) - call CCTK_WARN(1,"Setting the point to atmosphere") + call CCTK_WARN(Whisky_NaN_verbose+2,warnline) + call CCTK_WARN(Whisky_NaN_verbose+2,"Setting the point to atmosphere") !$OMP END CRITICAL ! for safety, let's set the point to atmosphere @@ -278,7 +278,7 @@ subroutine Conservative2Primitive(CCTK_ARGUMENTS) ! this happened as having led to failing con2prim. !$OMP CRITICAL - call CCTK_WARN(1, 'Specific internal energy just went below 0, trying polytype.') + call CCTK_WARN(Whisky_NaN_verbose+2, 'Specific internal energy just went below 0, trying polytype.') !$OMP END CRITICAL call Con2Prim_ptPolytype(whisky_polytrope_handle, & dens(i,j,k), scon(i,j,k,1), scon(i,j,k,2), scon(i,j,k,3), & @@ -670,7 +670,7 @@ subroutine Conservative2PrimitiveBounds(CCTK_ARGUMENTS) epsnegative,whisky_rho_min,pmin, epsmin, whisky_reflevel, whisky_C2P_failed(i,j,k)) if (epsnegative) then !$OMP CRITICAL - call CCTK_WARN(1, 'Specific internal energy just went below 0, trying polytype!') + call CCTK_WARN(Whisky_NaN_verbose+2, 'Specific internal energy just went below 0, trying polytype!') !$OMP END CRITICAL call Con2Prim_ptPolytype(whisky_polytrope_handle, densminus(i,j,k),& sxminus(i,j,k),syminus(i,j,k),szminus(i,j,k),& @@ -717,7 +717,7 @@ subroutine Conservative2PrimitiveBounds(CCTK_ARGUMENTS) epsnegative,whisky_rho_min,pmin, epsmin, whisky_reflevel,whisky_C2P_failed(i,j,k)) if (epsnegative) then !$OMP CRITICAL - call CCTK_WARN(1, 'Specific internal energy just went below 0, trying polytype!!') + call CCTK_WARN(Whisky_NaN_verbose+2, 'Specific internal energy just went below 0, trying polytype!!') !$OMP END CRITICAL call Con2Prim_ptPolytype(whisky_polytrope_handle, densplus(i,j,k),& sxplus(i,j,k),syplus(i,j,k),szplus(i,j,k),& |