diff options
Diffstat (limited to 'src/EOS_Omni_SingleVarCalls_harm.F90')
-rw-r--r-- | src/EOS_Omni_SingleVarCalls_harm.F90 | 36 |
1 files changed, 24 insertions, 12 deletions
diff --git a/src/EOS_Omni_SingleVarCalls_harm.F90 b/src/EOS_Omni_SingleVarCalls_harm.F90 index 635bee4..ad99a60 100644 --- a/src/EOS_Omni_SingleVarCalls_harm.F90 +++ b/src/EOS_Omni_SingleVarCalls_harm.F90 @@ -40,11 +40,13 @@ subroutine EOS_Omni_EOS_Press_f_hrho_v2_rhoW(eoskey,keytemp,rf_precision,npoints select case (eoskey) case (1) ! polytropic EOS - call CCTK_WARN(0,"Polytropic EOS not implemented for press_f_hro_v2_rhoW") + call CCTK_ERROR("Polytropic EOS not implemented for press_f_hro_v2_rhoW") + STOP case (2) ! gamma-law EOS if(keytemp.eq.1) then - call CCTK_WARN(0,"keytemp.eq.1 not implemented for press_f_hro_v2_rhoW") + call CCTK_ERROR("keytemp.eq.1 not implemented for press_f_hro_v2_rhoW") + STOP endif do i=1,npoints gtmp1 = 1.0d0 - v2(i) @@ -55,11 +57,13 @@ subroutine EOS_Omni_EOS_Press_f_hrho_v2_rhoW(eoskey,keytemp,rf_precision,npoints enddo case (3) ! hybrid EOS - call CCTK_WARN(0,"Hybrid EOS not implemented for press_f_hro_v2_rhoW") + call CCTK_ERROR("Hybrid EOS not implemented for press_f_hro_v2_rhoW") + STOP case DEFAULT write(warnstring,*) "eoskey ",eoskey," not implemented!" - call CCTK_WARN(0,warnstring) + call CCTK_ERROR(warnstring) + STOP end select end subroutine EOS_Omni_EOS_Press_f_hrho_v2_rhoW @@ -95,22 +99,26 @@ subroutine EOS_Omni_EOS_dpdhrho_f_hrho_v2_rhoW(eoskey,keytemp,rf_precision,npoin select case (eoskey) case (1) ! polytropic EOS - call CCTK_WARN(0,"Polytropic EOS not implemented for press_f_hro_v2_rhoW") + call CCTK_ERROR("Polytropic EOS not implemented for press_f_hro_v2_rhoW") + STOP case (2) ! gamma-law EOS if(keytemp.eq.1) then - call CCTK_WARN(0,"keytemp.eq.1 not implemented for press_f_hro_v2_rhoW") + call CCTK_ERROR("keytemp.eq.1 not implemented for press_f_hro_v2_rhoW") + STOP endif do i=1,npoints dpdhrho(i) = (gl_gamma - 1.0d0) * (1.0d0 - v2(i)) / (gl_gamma) enddo case (3) ! hybrid EOS - call CCTK_WARN(0,"Hybrid EOS not implemented for press_f_hro_v2_rhoW") + call CCTK_ERROR("Hybrid EOS not implemented for press_f_hro_v2_rhoW") + STOP case DEFAULT write(warnstring,*) "eoskey ",eoskey," not implemented!" - call CCTK_WARN(0,warnstring) + call CCTK_ERROR(warnstring) + STOP end select end subroutine EOS_Omni_EOS_dpdhrho_f_hrho_v2_rhoW @@ -146,11 +154,13 @@ subroutine EOS_Omni_EOS_dpdv2_f_hrho_v2_rhoW(eoskey,keytemp,rf_precision,npoints select case (eoskey) case (1) ! polytropic EOS - call CCTK_WARN(0,"Polytropic EOS not implemented for press_f_hro_v2_rhoW") + call CCTK_ERROR("Polytropic EOS not implemented for press_f_hro_v2_rhoW") + STOP case (2) ! gamma-law EOS if(keytemp.eq.1) then - call CCTK_WARN(0,"keytemp.eq.1 not implemented for press_f_hro_v2_rhoW") + call CCTK_ERROR("keytemp.eq.1 not implemented for press_f_hro_v2_rhoW") + STOP endif do i=1,npoints dpdv2(i) = (gl_gamma - 1.0d0) * (0.5d0 * rhoW(i) & @@ -158,11 +168,13 @@ subroutine EOS_Omni_EOS_dpdv2_f_hrho_v2_rhoW(eoskey,keytemp,rf_precision,npoints enddo case (3) ! hybrid EOS - call CCTK_WARN(0,"Hybrid EOS not implemented for press_f_hro_v2_rhoW") + call CCTK_ERROR("Hybrid EOS not implemented for press_f_hro_v2_rhoW") + STOP case DEFAULT write(warnstring,*) "eoskey ",eoskey," not implemented!" - call CCTK_WARN(0,warnstring) + call CCTK_ERROR(warnstring) + STOP end select end subroutine EOS_Omni_EOS_dpdv2_f_hrho_v2_rhoW |