last intent

Author: sbryngelson

src/simulation/m_bubbles_EL.fpp

@@ -401,7 +401,7 @@ contains
         !! @param save_count File identifier
     subroutine s_restart_bubbles(bub_id, save_count)
 
-        integer :: bub_id, save_count
+        integer, intent(inout) :: bub_id, save_count
 
         character(LEN=path_len + 2*name_len) :: file_loc
 
@@ -1460,7 +1460,7 @@ contains
     function particle_in_domain(pos_part)
 
         logical :: particle_in_domain
-        real(wp), dimension(3) :: pos_part
+        real(wp), dimension(3), intent(in) :: pos_part
 
         ! 2D
         if (p == 0 .and. cyl_coord .neqv. .true.) then
@@ -1513,7 +1513,7 @@ contains
     function particle_in_domain_physical(pos_part)
 
         logical :: particle_in_domain_physical
-        real(wp), dimension(3) :: pos_part
+        real(wp), dimension(3), intent(in) :: pos_part
 
         particle_in_domain_physical = ((pos_part(1) < x_cb(m)) .and. (pos_part(1) >= x_cb(-1)) .and. &
                                        (pos_part(2) < y_cb(n)) .and. (pos_part(2) >= y_cb(-1)))
@@ -1589,7 +1589,7 @@ contains
         !!  @param q_time Current time
     subroutine s_write_lag_particles(qtime)
 
-        real(wp) :: qtime
+        real(wp), intent(in) :: qtime
         integer :: k
 
         character(LEN=path_len + 2*name_len) :: file_loc
@@ -1631,7 +1631,8 @@ contains
             !!  @param q_time Current time
     subroutine s_write_void_evol(qtime)
 
-        real(wp) :: qtime, volcell, voltot
+        real(wp), intent(in) :: qtime
+        real(wp) :: volcell, voltot
         real(wp) :: lag_void_max, lag_void_avg, lag_vol
         real(wp) :: void_max_glb, void_avg_glb, vol_glb
 
@@ -1704,11 +1705,12 @@ contains
     subroutine s_write_restart_lag_bubbles(t_step)
 
         ! Generic string used to store the address of a particular file
+        integer, intent(in) :: t_step
+
         character(LEN=path_len + 2*name_len) :: file_loc
         logical :: file_exist
-
-        integer :: i, k, t_step
         integer :: bub_id, tot_part, tot_part_wrtn, npart_wrtn
+        integer :: i, k
 
 #ifdef MFC_MPI
         ! For Parallel I/O

src/simulation/m_qbmm.fpp

@@ -823,7 +823,7 @@ contains
         real(wp), dimension(startx:, starty:, startz:, 1:, 1:), intent(inout) :: pb, rhs_pb
         real(wp), dimension(startx:, starty:, startz:, 1:, 1:), intent(inout) :: mv, rhs_mv
         type(int_bounds_info), intent(in) :: ix, iy, iz
-        real(wp), dimension(startx:, starty:, startz:) :: nbub_sc !> Unused Variable not sure what to put as intent
+        real(wp), dimension(startx:, starty:, startz:), intent(inout) :: nbub_sc
 
         real(wp), dimension(nmom) :: moms, msum
         real(wp), dimension(nnode, nb) :: wght, abscX, abscY, wght_pb, wght_mv, wght_ht, ht

src/simulation/m_surface_tension.fpp

@@ -70,7 +70,7 @@ contains
                                               flux_src_vf, &
                                               id, isx, isy, isz)
 
-        type(scalar_field), dimension(sys_size) :: q_prim_vf !> unused so unsure what intent to give it
+        type(scalar_field), dimension(sys_size), intent(in) :: q_prim_vf
         real(wp), dimension(-1:, 0:, 0:, 1:), intent(in) :: vSrc_rsx_vf
         real(wp), dimension(-1:, 0:, 0:, 1:), intent(in) :: vSrc_rsy_vf
         real(wp), dimension(-1:, 0:, 0:, 1:), intent(in) :: vSrc_rsz_vf