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

Working changes to slip_plane code

Browse source
This commit is contained in:
Alex Selimov 2020-10-23 14:13:35 -04:00
parent 3e140df1a9
commit b5629b1563
5 changed files with 27 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/mode_create.f90
View file

@ -528,7 +528,7 @@ module mode_create
do i = 1, 3
filzero(i) = bd_ele_lat(2*i-1) -1
end do
do while(efill_size>9)
do while(efill_size>min_efillsize)
!First check whether there are enough lattice points to house the current element size
efill_ele=cubic_cell*(efill_size-1)
if (nump_ele < efill_size**3) then