From 549d952579c6ad525cab2d378faf0d1d2393262f Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 3 Oct 2019 15:30:02 +0200
Subject: [PATCH] Philippe 03/10/2019: minor: replace <> by /=
---
src/LIB/SURCOUCHE/src/mode_device.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_device.f90 b/src/LIB/SURCOUCHE/src/mode_device.f90
index b8a4724e6..31ef0b30c 100644
--- a/src/LIB/SURCOUCHE/src/mode_device.f90
+++ b/src/LIB/SURCOUCHE/src/mode_device.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2016-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2016-2019 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.
@@ -215,7 +215,7 @@ CONTAINS
#ifdef _OPENACC
G_PTAB_ON_DEVICE = acc_is_present(PTAB)
- G_EXEC_ON_DEVICE = ( acc_get_device_type() <> acc_device_host )
+ G_EXEC_ON_DEVICE = ( acc_get_device_type() /= acc_device_host )
if (G_EXEC_ON_DEVICE) then
if (G_PTAB_ON_DEVICE) then
print*,"PRESENT::",HMSG
--
GitLab