Working changes to boundary command

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

View file

@ -6,6 +6,7 @@ module box
real(kind=dp) :: box_bd(6) !Global box boundaries
character(len=3) :: box_bc !Box boundary conditions (periodic or shrinkwrapped)
logical :: bound_called
!The subbox variables contain values for each subbox, being the boxes read in through some
!command. Currently only mode_merge will require sub_boxes, for mode_create it will always
!allocate to only 1 sub_box
@ -27,6 +28,7 @@ module box
!Initialize some box functions
box_bd(:) = 0.0_dp
box_bc = 'ppp'
bound_called=.false.
end subroutine box_init
subroutine alloc_sub_box(n)