diff --git a/src/pre_process/m_initial_condition.fpp b/src/pre_process/m_initial_condition.fpp index 8ce28c3a2..c15be1c38 100644 --- a/src/pre_process/m_initial_condition.fpp +++ b/src/pre_process/m_initial_condition.fpp @@ -197,7 +197,9 @@ contains call s_ellipse(i, patch_id_fp, q_prim_vf) ! Unimplemented patch (formerly isentropic vortex) - ! elseif (patch_icpp(i)%geometry == 6) then + elseif (patch_icpp(i)%geometry == 6) then + call s_mpi_abort('This used to be the isentropic vortex patch, '// & + 'which no longer exists. See Examples. Exiting ...') ! Analytical function patch for testing purposes elseif (patch_icpp(i)%geometry == 7) then