diff --git a/Source/geom.f90 b/Source/geom.f90
index 44d20a6b288..4cef0047fdd 100644
--- a/Source/geom.f90
+++ b/Source/geom.f90
@@ -7940,6 +7940,7 @@ SUBROUTINE DROP_CUT_EDGE(NM,ICE,JCE,ETYPE)
 TYPE(MESH_TYPE), POINTER :: M=>NULL()
 TYPE(CC_CUTEDGE_TYPE), POINTER :: CE=>NULL()
 
+IF(ICE<1) RETURN
 M =>MESHES(NM)
 CE=>M%CUT_EDGE(ICE)