From 3b00feb5c4037fd5209819928de85309c4d15d52 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 12 Jan 2022 08:50:38 +0100
Subject: [PATCH] Philippe 12/01/2022: BITREP: return value of BR_POW function
 may not have VALUE keyword

---
 src/LIB/BITREP/modi_bitrep.f90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/LIB/BITREP/modi_bitrep.f90 b/src/LIB/BITREP/modi_bitrep.f90
index e06a94866..8bc17f583 100644
--- a/src/LIB/BITREP/modi_bitrep.f90
+++ b/src/LIB/BITREP/modi_bitrep.f90
@@ -1,3 +1,8 @@
+!MNH_LIC Copyright 2016-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.
+!-----------------------------------------------------------------
 MODULE MODI_BITREP
 !
 !    MODIFICATIONS
@@ -77,7 +82,7 @@ ELEMENTAL FUNCTION BR_POW(PVAL,PPOW)
 !$acc routine seq
 !
 REAL, VALUE, INTENT(IN) :: PVAL, PPOW
-REAL, VALUE             :: BR_POW
+REAL                    :: BR_POW
 !
 BR_POW = BR_EXP( PPOW * BR_LOG(PVAL) )
 !
-- 
GitLab