Skip to content

Commit c0d288c

Browse files
committed
fix format
1 parent 8e0ad3e commit c0d288c

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/simulation/m_ibm.fpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1127,7 +1127,7 @@ contains
11271127
viscous_stress_div(3, 1:3) = (viscous_stress_div_2(3, 1:3) - viscous_stress_div_1(3, 1:3))/(2._wp*dz) ! get z derivative of the second-row of viscous stress tensor
11281128
local_force_contribution(1:3) = local_force_contribution(1:3) + viscous_stress_div(3, 1:3) ! add the z components of the divergence to the force
11291129
end if
1130-
1130+
11311131
end if
11321132

11331133
call s_cross_product(radial_vector, local_force_contribution, local_torque_contribution)

0 commit comments

Comments
 (0)