From 103a7ffcfa9839f91b7198b9ee8bd6ccee37a5b2 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Wed, 19 Jan 2022 13:33:12 +0100 Subject: [PATCH] Philippe 9/01/2022: a workaround for Cray CCE was not working with Nvidia NVHPC! --- src/MNH/prep_ideal_case.f90 | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90 index fde7020d4..5bb6611a2 100644 --- a/src/MNH/prep_ideal_case.f90 +++ b/src/MNH/prep_ideal_case.f90 @@ -1,4 +1,4 @@ -!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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -1481,7 +1481,11 @@ IF (CIDEAL == 'RSOU') THEN WRITE(NLUOUT,FMT=*) 'CIDEAL="RSOU", attempt to read DATE' CALL POSKEY(NLUPRE,NLUOUT,'RSOU') READ(NLUPRE,FMT=*) NYEAR,NMONTH,NDAY,XTIME +#ifdef MNH_COMPILER_CCE TDTCUR = DATE_TIME( DATE = DATE( NYEAR, NMONTH, NDAY ), XTIME = XTIME ) +#else + TDTCUR = DATE_TIME( DATE( NYEAR, NMONTH, NDAY ), XTIME ) +#endif TDTEXP = TDTCUR TDTSEG = TDTCUR TDTMOD = TDTCUR @@ -1500,7 +1504,11 @@ ELSE IF (CIDEAL == 'CSTN') THEN WRITE(NLUOUT,FMT=*) 'CIDEAL="CSTN", attempt to read DATE' CALL POSKEY(NLUPRE,NLUOUT,'CSTN') READ(NLUPRE,FMT=*) NYEAR,NMONTH,NDAY,XTIME +#ifdef MNH_COMPILER_CCE TDTCUR = DATE_TIME( DATE = DATE( NYEAR, NMONTH, NDAY ), XTIME = XTIME ) +#else + TDTCUR = DATE_TIME( DATE( NYEAR, NMONTH, NDAY ), XTIME ) +#endif TDTEXP = TDTCUR TDTSEG = TDTCUR TDTMOD = TDTCUR -- GitLab