Marked some subroutines as pure and ran formatter

Author: prathi-wind

src/common/m_finite_differences.fpp

@@ -68,7 +68,7 @@ contains
     !!  @param s_cc Locations of the cell-centers in the s-coordinate direction
     !!  @param fd_coeff_s Finite-diff. coefficients in the s-coordinate direction
     pure subroutine s_compute_finite_difference_coefficients(q, s_cc, fd_coeff_s, buff_size, &
-                                                        fd_number_in, fd_order_in, offset_s)
+                                                             fd_number_in, fd_order_in, offset_s)
 
         integer :: lB, lE !< loop bounds
         integer, intent(IN) :: q

src/common/m_helper.fpp

@@ -571,7 +571,7 @@ contains
 
         integer :: i
 
-        R = product((/(i, i=n, 1,-1)/))
+        R = product((/(i, i=n, 1, -1)/))
 
     end function factorial
 

src/common/m_helper_basic.f90

@@ -78,7 +78,7 @@ logical pure elemental function f_is_integer(var) result(res)
     end function f_is_integer
 
     pure subroutine s_configure_coordinate_bounds(weno_polyn, buff_size, idwint, idwbuff, &
-                                             viscous, bubbles_lagrange, m, n, p, num_dims)
+                                                  viscous, bubbles_lagrange, m, n, p, num_dims)
 
         integer, intent(in) :: weno_polyn, m, n, p, num_dims
         integer, intent(inout) :: buff_size

src/common/m_mpi_common.fpp

@@ -374,13 +374,13 @@ contains
         !!  @param vcfl_max_glb Global maximum VCFL stability criterion
         !!  @param Rc_min_glb Global minimum Rc stability criterion
     impure subroutine s_mpi_reduce_stability_criteria_extrema(icfl_max_loc, &
-                                                       vcfl_max_loc, &
-                                                       ccfl_max_loc, &
-                                                       Rc_min_loc, &
-                                                       icfl_max_glb, &
-                                                       vcfl_max_glb, &
-                                                       ccfl_max_glb, &
-                                                       Rc_min_glb)
+                                                              vcfl_max_loc, &
+                                                              ccfl_max_loc, &
+                                                              Rc_min_loc, &
+                                                              icfl_max_glb, &
+                                                              vcfl_max_glb, &
+                                                              ccfl_max_glb, &
+                                                              Rc_min_glb)
 
         real(wp), intent(in) :: icfl_max_loc
         real(wp), intent(in) :: vcfl_max_loc

src/common/m_variables_conversion.fpp

@@ -462,9 +462,9 @@ contains
     end subroutine s_convert_species_to_mixture_variables
 
     pure subroutine s_convert_species_to_mixture_variables_acc(rho_K, &
-                                                          gamma_K, pi_inf_K, qv_K, &
-                                                          alpha_K, alpha_rho_K, Re_K, k, l, r, &
-                                                          G_K, G)
+                                                               gamma_K, pi_inf_K, qv_K, &
+                                                               alpha_K, alpha_rho_K, Re_K, k, l, r, &
+                                                               G_K, G)
 #ifdef _CRAYFTN
         !DIR$ INLINEALWAYS s_convert_species_to_mixture_variables_acc
 #else
@@ -546,8 +546,8 @@ contains
     end subroutine s_convert_species_to_mixture_variables_acc
 
     pure subroutine s_convert_species_to_mixture_variables_bubbles_acc(rho_K, &
-                                                                  gamma_K, pi_inf_K, qv_K, &
-                                                                  alpha_K, alpha_rho_K, Re_K, k, l, r)
+                                                                       gamma_K, pi_inf_K, qv_K, &
+                                                                       alpha_K, alpha_rho_K, Re_K, k, l, r)
 #ifdef _CRAYFTN
         !DIR$ INLINEALWAYS s_convert_species_to_mixture_variables_bubbles_acc
 #else
@@ -1168,7 +1168,7 @@ contains
         !!  @param iy Index bounds in the second coordinate direction
         !!  @param iz Index bounds in the third coordinate direction
     impure subroutine s_convert_primitive_to_conservative_variables(q_prim_vf, &
-                                                             q_cons_vf)
+                                                                    q_cons_vf)
 
         type(scalar_field), dimension(sys_size), intent(in) :: q_prim_vf
         type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf

src/post_process/m_mpi_proxy.fpp

@@ -847,7 +847,7 @@ contains
         !!  @param sweep_coord Coordinate direction normal to the processor boundary
         !!  @param q_particle Projection of the lagrangian particles in the Eulerian framework
     impure subroutine s_mpi_sendrecv_cons_vars_buffer_regions(q_cons_vf, pbc_loc, &
-                                                       sweep_coord, q_particle)
+                                                              sweep_coord, q_particle)
 
         type(scalar_field), &
             dimension(sys_size), &

src/pre_process/m_assign_variables.fpp

@@ -102,7 +102,7 @@ contains
         !! @param q_prim_vf Primitive variables
         !! @param patch_id_fp Array to track patch ids
     pure subroutine s_assign_patch_mixture_primitive_variables(patch_id, j, k, l, &
-                                                          eta, q_prim_vf, patch_id_fp)
+                                                               eta, q_prim_vf, patch_id_fp)
         !$acc routine seq
 
         integer, intent(in) :: patch_id
@@ -282,7 +282,7 @@ contains
         !! @param q_prim_vf Primitive variables
         !! @param patch_id_fp Array to track patch ids
     impure subroutine s_assign_patch_species_primitive_variables(patch_id, j, k, l, &
-                                                          eta, q_prim_vf, patch_id_fp)
+                                                                 eta, q_prim_vf, patch_id_fp)
         !$acc routine seq
 
         integer, intent(in) :: patch_id

src/simulation/m_acoustic_src.fpp

@@ -338,7 +338,7 @@ contains
     !! @param frequency_local Frequency at the spatial location for sine and square waves
     !! @param gauss_sigma_time_local sigma in time for Gaussian pulse
     !! @param source Source term amplitude
-    pure  elemental subroutine s_source_temporal(sim_time, c, ai, term_index, frequency_local, gauss_sigma_time_local, source, sum_BB)
+    pure elemental subroutine s_source_temporal(sim_time, c, ai, term_index, frequency_local, gauss_sigma_time_local, source, sum_BB)
         !$acc routine seq
         integer, intent(in) :: ai, term_index
         real(wp), intent(in) :: sim_time, c, sum_BB

src/simulation/m_bubbles.fpp

@@ -314,7 +314,7 @@ contains
     !>  Subroutine that computes bubble wall properties for vapor bubbles
         !!  @param pb Internal bubble pressure
         !!  @param iR0 Current bubble size index
-      subroutine s_bwproperty(pb, iR0)
+    subroutine s_bwproperty(pb, iR0)
         !$acc routine seq
         real(wp), intent(in) :: pb
         integer, intent(in) :: iR0
@@ -335,7 +335,7 @@ contains
     !>  Function that computes the vapour flux
         !!  @param fR Current bubble radius
         !!  @param fV Current bubble velocity
-        !!  @param fpb 
+        !!  @param fpb
         !!  @param fmass_v Current mass of vapour
         !!  @param iR0 Bubble size index (EE) or bubble identifier (EL)
         !!  @param fmass_n Current gas mass (EL)
@@ -593,8 +593,8 @@ contains
         !!  @param fCson Speed of sound (EL)
         !!  @param h Time step size
     pure subroutine s_initial_substep_h(fRho, fP, fR, fV, fR0, fpb, fpbdot, alf, &
-                                   fntait, fBtait, f_bub_adv_src, f_divu, &
-                                   fCson, h)
+                                        fntait, fBtait, f_bub_adv_src, f_divu, &
+                                        fCson, h)
 #ifdef _CRAYFTN
         !DIR$ INLINEALWAYS s_initial_substep_h
 #else

src/simulation/m_bubbles_EL_kernels.fpp

@@ -387,7 +387,7 @@ contains
     !> The purpose of this procedure is to calculate the characteristic cell volume
             !! @param cell Computational coordinates (x, y, z)
             !! @param Charvol Characteristic volume
-    pure subroutine s_get_char_vol(cellx, celly, cellz, Charvol)
+    pure elemental subroutine s_get_char_vol(cellx, celly, cellz, Charvol)
 #ifdef _CRAYFTN
         !DIR$ INLINEALWAYS s_get_char_vol
 #else