Skip to content
Snippets Groups Projects
Commit 8956c549 authored by RIETTE Sébastien's avatar RIETTE Sébastien
Browse files

S. Riette 12 Jun 2023: bf for small_3D_alt9 case

parent 44838e24
No related branches found
No related tags found
No related merge requests found
...@@ -308,6 +308,16 @@ IF(LLDEFAULTVAL) THEN ...@@ -308,6 +308,16 @@ IF(LLDEFAULTVAL) THEN
XFRMIN_NAM(26:38)=0. XFRMIN_NAM(26:38)=0.
XFRMIN_NAM(39)=0.25 XFRMIN_NAM(39)=0.25
XFRMIN_NAM(40)=0.15 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 IF(HPROGRAM=='AROME') THEN
LCONVHG=.TRUE. LCONVHG=.TRUE.
......
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