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

Juan 6/03/2024:advection_metsv.f90, Bug, index not expanded , replace DO...

Juan 6/03/2024:advection_metsv.f90, Bug, index not expanded , replace DO CONCURRENT -> !$mnh_expand_array
parent 498cd0cb
No related branches found
No related tags found
No related merge requests found
......@@ -522,20 +522,20 @@ IF (.NOT. L1D) THEN
!$mnh_end_expand_array()
#else
#if defined(MNH_COMPILER_CCE) && defined(MNH_BITREP_OMP)
DO CONCURRENT (JK=1:JKU,JJ=IJB:IJE,JI=IIB:IIE)
#else
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:JKU)
!$mnh_undef(LOOP)
!$mnh_undef(OPENACC)
#endif
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:JKU)
ZCFLU(IIB:IIE,IJB:IJE,:) = ZCFLU(IIB:IIE,IJB:IJE,:)*(1.-Br_exp(-Br_pow(XIBM_LS(IIB:IIE,IJB:IJE,:,2)/&
Br_pow(XRHODJ(IIB:IIE,IJB:IJE,:)/XRHODREF(IIB:IIE,IJB:IJE,:),1./3.),2.)))
ZCFLV(IIB:IIE,IJB:IJE,:) = ZCFLV(IIB:IIE,IJB:IJE,:)*(1.-Br_exp(-Br_pow(XIBM_LS(IIB:IIE,IJB:IJE,:,3)/&
Br_pow(XRHODJ(IIB:IIE,IJB:IJE,:)/XRHODREF(IIB:IIE,IJB:IJE,:),1./3.),2.)))
ZCFLW(IIB:IIE,IJB:IJE,:) = ZCFLW(IIB:IIE,IJB:IJE,:)*(1.-Br_exp(-Br_pow(XIBM_LS(IIB:IIE,IJB:IJE,:,4)/&
Br_pow(XRHODJ(IIB:IIE,IJB:IJE,:)/XRHODREF(IIB:IIE,IJB:IJE,:),1./3.),2.)))
#if defined(MNH_COMPILER_CCE) && defined(MNH_BITREP_OMP)
END DO ! CONCURRENT
#else
!$mnh_end_expand_array()
#if defined(MNH_COMPILER_CCE) && defined(MNH_BITREP_OMP)
!$mnh_define(LOOP)
!$mnh_define(OPENACC)
#endif
#endif
WHERE (XIBM_LS(IIB:IIE,IJB:IJE,:,2).GT.(-ZIBM_EPSI)) ZCFLU(IIB:IIE,IJB:IJE,:)=0.
......
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