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

Philippe 12/01/2022: BITREP: return value of BR_POW function may not have VALUE keyword

parent 531e6f69
No related branches found
No related tags found
1 merge request!4Jean Wurtz 30/04/2025 : Bugfixes mainly for TEB and for simple precision
!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) )
!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment