Skip to content

Commit 65d51f8

Browse files
committed
Fix (SubDyn): remove incorrect comment about Fg
1 parent 4f1c845 commit 65d51f8

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

modules/subdyn/src/SubDyn_Output.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -532,7 +532,7 @@ SUBROUTINE CALC_NODE_FORCES(DIRCOS,Me,Ke,Udotdot,Y2 ,Fg, FirstOrSecond, FM_nod,
532532

533533
FM_glb = matmul(Me,Udotdot) ! GLOBAL REFERENCE
534534
FF_glb = matmul(Ke,Y2) ! GLOBAL REFERENCE
535-
FF_glb = FF_glb - Fg ! GLOBAL REFERENCE ! NOTE: Fg is now 0, only the "Kx" part in Fk
535+
FF_glb = FF_glb - Fg ! GLOBAL REFERENCE
536536
DO L=1,4 ! Transforming coordinates 3 at a time
537537
FM_elm((L-1)*3+1:L*3) = matmul(DIRCOS, FM_glb( (L-1)*3+1:L*3 ) )
538538
FF_elm((L-1)*3+1:L*3) = matmul(DIRCOS, FF_glb( (L-1)*3+1:L*3 ) )

0 commit comments

Comments
 (0)