Fix fortran

HySoP/src/scalesInterface/layout/cart_topology.f90

@@ -95,6 +95,8 @@ module cart_topology
     ! ------ Information about mesh subdivision and on the global grid -----
     !> information about local mesh - for scalar
     type(cartesian_mesh), protected     :: mesh_sc
+    !> REcopy of mesh_sc%N_proc for python interface
+    integer, dimension(3)               :: N_proc
     !> Computation are done by group of line. Here we define their size
     integer, dimension(3,2), protected  :: group_size
     !> To check if group size is initialized
@@ -351,6 +353,7 @@ subroutine discretisation_create(Nx, Ny, Nz, Lx, Ly, Lz, verbosity)
     mesh_sc%length(3)= Lz
 
     mesh_sc%N_proc = mesh_sc%N / nb_proc_dim
+    N_proc = mesh_sc%N_proc
     mesh_sc%relative_extend(:,1) = 1
     mesh_sc%relative_extend(:,2) = mesh_sc%N_proc
 
@@ -382,6 +385,7 @@ subroutine discretisation_default(verbosity)
     mesh_sc%N = default_size
     mesh_sc%length = 1.
     mesh_sc%N_proc = mesh_sc%N / nb_proc_dim
+    N_proc = mesh_sc%N_proc
     mesh_sc%relative_extend(:,1) = 1
     mesh_sc%relative_extend(:,2) = mesh_sc%N_proc