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

Juan 04/11/2022:ZSOLVER/p_abs.f90 , CCE < 14.X , miss placed (empty) "!$acc kernel"

parent 9e8a28db
No related branches found
No related tags found
No related merge requests found
......@@ -366,14 +366,14 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN
ZMASSGUESS_2D = 0.
!$acc end kernels
IF ( CEQNSYS == 'DUR' ) THEN
!$acc kernels
#ifdef MNH_COMPILER_CCE_1403
!$acc kernels
!$acc loop
!$mnh_do_concurrent(JI=IIB:IIE,JJ=IJB:IJE,JK=IKB:IKE )
PEXNREF_BR(JI,JJ,JK)=BR_POW((PEXNREF(JI,JJ,JK)+PPHIT(JI,JJ,JK)),ZCVD_O_RD)
!$mnh_end_do()
#endif
!$acc end kernels
#endif
!$acc parallel
!$acc loop seq
DO JK = IKB,IKE
......
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