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

Juan 7/11/2022:ZSOLVER/p_abs.f90, missing test on MNH_BITREP_OMP for OPENACCNOBITREP version

parent 496faef9
No related branches found
No related tags found
No related merge requests found
...@@ -296,7 +296,7 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN ...@@ -296,7 +296,7 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN
ZWORK(:,:,:)=PRHODJ * XTH00 & ZWORK(:,:,:)=PRHODJ * XTH00 &
/ ( PRHODREF * PTHVREF * (1. + PRVREF) ) / ( PRHODREF * PTHVREF * (1. + PRVREF) )
END IF END IF
#ifdef MNH_COMPILER_CCE_1403 #if defined(MNH_COMPILER_CCE_1403) && defined(MNH_BITREP_OMP)
!$acc loop !$acc loop
!$mnh_do_concurrent(JI=IIB:IIE,JJ=IJB:IJE,JK=IKB:IKE ) !$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) 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 ...@@ -366,7 +366,7 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN
ZMASSGUESS_2D = 0. ZMASSGUESS_2D = 0.
!$acc end kernels !$acc end kernels
IF ( CEQNSYS == 'DUR' ) THEN IF ( CEQNSYS == 'DUR' ) THEN
#ifdef MNH_COMPILER_CCE_1403 #if defined(MNH_COMPILER_CCE_1403) && defined(MNH_BITREP_OMP)
!$acc kernels !$acc kernels
!$acc loop !$acc loop
!$mnh_do_concurrent(JI=IIB:IIE,JJ=IJB:IJE,JK=IKB:IKE ) !$mnh_do_concurrent(JI=IIB:IIE,JJ=IJB:IJE,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