more intent

Author: sbryngelson

src/pre_process/m_compute_levelset.fpp

@@ -261,7 +261,7 @@ contains
         type(levelset_field), intent(INOUT) :: levelset
         type(levelset_norm_field), intent(INOUT) :: levelset_norm
 
-        integer :: ib_patch_id
+        integer, intent(in) :: ib_patch_id
         real(wp) :: top_right(2), bottom_left(2)
         real(wp) :: x, y, min_dist
         real(wp) :: side_dists(4)

src/pre_process/m_model.fpp

@@ -709,7 +709,7 @@ contains
         integer, intent(inout) :: edge_index !< Edge index iterator
         integer, intent(inout) :: edge_count !< Total number of edges
         real(wp), intent(in), dimension(1:2, 1:2) :: edge !< Edges end points to be registered
-        real(wp), dimension(1:edge_count, 1:2, 1:2) :: temp_boundary_v !< Temporary edge end vertex buffer
+        real(wp), dimension(1:edge_count, 1:2, 1:2), intent(inout) :: temp_boundary_v !< Temporary edge end vertex buffer
 
         ! Increment edge index and store the edge
         edge_index = edge_index + 1
@@ -804,7 +804,10 @@ contains
         t_vec3, intent(in) :: spacing
         real(wp), allocatable, intent(inout), dimension(:, :) :: interpolated_boundary_v
 
-        integer :: i, j, num_segments, total_vertices, boundary_edge_count
+        integer, intent(inout) :: total_vertices, boundary_edge_count
+        integer :: num_segments
+        integer :: i, j
+
         real(wp) :: edge_length, cell_width
         real(wp), dimension(1:2) :: edge_x, edge_y, edge_del
         real(wp), allocatable :: temp_boundary_v(:, :)

src/pre_process/m_patches.fpp

@@ -1406,7 +1406,7 @@ contains
 
         integer, intent(IN) :: patch_id
         integer, intent(INOUT), dimension(0:m, 0:n, 0:p) :: patch_id_fp
-        type(scalar_field), dimension(1:sys_size) :: q_prim_vf
+        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
 
         real(wp) :: r, x_p, eps, phi
         real(wp), dimension(2:9) :: as, Ps

src/pre_process/m_perturbation.fpp

@@ -223,7 +223,7 @@ contains
     subroutine s_instability_wave(alpha, beta, wave, shift)
         real(wp), intent(in) :: alpha, beta !<  spatial wavenumbers
         real(wp), dimension(mixlayer_nvar, 0:m, 0:n, 0:p), intent(inout) :: wave !< instability wave
-        real(wp) :: shift !< phase shift
+        real(wp), intent(in) :: shift !< phase shift
         real(wp), dimension(0:nbp - 1) :: u_mean !<  mean density and velocity profiles
         real(wp) :: rho_mean, p_mean !< mean density and pressure
         real(wp), dimension(0:nbp - 1, 0:nbp - 1) :: d !< differential operator in y dir