diff --git a/src/simulation/m_compute_levelset.fpp b/src/simulation/m_compute_levelset.fpp
index 69bcd4e8b5..44db2a95e9 100644
--- a/src/simulation/m_compute_levelset.fpp
+++ b/src/simulation/m_compute_levelset.fpp
@@ -33,6 +33,10 @@ contains
 
         integer :: i, patch_id, patch_geometry
 
+        if (num_gps < 1) then
+            return
+        end if
+
         $:GPU_UPDATE(device='[gps(1:num_gps)]')
 
         !  3D Patch Geometries