From b933476c73e01df69d560b67449e5bf8af7c590e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Riette?= <sebastien.riette@meteo.fr>
Date: Tue, 27 Jun 2023 13:06:08 +0200
Subject: [PATCH] S. Riette 27 June 2023: suppression of OCND2 related REPRO48
keys
This commit breaks the bit reproducibility for the OCND2 configuration
---
src/common/micro/modd_param_icen.F90 | 10 ----------
src/common/micro/mode_rain_ice_old_icenumber2.F90 | 4 ----
2 files changed, 14 deletions(-)
diff --git a/src/common/micro/modd_param_icen.F90 b/src/common/micro/modd_param_icen.F90
index e52680f2c..3534bf3f8 100644
--- a/src/common/micro/modd_param_icen.F90
+++ b/src/common/micro/modd_param_icen.F90
@@ -363,16 +363,6 @@ IF(LLDEFAULTVAL) THEN
XFRMIN_NAM(26:38)=0.
XFRMIN_NAM(39)=0.25
XFRMIN_NAM(40)=0.15
-#ifdef REPRO48
- !In the original version, this array was filled in suparar. suparar is in a part of the model compiled without
- !defining implicit kind for reals whereas the current module is in phyex where the compilation options
- !sets implicit kind for reals to 8 bytes.
- !
- !Only these 3 values must be set in simple precision to reproduce the old results. Why?
- XFRMIN_NAM(13) =1.0E-15_4
- XFRMIN_NAM(15) =1.0E-4_4
- XFRMIN_NAM(40)=0.15_4
-#endif
IF(HPROGRAM=='AROME') THEN
LCONVHG=.TRUE.
diff --git a/src/common/micro/mode_rain_ice_old_icenumber2.F90 b/src/common/micro/mode_rain_ice_old_icenumber2.F90
index a3ec0c187..7284d3e2f 100644
--- a/src/common/micro/mode_rain_ice_old_icenumber2.F90
+++ b/src/common/micro/mode_rain_ice_old_icenumber2.F90
@@ -12,11 +12,7 @@ MODULE MODE_RAIN_ICE_OLD_ICENUMBER2
REAL, INTENT(IN) :: T3D
REAL, PARAMETER:: ICE_DENSITY = 890.0
-#ifdef REPRO48
- REAL, PARAMETER:: PI = 3.1415926536
-#else
REAL, PARAMETER:: PI = 4.0*ATAN(1.)
-#endif
INTEGER IDX_REI
REAL CORR, REICE, DEICE
DOUBLE PRECISION LAMBDA
--
GitLab