Swapped out the mpi abort statments for prohibits

Author: danieljvickers

src/pre_process/m_check_patches.fpp

@@ -58,13 +58,11 @@ contains
                 elseif (patch_icpp(i)%geometry == 5) then
                     call s_check_ellipse_patch_geometry(i)
                 elseif (patch_icpp(i)%geometry == 6) then
-                    call s_mpi_abort('geometry 6 (formerly "Vortex")'// &
-                                     'is no longer supported for patch '//trim(iStr)// &
-                                     '. Exiting.')
+                    call s_prohibit_abort("Invalid patch geometry number", "patch_icpp("//trim(iStr)//")%geometry "// &
+                                          "is deprecated")
                 elseif (patch_icpp(i)%geometry == 7) then
-                    call s_mpi_abort('geometry 7 (formerly "2D Hardcoded")'// &
-                                     'is no longer supported for patch '//trim(iStr)// &
-                                     '. Exiting.')
+                    call s_prohibit_abort("Invalid patch geometry number", "patch_icpp("//trim(iStr)//")%geometry "// &
+                                          "is deprecated")
                 elseif (patch_icpp(i)%geometry == 8) then
                     call s_check_sphere_patch_geometry(i)
                 elseif (patch_icpp(i)%geometry == 9) then
@@ -76,15 +74,13 @@ contains
                 elseif (patch_icpp(i)%geometry == 12) then
                     call s_check_ellipsoid_patch_geometry(i)
                 elseif (patch_icpp(i)%geometry == 13) then
-                    call s_mpi_abort('geometry 13 (formerly "3D Hardcoded")'// &
-                                     'is no longer supported for patch '//trim(iStr)// &
-                                     '. Exiting.')
+                    call s_prohibit_abort("Invalid patch geometry number", "patch_icpp("//trim(iStr)//")%geometry "// &
+                                          "is deprecated")
                 elseif (patch_icpp(i)%geometry == 14) then
                     call s_check_spherical_harmonic_patch_geometry(i)
                 elseif (patch_icpp(i)%geometry == 15) then
-                    call s_mpi_abort('geometry 15 (formerly "1D Hardcoded")'// &
-                                     'is no longer supported for patch '//trim(iStr)// &
-                                     '. Exiting.')
+                    call s_prohibit_abort("Invalid patch geometry number", "patch_icpp("//trim(iStr)//")%geometry "// &
+                                          "is deprecated")
                 elseif (patch_icpp(i)%geometry == 16) then
                     print *, '1d pressure sinusoid'
                 elseif (patch_icpp(i)%geometry == 17) then