Juan 22/11/2023:turb_hor_uv.f90, add present_cr(...,ZDIRSINZW)

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

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) =                                                           &