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 ...@@ -434,7 +434,9 @@ DO JN = 1 , KSPLITR
IF ( KRR == 7 ) PRHS(:,:,:) = PRHS(:,:,:) + ZPRHS(:,:,:) * ZTSPLITR IF ( KRR == 7 ) PRHS(:,:,:) = PRHS(:,:,:) + ZPRHS(:,:,:) * ZTSPLITR
END IF END IF
! !
#ifndef MNH_COMPILER_CCE
!$mnh_expand_array( JI=KIB:KIE,JJ=KJB:KJE,JK=KKTB:KKTE ) !$mnh_expand_array( JI=KIB:KIE,JJ=KJB:KJE,JK=KKTB:KKTE )
#endif
IF ( GSEDIC ) GSEDIMC(:,:,:) = & IF ( GSEDIC ) GSEDIMC(:,:,:) = &
PRCS(:,:,:) > ZRTMIN(2) PRCS(:,:,:) > ZRTMIN(2)
GSEDIMR(:,:,:) = & GSEDIMR(:,:,:) = &
...@@ -447,7 +449,9 @@ DO JN = 1 , KSPLITR ...@@ -447,7 +449,9 @@ DO JN = 1 , KSPLITR
PRGS(:,:,:) > ZRTMIN(6) PRGS(:,:,:) > ZRTMIN(6)
IF ( GKRR_7 ) GSEDIMH(:,:,:) = & IF ( GKRR_7 ) GSEDIMH(:,:,:) = &
PRHS(:,:,:) > ZRTMIN(7) PRHS(:,:,:) > ZRTMIN(7)
#ifndef MNH_COMPILER_CCE
!$mnh_end_expand_array() ! CONCURRENT !$mnh_end_expand_array() ! CONCURRENT
#endif
!$acc end kernels !$acc end kernels
! !
#ifndef MNH_OPENACC #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