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

Juan 10/02/2022: OpenACC: workaround for Cray CCE compiler: add an...

Juan 10/02/2022: OpenACC: workaround for Cray CCE compiler: add an intermediate variable for VSIGQSAT
parent 2c0a736a
No related branches found
No related tags found
No related merge requests found
...@@ -362,7 +362,10 @@ USE MODD_TIME_n ...@@ -362,7 +362,10 @@ USE MODD_TIME_n
USE MODD_TIMEZ USE MODD_TIMEZ
USE MODD_TURB_CLOUD, ONLY: NMODEL_CLOUD,CTURBLEN_CLOUD,XCEI USE MODD_TURB_CLOUD, ONLY: NMODEL_CLOUD,CTURBLEN_CLOUD,XCEI
USE MODD_TURB_n USE MODD_TURB_n
USE MODD_VISCOSITY #ifdef MNH_COMPILER_CCE
USE MODD_TURB_n, ONLY: VSIGQSAT_MODD => VSIGQSAT
#endif
USE MODD_VISCOSITY
! !
use mode_budget, only: Budget_store_init, Budget_store_end use mode_budget, only: Budget_store_init, Budget_store_end
USE MODE_DATETIME USE MODE_DATETIME
...@@ -559,8 +562,14 @@ REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: ZWETDEPAER ...@@ -559,8 +562,14 @@ REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: ZWETDEPAER
! !
TYPE(TFILEDATA),POINTER :: TZBAKFILE, TZOUTFILE TYPE(TFILEDATA),POINTER :: TZBAKFILE, TZOUTFILE
! TYPE(TFILEDATA),SAVE :: TZDIACFILE ! TYPE(TFILEDATA),SAVE :: TZDIACFILE
!-------------------------------------------------------------------------------
! !
#ifdef MNH_COMPILER_CCE
!Bypass cray bug with scalar pointer
REAL :: VSIGQSAT
VSIGQSAT = VSIGQSAT_MODD
#endif
!-------------------------------------------------------------------------------
TZBAKFILE=> NULL() TZBAKFILE=> NULL()
TZOUTFILE=> NULL() TZOUTFILE=> NULL()
......
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