diff --git a/src/LIB/BITREP/modi_bitrep.f90 b/src/LIB/BITREP/modi_bitrep.f90 index e06a94866dbd8d89b1e57624ff7080557885869c..8bc17f583d221040e27da789f6b98c512f1eb90d 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) ) !