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

Juan 13/05/2024:PHYEX/turb/mode_prandtl.f90, add acc loop collapse(3) on...

Juan 13/05/2024:PHYEX/turb/mode_prandtl.f90, add acc loop collapse(3) on JK*JIJ loop , for better performance (on MNH55 , array syntax keeped )
parent 00410cb3
No related branches found
No related tags found
No related merge requests found
......@@ -329,6 +329,7 @@ END IF
ZMINVAL = (1.-1./CSTURB%XPHI_LIM)
!
!$acc kernels present(ZW1,ZW2)
!$acc loop collapse(2) independent
DO JK=1,IKT
DO JIJ=IIJB,IIJE
ZW1(JIJ,JK) = 1.
......
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