Skip to content
Snippets Groups Projects
Commit 7742ab3f authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan
Browse files

Juan 25/03/2022:MNH/turb_ver_thermo_flux.f90, Cray GPU opt: add !dir$ concurrent

parent 60d32d2a
No related branches found
No related tags found
No related merge requests found
......@@ -1119,6 +1119,7 @@ IF ( KRRL >= 1 ) THEN
#else
!$acc kernels
#endif
!dir$ concurrent
ZTMP1_DEVICE(:,:,:) = PRHODJ(:,:,:) * PATHETA(:,:,:) * 2. * PSRCM(:,:,:)
ZTMP2_DEVICE(:,:,:) = ZFLXZ(:,:,:) / PDZZ(:,:,:)
!$acc end kernels
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment