Put min and maxes into a derived type

Author: prathi-wind

src/common/m_helper.fpp

@@ -35,7 +35,8 @@ module m_helper
               associated_legendre, &
               spherical_harmonic_func, &
               double_factorial, &
-              factorial
+              factorial, &
+              s_update_cell_extremes
 
 contains
 
@@ -577,4 +578,19 @@ contains
 
     end function factorial
 
+    pure elemental subroutine s_update_cell_extremes(extreme, m, n, p)
+        type(cell_num_bounds), intent(out) :: extreme
+        integer, intent(in) :: m, n, p
+        
+        extreme%mn_max = max(m, n)
+        extreme%np_max = max(n, p)
+        extreme%mp_max = max(m, p)
+        extreme%mnp_max = max(m, n, p)
+        extreme%mn_min = min(m, n)
+        extreme%np_min = min(n, p)
+        extreme%mp_min = min(m, p)
+        extreme%mnp_min = min(m, n, p)
+
+    end subroutine s_update_cell_extremes
+
 end module m_helper

src/common/m_mpi_common.fpp

@@ -67,10 +67,10 @@ contains
                                          & (m + 2*buff_size + 1)* &
                                          & (n + 2*buff_size + 1)* &
                                          & (p + 2*buff_size + 1)/ &
-                                         & ((mnp_min + 2*buff_size + 1))
+                                         & ((cells_bounds%mnp_min + 2*buff_size + 1))
             else
                 halo_size = -1 + buff_size*(v_size)* &
-                                         & (mn_max + 2*buff_size + 1)
+                                         & (cells_bounds%mn_max + 2*buff_size + 1)
             end if
         else
             halo_size = -1 + buff_size*(v_size)

src/post_process/m_global_parameters.fpp

@@ -19,6 +19,8 @@ module m_global_parameters
 
     use m_thermochem, only: num_species, species_names
 
+    use m_helper, only: s_update_cell_extremes
+
     implicit none
 
     !> @name Logistics

src/pre_process/m_global_parameters.fpp

@@ -19,6 +19,8 @@ module m_global_parameters
 
     use m_thermochem, only: num_species
 
+    use m_helper, only: s_update_cell_extremes
+
     implicit none
 
     ! Logistics

src/simulation/m_global_parameters.fpp

@@ -21,6 +21,8 @@ module m_global_parameters
 
     use m_helper_basic         !< Functions to compare floating point numbers
 
+    use m_helper, only: s_update_cell_extremes
+
 #ifdef MFC_OpenACC
     use openacc
 #endif

src/simulation/m_start_up.fpp

@@ -67,8 +67,6 @@ module m_start_up
     use ieee_arithmetic
 
     use m_helper_basic          !< Functions to compare floating point numbers
-    
-
 
 #ifdef MFC_OpenACC
     use openacc