diff --git a/src/common/micro/modd_param_ice.F90 b/src/common/micro/modd_param_ice.F90 index f9658398b706f3662ed702cead692153f5aede1a..6b33b0fd85a87b708444c7ae62e3715f1d8f420e 100644 --- a/src/common/micro/modd_param_ice.F90 +++ b/src/common/micro/modd_param_ice.F90 @@ -308,6 +308,16 @@ IF(LLDEFAULTVAL) THEN XFRMIN_NAM(26:38)=0. XFRMIN_NAM(39)=0.25 XFRMIN_NAM(40)=0.15 +#ifdef REPRO48 + !In the original version, these 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 + !set 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.