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

Philippe 27/03/2023: ZSOLVER: remove turb.f90 (use the one in MNH/)

parent 788bc0c7
No related branches found
No related tags found
No related merge requests found
...@@ -713,15 +713,15 @@ GTURBLEN_BL89_TURBLEN_RM17_TURBLEN_ADAP_ORMC01 = & ...@@ -713,15 +713,15 @@ GTURBLEN_BL89_TURBLEN_RM17_TURBLEN_ADAP_ORMC01 = &
! !
!$acc update device(PTHLT,PRT) !$acc update device(PTHLT,PRT)
!Copy data into ZTHLM and ZRM only if needed !Copy data into ZTHLM and ZRM only if needed
IF (HTURBLEN=='BL89' .OR. HTURBLEN=='RM17' .OR. HTURBLEN=='ADAP' .OR. ORMC01) THEN IF (GTURBLEN_BL89_TURBLEN_RM17_TURBLEN_ADAP_ORMC01) THEN
!$acc kernels present_cr(ZTHLM,ZRM) !$acc kernels present_cr(ZTHLM,ZRM)
ZTHLM(:,:,:) = PTHLT(:,:,:) ZTHLM(:,:,:) = PTHLT(:,:,:)
ZRM(:,:,:,:) = PRT(:,:,:,:) ZRM(:,:,:,:) = PRT(:,:,:,:)
!DO CONCURRENT(JI=1:JIU,JJ=1:JJU,JK=1:JKU) !DO CONCURRENT(JI=1:JIU,JJ=1:JJU,JK=1:JKU)
!ZTHLM(JI,JJ,JK) = PTHLT(JI,JJ,JK) !ZTHLM(JI,JJ,JK) = PTHLT(JI,JJ,JK)
!ZRM(JI,JJ,JK,:) = PRT(JI,JJ,JK,:) !ZRM(JI,JJ,JK,:) = PRT(JI,JJ,JK,:)
!END DO !END DO
!$acc end kernels !$acc end kernels
END IF END IF
! !
!$acc kernels present_cr(ZTRH,ZCOEF_DISS,ZTHLM,ZRM,zcp) !$acc kernels present_cr(ZTRH,ZCOEF_DISS,ZTHLM,ZRM,zcp)
......
This diff is collapsed.
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