diff --git a/src/.depends b/src/.depends index e89a3195cf2..917914e2547 100644 --- a/src/.depends +++ b/src/.depends @@ -314,7 +314,7 @@ les/bcknd/cpu/dynamic_smagorinsky_cpu.lo : les/bcknd/cpu/dynamic_smagorinsky_cpu les/elementwise_filter.lo : les/elementwise_filter.f90 math/tensor.lo les/bcknd/cpu/elementwise_filter_cpu.lo config/neko_config.lo common/utils.lo field/field.lo math/math.lo config/num_types.lo les/bcknd/cpu/elementwise_filter_cpu.lo : les/bcknd/cpu/elementwise_filter_cpu.f90 math/mxm_wrapper.lo math/tensor.lo math/matrix.lo sem/speclib.lo math/math.lo config/num_types.lo les/sigma.lo : les/sigma.f90 sem/coef.lo les/bcknd/device/sigma_device.lo les/bcknd/cpu/sigma_cpu.lo config/neko_config.lo common/utils.lo common/json_utils.lo sem/dofmap.lo les/les_model.lo field/field.lo config/num_types.lo -les/bcknd/cpu/sigma_cpu.lo : les/bcknd/cpu/sigma_cpu.f90 gs/gs_ops.lo sem/coef.lo math/operators.lo field/field.lo field/field_registry.lo field/scratch_registry.lo field/field_list.lo config/num_types.lo +les/bcknd/cpu/sigma_cpu.lo : les/bcknd/cpu/sigma_cpu.f90 math/math.lo gs/gs_ops.lo sem/coef.lo math/operators.lo field/field.lo field/field_registry.lo field/scratch_registry.lo field/field_list.lo config/num_types.lo les/bcknd/device/sigma_device.lo : les/bcknd/device/sigma_device.f90 les/bcknd/device/device_sigma_nut.lo gs/gs_ops.lo sem/coef.lo math/operators.lo field/field.lo field/field_registry.lo field/scratch_registry.lo math/math.lo math/bcknd/device/device_math.lo field/field_list.lo config/num_types.lo les/bcknd/device/device_sigma_nut.lo : les/bcknd/device/device_sigma_nut.F90 comm/comm.lo common/utils.lo config/num_types.lo wall_models/wall_model.lo : wall_models/wall_model.f90 common/log.lo comm/comm.lo math/math.lo common/utils.lo math/vector.lo device/device.lo config/neko_config.lo sem/coef.lo sem/dofmap.lo field/field_registry.lo field/field.lo config/num_types.lo diff --git a/src/les/bcknd/cpu/sigma_cpu.f90 b/src/les/bcknd/cpu/sigma_cpu.f90 index d0726ffd1ca..1f8858cce47 100644 --- a/src/les/bcknd/cpu/sigma_cpu.f90 +++ b/src/les/bcknd/cpu/sigma_cpu.f90 @@ -38,12 +38,13 @@ module sigma_cpu use num_types, only : rp use field_list, only : field_list_t - use scratch_registry, only : neko_scratch_registry + use scratch_registry, only : neko_scratch_registry use field_registry, only : neko_field_registry use field, only : field_t use operators, only : dudxyz use coefs, only : coef_t use gs_ops, only : GS_OP_ADD + use math, only : NEKO_EPS implicit none private @@ -82,7 +83,7 @@ subroutine sigma_compute_cpu(t, tstep, coef, nut, delta, c) integer :: e, i ! some constant - eps = 1.d-14 + eps = NEKO_EPS ! get fields from registry