Readded re_size_max

Author: prathi-wind

src/simulation/m_global_parameters.fpp

@@ -815,7 +815,7 @@ contains
         ! of fluids for which the physical and geometric curvatures of the
         ! interfaces will be computed
         Re_size = 0
-
+        Re_size_max = 0
         ! Gamma/Pi_inf Model
         if (model_eqns == 1) then
 

src/simulation/m_mpi_proxy.fpp

@@ -62,10 +62,10 @@ contains
                                             & (m + 2*gp_layers + 1)* &
                                             & (n + 2*gp_layers + 1)* &
                                             & (p + 2*gp_layers + 1)/ &
-                                            & (min(m, n, p) + 2*gp_layers + 1)
+                                            & (cells_bounds%mnp_min + 2*gp_layers + 1)
                 else
                     i_halo_size = -1 + gp_layers* &
-                                            & (max(m, n) + 2*gp_layers + 1)
+                                            & (cells_bounds%mn_max + 2*gp_layers + 1)
                 end if
             else
                 i_halo_size = -1 + gp_layers

src/simulation/m_pressure_relaxation.fpp

@@ -42,7 +42,7 @@ contains
         $:GPU_UPDATE(device='[gamma_min, pres_inf]')
 
         if (viscous) then
-            @:ALLOCATE(Res(1:2, 1:maxval(Re_size)))
+            @:ALLOCATE(Res(1:2, 1:Re_size_max))
             do i = 1, 2
                 do j = 1, Re_size(i)
                     Res(i, j) = fluid_pp(Re_idx(i, j))%Re(i)