diff --git a/src/ZSOLVER/p_abs.f90 b/src/ZSOLVER/p_abs.f90 index 2ab46c89619173de0fcabcb4d8e8c5e9bde81272..3b41b15e68fb88d7c47a282f49c6b36a9a1cdb7f 100644 --- a/src/ZSOLVER/p_abs.f90 +++ b/src/ZSOLVER/p_abs.f90 @@ -296,7 +296,7 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN ZWORK(:,:,:)=PRHODJ * XTH00 & / ( PRHODREF * PTHVREF * (1. + PRVREF) ) END IF -#ifdef MNH_COMPILER_CCE_1403 +#if defined(MNH_COMPILER_CCE_1403) && defined(MNH_BITREP_OMP) !$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) @@ -366,7 +366,7 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN ZMASSGUESS_2D = 0. !$acc end kernels IF ( CEQNSYS == 'DUR' ) THEN -#ifdef MNH_COMPILER_CCE_1403 + #if defined(MNH_COMPILER_CCE_1403) && defined(MNH_BITREP_OMP) !$acc kernels !$acc loop !$mnh_do_concurrent(JI=IIB:IIE,JJ=IJB:IJE,JK=IKB:IKE )