aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Working changes to boundary command

Browse source
This commit is contained in:
Alex Selimov 2020-03-05 16:19:30 -05:00
parent 80c931d77a
commit 0ad06a2d6b
6 changed files with 19 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/subroutines.f90
View file

@ -230,11 +230,13 @@ module subroutines
integer :: j
real(kind=dp) ::box_len
do j = 1, 3
box_len = box_bd(2*j) - box_bd(2*j-1)
if (r(j) > box_bd(2*j)) then
r(j) = r(j) - box_len
else if (r(j) < box_bd(2*j-1)) then
r(j) = r(j) + box_len
if(box_bc(j:j) == 'p') then
box_len = box_bd(2*j) - box_bd(2*j-1)
if (r(j) > box_bd(2*j)) then
r(j) = r(j) - box_len
else if (r(j) < box_bd(2*j-1)) then
r(j) = r(j) + box_len
end if
end if
end do
end subroutine