We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 7051855 commit 8067087Copy full SHA for 8067087
src/simulation/m_ibm.fpp
@@ -1065,8 +1065,6 @@ contains
1065
patch_ib(i)%torque(:) = matmul(patch_ib(i)%rotation_matrix_inverse, torques(i, :)) ! torques must be computed in the local coordinates of the IB
1066
end do
1067
1068
- print *, forces(1, 1:2)
1069
-
1070
end subroutine s_compute_ib_forces
1071
1072
!> Subroutine to deallocate memory reserved for the IBM module
@@ -1150,7 +1148,6 @@ contains
1150
1148
end subroutine s_compute_moment_of_inertia
1151
1149
1152
function cross_product(a, b) result(c)
1153
- implicit none
1154
real(wp), intent(in) :: a(3), b(3)
1155
real(wp) :: c(3)
1156
0 commit comments