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
No related merge requests found
!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 MODULE MODI_BITREP
! !
! MODIFICATIONS ! MODIFICATIONS
...@@ -77,7 +82,7 @@ ELEMENTAL FUNCTION BR_POW(PVAL,PPOW) ...@@ -77,7 +82,7 @@ ELEMENTAL FUNCTION BR_POW(PVAL,PPOW)
!$acc routine seq !$acc routine seq
! !
REAL, VALUE, INTENT(IN) :: PVAL, PPOW REAL, VALUE, INTENT(IN) :: PVAL, PPOW
REAL, VALUE :: BR_POW REAL :: BR_POW
! !
BR_POW = BR_EXP( PPOW * BR_LOG(PVAL) ) BR_POW = BR_EXP( PPOW * BR_LOG(PVAL) )
! !
......
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