diff --git a/src/ZSOLVER/p_abs.f90 b/src/ZSOLVER/p_abs.f90 index ea09e7646871e26611cfdf8e1cbebd680caafe56..2ab46c89619173de0fcabcb4d8e8c5e9bde81272 100644 --- a/src/ZSOLVER/p_abs.f90 +++ b/src/ZSOLVER/p_abs.f90 @@ -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