Skip to content
Snippets Groups Projects
Commit a08cd4bf authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 26/01/2022: OpenACC: workaround CCE compiler problem: add list of...

Philippe 26/01/2022: OpenACC: workaround CCE compiler problem: add list of dimensions in array copies in a kernels region
parent d1698589
Branches
Tags
1 merge request!4Jean Wurtz 30/04/2025 : Bugfixes mainly for TEB and for simple precision
...@@ -1516,8 +1516,8 @@ IF (LLES_CALL) THEN ...@@ -1516,8 +1516,8 @@ IF (LLES_CALL) THEN
!$acc end kernels !$acc end kernels
CALL LES_MEAN_SUBGRID(ZTMP1_DEVICE,X_LES_SUBGRID_U2) CALL LES_MEAN_SUBGRID(ZTMP1_DEVICE,X_LES_SUBGRID_U2)
!$acc kernels !$acc kernels
X_LES_SUBGRID_V2 = X_LES_SUBGRID_U2 X_LES_SUBGRID_V2(:,:,:) = X_LES_SUBGRID_U2(:,:,:)
X_LES_SUBGRID_W2 = X_LES_SUBGRID_U2 X_LES_SUBGRID_W2(:,:,:) = X_LES_SUBGRID_U2(:,:,:)
!$acc end kernels !$acc end kernels
CALL GZ_M_W_DEVICE(KKA,KKU,KKL,PTHLT,PDZZ,ZTMP2_DEVICE) CALL GZ_M_W_DEVICE(KKA,KKU,KKL,PTHLT,PDZZ,ZTMP2_DEVICE)
CALL MZF_DEVICE( ZTMP2_DEVICE, ZTMP3_DEVICE ) CALL MZF_DEVICE( ZTMP2_DEVICE, ZTMP3_DEVICE )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment