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

Juan 19/06/2023:rain_ice_sedimentation_split.f90, Again SegFault at execition...

Juan 19/06/2023:rain_ice_sedimentation_split.f90, Again SegFault at execition with CRAY ftn -> deactivate mnh_expand_array for CRAY ftn !!!
parent 16e8845e
No related branches found
No related tags found
No related merge requests found
......@@ -434,7 +434,9 @@ DO JN = 1 , KSPLITR
IF ( KRR == 7 ) PRHS(:,:,:) = PRHS(:,:,:) + ZPRHS(:,:,:) * ZTSPLITR
END IF
!
#ifndef MNH_COMPILER_CCE
!$mnh_expand_array( JI=KIB:KIE,JJ=KJB:KJE,JK=KKTB:KKTE )
#endif
IF ( GSEDIC ) GSEDIMC(:,:,:) = &
PRCS(:,:,:) > ZRTMIN(2)
GSEDIMR(:,:,:) = &
......@@ -447,7 +449,9 @@ DO JN = 1 , KSPLITR
PRGS(:,:,:) > ZRTMIN(6)
IF ( GKRR_7 ) GSEDIMH(:,:,:) = &
PRHS(:,:,:) > ZRTMIN(7)
#ifndef MNH_COMPILER_CCE
!$mnh_end_expand_array() ! CONCURRENT
#endif
!$acc end kernels
!
#ifndef MNH_OPENACC
......
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