Replace intrinsics in allocate

Author: prathi-wind

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)/ &
-                                         & (min(m, n, p) + 2*buff_size + 1))
+                                         & ((mnp_min + 2*buff_size + 1))
             else
                 halo_size = -1 + buff_size*(v_size)* &
-                                         & (max(m, n) + 2*buff_size + 1)
+                                         & (mn_max + 2*buff_size + 1)
             end if
         else
             halo_size = -1 + buff_size*(v_size)

src/simulation/m_global_parameters.fpp

@@ -1042,6 +1042,8 @@ contains
             if (Re_size(1) > 0._wp) shear_stress = .true.
             if (Re_size(2) > 0._wp) bulk_stress = .true.
 
+            Re_size_max = maxval(Re_size)
+
             $:GPU_UPDATE(device='[Re_size,viscous,shear_stress,bulk_stress]')
 
             ! Bookkeeping the indexes of any viscous fluids and any pairs of