From 8095bb30536d52c8f6d1fab5bd18cf149c58f149 Mon Sep 17 00:00:00 2001
From: Anand <anand@Anands-MacBook-Pro.local>
Date: Tue, 17 Feb 2026 21:56:42 -0500
Subject: [PATCH] fix ibm benchmark on frontier + amd

---
 src/simulation/m_compute_levelset.fpp | 4 ++++
 1 file changed, 4 insertions(+)

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