Initialize dir2D and dir2D_ctrl to 0

loganoz · Oct 27, 2023 · 528b186 · 528b186
1 parent 4100161
commit 528b186
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Solver/src/libs/mesh/HexMesh.f90 b/Solver/src/libs/mesh/HexMesh.f90
@@ -70,8 +70,8 @@ MODULE HexMeshClass
          class(Zone_t), dimension(:), allocatable  :: zones
          logical                                   :: child       = .FALSE.         ! Is this a (multigrid) child mesh? default .FALSE.
          logical                                   :: meshIs2D    = .FALSE.         ! Is this a 2D mesh? default .FALSE.
-         integer                                   :: dir2D                         ! If it is in fact a 2D mesh, dir 2D stores the global direction IX, IY or IZ
-         integer                                   :: dir2D_ctrl                    ! dir2D as in the control file
+         integer                                   :: dir2D       = 0               ! If it is in fact a 2D mesh, dir 2D stores the global direction IX, IY or IZ
+         integer                                   :: dir2D_ctrl  = 0               ! dir2D as in the control file
          logical                                   :: anisotropic = .FALSE.         ! Is the mesh composed by elements with anisotropic polynomial orders? default false
          logical                                   :: ignoreBCnonConformities = .FALSE.
          contains