diff --git a/src/LIB/NEWLFI/src/NEWLFI_ALL.f b/src/LIB/NEWLFI/src/NEWLFI_ALL.f index 3ce0beb2f5920bbc9297c7299f21e217f73fd80a..2daebeafbd1f6778c06c3e65cb6263a0c634ccfd 100644 --- a/src/LIB/NEWLFI/src/NEWLFI_ALL.f +++ b/src/LIB/NEWLFI/src/NEWLFI_ALL.f @@ -6737,6 +6737,9 @@ C IRANMS=0 INBARI=0 LLVERG=.FALSE. +CJUAN + CLACTI='UNKNOWN' + C C Appel legerement anticipe a LFINUM, permettant une initialisa- C tion des variables globales du logiciel a la 1ere utilisation. diff --git a/src/MNH/modd_conf.f90 b/src/MNH/modd_conf.f90 index bd2bd2abd21ef19f83ed3ae08ae8bad5c939d8e9..3a8ab8ec94a4b17c7f4772da74b08347f1d58cd8 100644 --- a/src/MNH/modd_conf.f90 +++ b/src/MNH/modd_conf.f90 @@ -67,7 +67,7 @@ LOGICAL,SAVE :: LTHINSHELL ! Logical for thinshell approximation LOGICAL,SAVE :: LCARTESIAN ! Logical for cartesian geometry : ! .TRUE. = cartesian geometry ! .FALSE. = conformal projection -LOGICAL,SAVE :: L2D ! Logical for 2D model version +LOGICAL,SAVE :: L2D = .FALSE. ! Logical for 2D model version ! .TRUE. = 2D model version ! .FALSE. = 3D model version LOGICAL,SAVE :: L1D ! Logical for 1D model version