Final cleanup changes

Author: Anand

src/common/m_phase_change.fpp

@@ -299,11 +299,7 @@ contains
         ! initializing variables
         integer, intent(in) :: j, k, l, MFL
         real(wp), intent(out) :: pS
-        #:if not MFC_CASE_OPTIMIZATION and USING_AMD
-            real(wp), dimension(3), intent(out) :: p_infpT
-        #:else
-            real(wp), dimension(num_fluids), intent(out) :: p_infpT
-        #:endif
+        real(wp), dimension(1:), intent(out) :: p_infpT
         type(scalar_field), dimension(sys_size), intent(in) :: q_cons_vf
         real(wp), intent(in) :: rhoe
         real(wp), intent(out) :: TS
@@ -417,11 +413,7 @@ contains
 
         integer, intent(in) :: j, k, l
         real(wp), intent(inout) :: pS
-        #:if not MFC_CASE_OPTIMIZATION and USING_AMD
-            real(wp), dimension(3), intent(in) :: p_infpT
-        #:else
-            real(wp), dimension(num_fluids), intent(in) :: p_infpT
-        #:endif
+        real(wp), dimension(1:), intent(in) :: p_infpT
         real(wp), intent(in) :: rhoe
         type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf
         real(wp), intent(inout) :: TS

src/simulation/m_bubbles_EL.fpp

@@ -789,6 +789,7 @@ contains
         #:endif
         integer :: i
 
+        vel(:) = 0._wp
         $:GPU_LOOP(parallelism='[seq]')
         do i = 1, num_dims
             vel(i) = q_prim_vf(i + contxe)%sf(cell(1), cell(2), cell(3))

src/simulation/m_hyperelastic.fpp

@@ -99,7 +99,7 @@ contains
         type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf
         type(scalar_field), dimension(sys_size), intent(inout) :: q_prim_vf
         #:if USING_AMD
-            real(wp), dimension(9) :: tensora, tensorb
+            real(wp), dimension(10) :: tensora, tensorb
         #:else
             real(wp), dimension(tensor_size) :: tensora, tensorb
         #:endif