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

Philippe 03/10/2019: minor: replace <> by /=

parent 7e2daa68
No related branches found
No related tags found
No related merge requests found
!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 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.
...@@ -215,7 +215,7 @@ CONTAINS ...@@ -215,7 +215,7 @@ CONTAINS
#ifdef _OPENACC #ifdef _OPENACC
G_PTAB_ON_DEVICE = acc_is_present(PTAB) 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_EXEC_ON_DEVICE) then
if (G_PTAB_ON_DEVICE) then if (G_PTAB_ON_DEVICE) then
print*,"PRESENT::",HMSG print*,"PRESENT::",HMSG
......
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