Skip to content

Commit e214f26

Browse files
committed
fix lint and format
1 parent fa9e724 commit e214f26

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

src/pre_process/m_initial_condition.fpp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -150,8 +150,8 @@ contains
150150
end do
151151
end do
152152
end if
153-
end if
154-
153+
end if
154+
155155
! Initial damage state is always zero
156156
if (cont_damage) then
157157
q_cons_vf(damage_idx)%sf = 0._wp

src/simulation/m_sim_helpers.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -270,7 +270,7 @@ end subroutine s_compute_dt_from_cfl
270270

271271
subroutine s_assign_default_bc_type(bc_type)
272272

273-
type(integer_field), dimension(1:num_dims, -1:1) :: bc_type
273+
type(integer_field), dimension(1:num_dims, -1:1), intent(in) :: bc_type
274274

275275
bc_type(1, -1)%sf(:, :, :) = bc_x%beg
276276
bc_type(1, 1)%sf(:, :, :) = bc_x%end

0 commit comments

Comments
 (0)