From 63cbcb68e94a080dddade97cc5cfe5b9a24e3846 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Wed, 22 Nov 2023 14:43:55 +0100
Subject: [PATCH] Juan 22/11/2023:turb_hor_uv.f90, add
present_cr(...,ZDIRSINZW)
---
bin/set_core_device | 2 +-
src/MNH/turb_hor_uv.f90 | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/bin/set_core_device b/bin/set_core_device
index b920ff01c..a19aff248 100755
--- a/bin/set_core_device
+++ b/bin/set_core_device
@@ -6,7 +6,7 @@ Numactl='taskset -c '
if [[ "x${SLURM_HINT}" != *nomultithread* ]]
then
-HYP_FAC=2
+HYP_FAC=1
else
HYP_FAC=1
fi
diff --git a/src/MNH/turb_hor_uv.f90 b/src/MNH/turb_hor_uv.f90
index c2478f1c0..55ed76c07 100644
--- a/src/MNH/turb_hor_uv.f90
+++ b/src/MNH/turb_hor_uv.f90
@@ -459,7 +459,7 @@ ZFLX(:,:,IKB) = - XCMFS * ZTMP2_DEVICE(:,:,1) * ( ZTMP5_DEVICE(:,:,1) + ZTMP6_DE
#endif
!
! extrapolates this flux under the ground with the surface flux
-!$acc kernels present_cr(ZFLX)
+!$acc kernels present_cr(ZFLX,ZDIRSINZW)
#ifndef MNH_BITREP
!$mnh_expand_array(JI=1:JIU,JJ=1:JJU)
ZFLX(:,:,IKB-1) = &
--
GitLab