clean parameters

Author: sbryngelson

src/common/m_helper.fpp

@@ -244,7 +244,7 @@ contains
     subroutine s_int_to_str(i, res)
 
         integer, intent(in) :: i
-        character(len=*), intent(out) :: res
+        character(len=*), intent(inout) :: res
 
         write (res, '(I0)') i
         res = trim(res)

src/common/m_variables_conversion.fpp

@@ -1081,7 +1081,7 @@ contains
         real(wp) :: dyn_pres
         real(wp) :: nbub, R3, vftmp, R3tmp
         real(wp), dimension(nb) :: Rtmp
-        real(wp) :: G = 0._wp
+        real(wp) :: G
         real(wp), dimension(2) :: Re_K
 
         integer :: i, j, k, l, q !< Generic loop iterators
@@ -1090,6 +1090,8 @@ contains
         real(wp), dimension(num_species) :: Ys
         real(wp) :: e_mix, mix_mol_weight, T
 
+        G = 0._wp
+
 #ifndef MFC_SIMULATION
         ! Converting the primitive variables to the conservative variables
         do l = 0, p

src/pre_process/m_data_output.fpp

@@ -831,7 +831,7 @@ contains
         ! Generic string used to store the address of a particular file
         character(LEN=len_trim(case_dir) + 2*name_len) :: file_loc
         character(len=15) :: temp
-        character(LEN=1), dimension(3) :: coord = (/'x', 'y', 'z'/)
+        character(LEN=1), dimension(3), parameter :: coord = (/'x', 'y', 'z'/)
 
         ! Generic logical used to check the existence of directories
         logical :: dir_check

src/pre_process/m_patches.fpp

@@ -1416,7 +1416,7 @@ contains
         integer :: i, j, k !< generic loop iterators
 
         real(wp) :: epsilon, beta
-        complex(wp) :: cmplx_i = (0._wp, 1._wp)
+        complex(wp), parameter :: cmplx_i = (0._wp, 1._wp)
         complex(wp) :: H
 
         ! Transferring the patch's centroid and radius information

src/simulation/m_data_output.fpp

@@ -110,7 +110,7 @@ contains
         !!      time-step.
     subroutine s_open_run_time_information_file
 
-        character(LEN=name_len) :: file_name = 'run_time.inf' !<
+        character(LEN=name_len), parameter :: file_name = 'run_time.inf' !<
             !! Name of the run-time information file
 
         character(LEN=path_len + name_len) :: file_path !<

src/simulation/m_hyperelastic.fpp

@@ -227,7 +227,7 @@ contains
         integer, intent(in) :: j, k, l
 
         real(wp) :: trace
-        real(wp) :: f13 = 1_wp/3_wp
+        real(wp), parameter :: f13 = 1._wp/3._wp
         integer :: i !< Generic loop iterators
 
         ! tensor is the symmetric tensor & calculate the trace of the tensor
@@ -266,7 +266,7 @@ contains
         integer, intent(in) :: j, k, l
 
         real(wp) :: trace
-        real(wp) :: f13 = 1_wp/3_wp
+        real(wp), parameter :: f13 = 1._wp/3._wp
         integer :: i !< Generic loop iterators
 
         !TODO Make this 1D and 2D capable

src/simulation/m_start_up.fpp

@@ -125,7 +125,7 @@ contains
     subroutine s_read_input_file
 
         ! Relative path to the input file provided by the user
-        character(LEN=name_len) :: file_path = './simulation.inp'
+        character(LEN=name_len), parameter :: file_path = './simulation.inp'
 
         logical :: file_exist !<
             !! Logical used to check the existence of the input file