Update sigma_device.f90

fix a typo
ExtremeFLOW · Nov 7, 2024 · 62c777e · 62c777e
1 parent c500d12
commit 62c777e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/les/bcknd/device/sigma_device.f90 b/src/les/bcknd/device/sigma_device.f90
@@ -75,7 +75,7 @@ subroutine sigma_compute_device(t, tstep, coef, nut, delta, c)
     integer :: e, i
 
     ! some constant
-    eps = 1.0_rp-14
+    eps = NEKO_EPS
 
     ! get fields from registry
     u => neko_field_registry%get_field_by_name("u")
@@ -123,4 +123,4 @@ subroutine sigma_compute_device(t, tstep, coef, nut, delta, c)
 
     call neko_scratch_registry%relinquish_field(temp_indices)
   end subroutine sigma_compute_device
-end module sigma_device
+end module sigma_device