Skip to content
Snippets Groups Projects
Commit 792f722e authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 25/04/2019: OpenACC: move allocate outside of kernels to allow compilation

parent 11719f3d
No related branches found
No related tags found
No related merge requests found
...@@ -625,8 +625,8 @@ IF (HCLOUD=='C2R2' .OR. HCLOUD=='C3R5' .OR. HCLOUD=='KHKO' .OR. HCLOUD=='LIMA') ...@@ -625,8 +625,8 @@ IF (HCLOUD=='C2R2' .OR. HCLOUD=='C3R5' .OR. HCLOUD=='KHKO' .OR. HCLOUD=='LIMA')
ZSVS(:,:,:,:) = PSVS(:,:,:,ISVBEG:ISVEND) ZSVS(:,:,:,:) = PSVS(:,:,:,ISVBEG:ISVEND)
END IF END IF
IF (HCLOUD(1:3)=='ICE' .AND. LRED) THEN IF (HCLOUD(1:3)=='ICE' .AND. LRED) THEN
!$acc kernels
ALLOCATE(ZRSMIN(SIZE(XRTMIN))) ALLOCATE(ZRSMIN(SIZE(XRTMIN)))
!$acc kernels
ZRSMIN(:) = XRTMIN(:) / PTSTEP ZRSMIN(:) = XRTMIN(:) / PTSTEP
!$acc end kernels !$acc end kernels
END IF END IF
......
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