diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90 index d47b8f465c35a42f183dcc347f55cbd71879a75d..6f234ab39bacbaff5332e7ab41f3b915b5864d9c 100644 --- a/src/MNH/turb.f90 +++ b/src/MNH/turb.f90 @@ -1516,8 +1516,8 @@ IF (LLES_CALL) THEN !$acc end kernels CALL LES_MEAN_SUBGRID(ZTMP1_DEVICE,X_LES_SUBGRID_U2) !$acc kernels - X_LES_SUBGRID_V2 = X_LES_SUBGRID_U2 - X_LES_SUBGRID_W2 = X_LES_SUBGRID_U2 + X_LES_SUBGRID_V2(:,:,:) = X_LES_SUBGRID_U2(:,:,:) + X_LES_SUBGRID_W2(:,:,:) = X_LES_SUBGRID_U2(:,:,:) !$acc end kernels CALL GZ_M_W_DEVICE(KKA,KKU,KKL,PTHLT,PDZZ,ZTMP2_DEVICE) CALL MZF_DEVICE( ZTMP2_DEVICE, ZTMP3_DEVICE )