Cleared an old TODO for pre-process checking the ellipse patch

Author: danieljvickers

src/pre_process/m_check_ib_patches.fpp

@@ -63,7 +63,7 @@ contains
                          patch_ib(i)%geometry == 12) then
                     call s_check_model_ib_patch_geometry(i)
                 else if (patch_ib(i)%geometry == 6) then
-                    print *, "Ellipse Patch"
+                    call s_check_ellipse_ib_patch_geometry(i)
                 else
                     call s_prohibit_abort("Invalid IB patch", &
                                           "patch_ib("//trim(iStr)//")%geometry must be "// &
@@ -94,6 +94,25 @@ contains
             .or. f_is_default(patch_ib(patch_id)%y_centroid), &
             'in circle IB patch '//trim(iStr))
 
+    end subroutine s_check_circle_ib_patch_geometry
+
+        !>  This subroutine verifies that the geometric parameters of
+        !!      the circle patch have consistently been inputted by the
+        !!      user.
+        !!  @param patch_id Patch identifier
+    impure subroutine s_check_ellipse_ib_patch_geometry(patch_id)
+
+        integer, intent(in) :: patch_id
+
+        call s_int_to_str(patch_id, iStr)
+
+        @:PROHIBIT(n == 0 .or. p > 0 &
+            .or. patch_ib(patch_id)%length_x <= 0._wp &
+            .or. patch_ib(patch_id)%length_y <= 0._wp &
+            .or. f_is_default(patch_ib(patch_id)%x_centroid) &
+            .or. f_is_default(patch_ib(patch_id)%y_centroid), &
+            'in ellipse IB patch '//trim(iStr))
+
     end subroutine s_check_circle_ib_patch_geometry
 
     !>  This subroutine verifies that the geometric parameters of