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

Juan 14/06/2016: bug corrections: unitialized variables

(cherry picked from commit f7d3e2df)
parent da8fa56f
No related branches found
No related tags found
No related merge requests found
......@@ -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.
......
......@@ -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
......
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