From cde9264a71bfed0817943937fb2e8205daf75ba1 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 3 Oct 2019 17:05:19 +0200
Subject: [PATCH] Philippe 03/10/2019: OpenACC: move 'acc routine' directive
after 'implicit none' (required by gfortran 9.2)
---
src/MNH/gamma.f90 | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/src/MNH/gamma.f90 b/src/MNH/gamma.f90
index d5b65c7f4..3ed3ee129 100644
--- a/src/MNH/gamma.f90
+++ b/src/MNH/gamma.f90
@@ -1,7 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
+!-----------------------------------------------------------------
!########################
MODULE MODI_GAMMA
!########################
@@ -32,7 +33,6 @@ END MODULE MODI_GAMMA
! ######################################
FUNCTION GAMMA_X0D(PX) RESULT(PGAMMA)
! ######################################
-!$acc routine seq
!
!
!!**** *GAMMA * - Gamma function
@@ -76,6 +76,9 @@ USE MODI_BITREP
#endif
!
IMPLICIT NONE
+
+!$acc routine seq
+
!
!* 0.1 declarations of arguments and result
!
--
GitLab