Update m_initial_condition.fpp

MFlowCode · Oct 2, 2023 · 62939ba · 62939ba
1 parent 2663a46
commit 62939ba
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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