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

Philippe 24/01/2022: add MNH_BITREP for bit reproducibility

parent 38200f2d
No related branches found
No related tags found
No related merge requests found
!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC Copyright 1994-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 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. !MNH_LIC for details. version 1.
...@@ -120,6 +120,10 @@ USE MODD_REF, ONLY: LBOUSS ...@@ -120,6 +120,10 @@ USE MODD_REF, ONLY: LBOUSS
USE MODE_ll USE MODE_ll
USE MODE_REPRO_SUM USE MODE_REPRO_SUM
! !
#ifdef MNH_BITREP
USE MODI_BITREP
#endif
!
IMPLICIT NONE IMPLICIT NONE
! !
!* 0.1 Declarations of dummy arguments : !* 0.1 Declarations of dummy arguments :
...@@ -239,7 +243,11 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN ...@@ -239,7 +243,11 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN
DO JJ = IJB,IJE DO JJ = IJB,IJE
DO JI = IIB,IIE DO JI = IIB,IIE
ZMASSGUESS_2D(JI,JJ) = ZMASSGUESS_2D(JI,JJ) + & ZMASSGUESS_2D(JI,JJ) = ZMASSGUESS_2D(JI,JJ) + &
(PEXNREF(JI,JJ,JK)+PPHIT(JI,JJ,JK))**ZCVD_O_RD & #ifndef MNH_BITREP
(PEXNREF(JI,JJ,JK)+PPHIT(JI,JJ,JK))**ZCVD_O_RD &
#else
BR_POW((PEXNREF(JI,JJ,JK)+PPHIT(JI,JJ,JK)),ZCVD_O_RD) &
#endif
* ZWORK(JI,JJ,JK) / PTHETAV(JI,JJ,JK) * ZWORK(JI,JJ,JK) / PTHETAV(JI,JJ,JK)
ZMASS_O_PI_2D(JI,JJ) = ZMASS_O_PI_2D(JI,JJ) + ZWORK(JI,JJ,JK) / PTHETAV(JI,JJ,JK) ZMASS_O_PI_2D(JI,JJ) = ZMASS_O_PI_2D(JI,JJ) + ZWORK(JI,JJ,JK) / PTHETAV(JI,JJ,JK)
ZWATERMASST_2D(JI,JJ) = ZWATERMASST_2D(JI,JJ) + & ZWATERMASST_2D(JI,JJ) = ZWATERMASST_2D(JI,JJ) + &
......
!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC Copyright 1994-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 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. !MNH_LIC for details. version 1.
...@@ -830,7 +830,11 @@ IF ((ZMAX_ll > 1.E-12) .AND. KTCOUNT >0 ) THEN ...@@ -830,7 +830,11 @@ IF ((ZMAX_ll > 1.E-12) .AND. KTCOUNT >0 ) THEN
PRVREF, PEXNREF, ZPHIT, ZPHI0 ) PRVREF, PEXNREF, ZPHIT, ZPHI0 )
! !
IF(CEQNSYS=='MAE' .OR. CEQNSYS=='DUR') THEN IF(CEQNSYS=='MAE' .OR. CEQNSYS=='DUR') THEN
#ifndef MNH_BITREP
PPABST(:,:,:)=XP00*(ZPHIT+PEXNREF)**(XCPD/XRD) PPABST(:,:,:)=XP00*(ZPHIT+PEXNREF)**(XCPD/XRD)
#else
PPABST(:,:,:)=XP00*BR_POW((ZPHIT+PEXNREF),(XCPD/XRD))
#endif
ELSEIF(CEQNSYS=='LHE') THEN ELSEIF(CEQNSYS=='LHE') THEN
IF (.NOT. LOCEAN) THEN IF (.NOT. LOCEAN) THEN
! Deep atmosphere case : computing of PI fluctuation ; ZPHI0 (computed in P_ABS routine) is added ! Deep atmosphere case : computing of PI fluctuation ; ZPHI0 (computed in P_ABS routine) is added
......
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