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

Philippe 9/01/2022: a workaround for Cray CCE was not working with Nvidia NVHPC!

parent 1046b98f
No related branches found
No related tags found
No related merge requests found
!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
...@@ -1481,7 +1481,11 @@ IF (CIDEAL == 'RSOU') THEN ...@@ -1481,7 +1481,11 @@ IF (CIDEAL == 'RSOU') THEN
WRITE(NLUOUT,FMT=*) 'CIDEAL="RSOU", attempt to read DATE' WRITE(NLUOUT,FMT=*) 'CIDEAL="RSOU", attempt to read DATE'
CALL POSKEY(NLUPRE,NLUOUT,'RSOU') CALL POSKEY(NLUPRE,NLUOUT,'RSOU')
READ(NLUPRE,FMT=*) NYEAR,NMONTH,NDAY,XTIME READ(NLUPRE,FMT=*) NYEAR,NMONTH,NDAY,XTIME
#ifdef MNH_COMPILER_CCE
TDTCUR = DATE_TIME( DATE = DATE( NYEAR, NMONTH, NDAY ), XTIME = XTIME ) TDTCUR = DATE_TIME( DATE = DATE( NYEAR, NMONTH, NDAY ), XTIME = XTIME )
#else
TDTCUR = DATE_TIME( DATE( NYEAR, NMONTH, NDAY ), XTIME )
#endif
TDTEXP = TDTCUR TDTEXP = TDTCUR
TDTSEG = TDTCUR TDTSEG = TDTCUR
TDTMOD = TDTCUR TDTMOD = TDTCUR
...@@ -1500,7 +1504,11 @@ ELSE IF (CIDEAL == 'CSTN') THEN ...@@ -1500,7 +1504,11 @@ ELSE IF (CIDEAL == 'CSTN') THEN
WRITE(NLUOUT,FMT=*) 'CIDEAL="CSTN", attempt to read DATE' WRITE(NLUOUT,FMT=*) 'CIDEAL="CSTN", attempt to read DATE'
CALL POSKEY(NLUPRE,NLUOUT,'CSTN') CALL POSKEY(NLUPRE,NLUOUT,'CSTN')
READ(NLUPRE,FMT=*) NYEAR,NMONTH,NDAY,XTIME READ(NLUPRE,FMT=*) NYEAR,NMONTH,NDAY,XTIME
#ifdef MNH_COMPILER_CCE
TDTCUR = DATE_TIME( DATE = DATE( NYEAR, NMONTH, NDAY ), XTIME = XTIME ) TDTCUR = DATE_TIME( DATE = DATE( NYEAR, NMONTH, NDAY ), XTIME = XTIME )
#else
TDTCUR = DATE_TIME( DATE( NYEAR, NMONTH, NDAY ), XTIME )
#endif
TDTEXP = TDTCUR TDTEXP = TDTCUR
TDTSEG = TDTCUR TDTSEG = TDTCUR
TDTMOD = TDTCUR TDTMOD = TDTCUR
......
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