Skip to content
Snippets Groups Projects
Commit 5d7828fe authored by Dave Whipp's avatar Dave Whipp
Browse files

Fixed comment typos

parent 47c704dc
No related branches found
No related tags found
No related merge requests found
...@@ -144,7 +144,7 @@ amin=1.d6 ...@@ -144,7 +144,7 @@ amin=1.d6
do ileaves=1,osolve%nleaves do ileaves=1,osolve%nleaves
! first test if in the void ! first test if in the void
if (vo%leaf(ileaves).eq.0) then if (vo%leaf(ileaves).eq.0) then
! then test if this leaf touches the colums given to the current proc ! then test if this leaf touches the columns given to the current proc
itodo=0 itodo=0
do k=1,params%mpe do k=1,params%mpe
do idof=1,ndof do idof=1,ndof
......
...@@ -226,7 +226,7 @@ do while (sum(done_nd).ne.0) ...@@ -226,7 +226,7 @@ do while (sum(done_nd).ne.0)
! note that we average the value of the lsf around the nodes of the leaf ! note that we average the value of the lsf around the nodes of the leaf
! to find the sign of the nodes that have not yet been assigned ! to find the sign of the nodes that have not yet been assigned
! the reason for this is that there might be leaves where the surface is ! the reason for this is that there might be leaves where the surface is
! passing through but where no particle resides; these leaes would have ! passing through but where no particle resides; these leaves would have
! lsf values of different sign on different nodes from the previous two passes ! lsf values of different sign on different nodes from the previous two passes
! this should never happen... ! this should never happen...
sum_lsf=0.d0 sum_lsf=0.d0
......
...@@ -22,9 +22,8 @@ subroutine find_void_nodes (params,osolve,vo,ov,threadinfo) ...@@ -22,9 +22,8 @@ subroutine find_void_nodes (params,osolve,vo,ov,threadinfo)
!------------------------------------------------------------------------------| !------------------------------------------------------------------------------|
!(((((((((((((((( Purpose of the routine )))))))))))))))))))))))))))))))))))))) !(((((((((((((((( Purpose of the routine ))))))))))))))))))))))))))))))))))))))
!------------------------------------------------------------------------------| !------------------------------------------------------------------------------|
! this routine finds all nodes that are cmpletely in the void ! this routine finds all nodes that are completely in the void by this I mean
! by this I mean that they are not connected by any element to ! that they are not connected by any element to a node that is not in the void
! a node that is not in the void
! those nodes are given a vo%node=1 flag; all others have vo%node=0 ! those nodes are given a vo%node=1 flag; all others have vo%node=0
! there are vo%nnode nodes that are not in the void ! there are vo%nnode nodes that are not in the void
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment