Change HIP stream from 1 to 0

ecmwf-ifs · Feb 7, 2025 · e632882 · e632882
1 parent 7efd4cc
commit e632882
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/trans/gpu/internal/ledir_mod.F90 b/src/trans/gpu/internal/ledir_mod.F90
@@ -169,7 +169,7 @@ SUBROUTINE LEDIR(ALLOCATOR,ZINPS,ZINPA,ZINPS0,ZINPA0,ZOUT,ZOUT0,POA1,KF_FS)
     HIP_STREAM = INT(ACC_GET_HIP_STREAM(1_C_INT), C_LONG)
 #endif
 #ifdef OMPGPU
-    HIP_STREAM = 1_C_LONG
+    HIP_STREAM = 0_C_LONG
 #endif
 
     CALL LEDIR_STRIDES(KF_FS,IOUT_STRIDES0,IOUT_STRIDES1,IIN_STRIDES0,IIN_STRIDES1,&

diff --git a/src/trans/gpu/internal/leinv_mod.F90 b/src/trans/gpu/internal/leinv_mod.F90
@@ -158,7 +158,7 @@ SUBROUTINE LEINV(ALLOCATOR,PIA,ZINP,ZINP0,ZOUTS,ZOUTA,ZOUTS0,ZOUTA0,KF_LEG)
     HIP_STREAM = INT(ACC_GET_HIP_STREAM(1_C_INT), C_LONG)
 #endif
 #ifdef OMPGPU
-    HIP_STREAM = 1_C_LONG
+    HIP_STREAM = 0_C_LONG
 #endif
 
     !     ------------------------------------------------------------------