194 lines
5.4 KiB
Fortran
194 lines
5.4 KiB
Fortran
|
! This program generates a micro-strucutre mask and applies it to
|
||
|
|
! an existing mesh.
|
||
|
|
! J.Grogan 05/08/11
|
||
|
|
program Voronoi3DPost
|
||
|
|
!
|
||
|
|
! Parameters
|
||
|
|
parameter(max_elements=100000,max_cells=20000,max_fc=100)
|
||
|
|
parameter(max_elem_in_cell=50000,max_neigh_per_elem=6,max_neighbours=50)
|
||
|
|
!
|
||
|
|
! Variables
|
||
|
|
character(len=256)input
|
||
|
|
character(len=256)input2(2)
|
||
|
|
integer num_neighbours(100000),neighbour(100000,max_neighbours)
|
||
|
|
real nbr_dist(100000,max_neighbours)
|
||
|
|
real cor_faces(100000,3),cor_dist(100000)
|
||
|
|
double precision,allocatable,dimension(:,:)::ele_centroid
|
||
|
|
!
|
||
|
|
allocate(ele_centroid(max_elements,3))
|
||
|
|
mesh_type=3
|
||
|
|
call elem_centroids(num_elements,ele_centroid,mesh_type)
|
||
|
|
rmax_dist=0.020
|
||
|
|
neighbour=0
|
||
|
|
!
|
||
|
|
! Get neighbouring elements
|
||
|
|
do i=1,num_elements
|
||
|
|
icount=1
|
||
|
|
do j=1,num_elements
|
||
|
|
if(icount>max_neighbours)then
|
||
|
|
rmaxdist=0.
|
||
|
|
do k=1,max_neighbours
|
||
|
|
if(nbr_dist(i,k)>rmaxdist)then
|
||
|
|
rmaxdist=nbr_dist(i,k)
|
||
|
|
index_max_dist=k
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
endif
|
||
|
|
cent1x=ele_centroid(i,1)
|
||
|
|
cent1y=ele_centroid(i,2)
|
||
|
|
cent1z=ele_centroid(i,3)
|
||
|
|
cent2x=ele_centroid(j,1)
|
||
|
|
cent2y=ele_centroid(j,2)
|
||
|
|
cent2z=ele_centroid(j,3)
|
||
|
|
dist=sqrt((cent1x-cent2x)*(cent1x-cent2x)+(cent1y-cent2y)*(cent1y-cent2y)&
|
||
|
|
&+(cent1z-cent2z)*(cent1z-cent2z))
|
||
|
|
if(icount>max_neighbours)then
|
||
|
|
if(dist<rmaxdist)then
|
||
|
|
nbr_dist(i,index_max_dist)=dist
|
||
|
|
neighbour(i,index_max_dist)=j
|
||
|
|
endif
|
||
|
|
else
|
||
|
|
nbr_dist(i,j)=dist
|
||
|
|
neighbour(i,j)=j
|
||
|
|
endif
|
||
|
|
icount=icount+1
|
||
|
|
enddo
|
||
|
|
! print *,float(i)/float(num_elements)
|
||
|
|
enddo
|
||
|
|
!
|
||
|
|
! Get corrosion surface distances
|
||
|
|
open(unit=20,file='CorSurf.dat',status='unknown')
|
||
|
|
read(20,*)num_faces
|
||
|
|
ierr=0
|
||
|
|
num_faces=1
|
||
|
|
do while (ierr==0)
|
||
|
|
read(20,*,iostat=ierr)cor_faces(num_faces,1),cor_faces(num_faces,2),&
|
||
|
|
&cor_faces(num_faces,3)
|
||
|
|
if(ierr==0)num_faces=num_faces+1
|
||
|
|
enddo
|
||
|
|
close(unit=20)
|
||
|
|
do i=1,num_elements
|
||
|
|
centx=ele_centroid(i,1)
|
||
|
|
centy=ele_centroid(i,2)
|
||
|
|
centz=ele_centroid(i,3)
|
||
|
|
distmin=1000.
|
||
|
|
do j=1,num_faces-1
|
||
|
|
facex=cor_faces(j,1)
|
||
|
|
facey=cor_faces(j,2)
|
||
|
|
facez=cor_faces(j,3)
|
||
|
|
dist=sqrt((centx-facex)*(centx-facex)+(centy-facey)*(centy-facey)&
|
||
|
|
&+(centz-facez)*(centz-facez))
|
||
|
|
if(dist<distmin)distmin=dist
|
||
|
|
enddo
|
||
|
|
cor_dist(i)=distmin
|
||
|
|
enddo
|
||
|
|
! Write New Input File
|
||
|
|
rewind(10)
|
||
|
|
open(unit=13,file='Corrosion.inp',status='unknown')
|
||
|
|
input2(1)='**'
|
||
|
|
do while (index(input2(1),'*End Assembly')==0)
|
||
|
|
read(10,'(a)')input2(2)
|
||
|
|
write(13,'(a)')input2(1)
|
||
|
|
input2(1)=input2(2)
|
||
|
|
enddo
|
||
|
|
write(13,'(a)')'*End Assembly'
|
||
|
|
write(13,*)'*INITIAL CONDITIONS,TYPE=SOLUTION'
|
||
|
|
do i=1,num_elements
|
||
|
|
write(13,'(3(a,i6),2(a,f18.6),3(i6,a))')'Assembly.CorPart.',i,',',i,',',&
|
||
|
|
& max_neighbours,',',0.,',',cor_dist(i),0,',',0,',',0,','
|
||
|
|
write(13,'(8(i6,a))')0,',',0,',',0,',',0,',',0,',',0,',',0,',',1,','
|
||
|
|
do j=1, max_neighbours
|
||
|
|
if(mod(j,8)/=0)then
|
||
|
|
if(j/=max_neighbours)then
|
||
|
|
write(13,'(i6,a)',advance='no')neighbour(i,j),','
|
||
|
|
else
|
||
|
|
write(13,'(i6)')neighbour(i,j)
|
||
|
|
endif
|
||
|
|
else
|
||
|
|
if(j/=max_neighbours)then
|
||
|
|
write(13,'(i6,a)')neighbour(i,j),','
|
||
|
|
else
|
||
|
|
write(13,'(i6)')neighbour(i,j)
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
ierr=0
|
||
|
|
do while (ierr==0)
|
||
|
|
read(10,'(a)',iostat=ierr)input2(1)
|
||
|
|
if(ierr==0)write(13,'(a)')input2(1)
|
||
|
|
enddo
|
||
|
|
end program
|
||
|
|
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||
|
|
! Get Element Centroids
|
||
|
|
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||
|
|
subroutine elem_centroids(ne,ele_centroid,mesh_type)
|
||
|
|
!
|
||
|
|
! Parameters
|
||
|
|
parameter(max_nodes=1000000,max_elements=100000,max_node_in_elem=8)
|
||
|
|
!
|
||
|
|
! Variables
|
||
|
|
character(len=256)input
|
||
|
|
integer,dimension(max_elements,max_node_in_elem)::elements
|
||
|
|
double precision,dimension(max_nodes,3)::nodes
|
||
|
|
double precision,dimension(max_elements,3)::ele_centroid
|
||
|
|
!
|
||
|
|
! Open Input File and read node and element co-ordinates
|
||
|
|
open(unit=10,file='Corrosion_Temp.inp',status='unknown')
|
||
|
|
do while (index(input,'*Node')==0)
|
||
|
|
read(10,'(a)')input
|
||
|
|
end do
|
||
|
|
nn=0
|
||
|
|
do while(1==1)
|
||
|
|
read(10,'(a)')input
|
||
|
|
if(index(input,'*')==0)then
|
||
|
|
backspace(10)
|
||
|
|
nn=nn+1
|
||
|
|
if(mesh_type==3)then
|
||
|
|
read(10,*)dummy,nodes(nn,1),nodes(nn,2),nodes(nn,3)
|
||
|
|
else
|
||
|
|
read(10,*)dummy,nodes(nn,1),nodes(nn,2)
|
||
|
|
endif
|
||
|
|
else
|
||
|
|
if(mesh_type==2)then
|
||
|
|
nele_type=4
|
||
|
|
else
|
||
|
|
if(index(input,'C3D8')/=0)nele_type=8
|
||
|
|
if(index(input,'C3D4')/=0)nele_type=4
|
||
|
|
endif
|
||
|
|
exit
|
||
|
|
endif
|
||
|
|
end do
|
||
|
|
ne=0
|
||
|
|
do while(1==1)
|
||
|
|
read(10,'(a)')input
|
||
|
|
if(index(input,'*')==0)then
|
||
|
|
backspace(10)
|
||
|
|
ne=ne+1
|
||
|
|
if(nele_type==8)then
|
||
|
|
read(10,*)dummy,elements(ne,1),elements(ne,2),elements(ne,3),elements(ne,4)&
|
||
|
|
& ,elements(ne,5),elements(ne,6),elements(ne,7),elements(ne,8)
|
||
|
|
elseif(nele_type==4)then
|
||
|
|
read(10,*)dummy,elements(ne,1),elements(ne,2),elements(ne,3),elements(ne,4)
|
||
|
|
endif
|
||
|
|
else
|
||
|
|
exit
|
||
|
|
endif
|
||
|
|
end do
|
||
|
|
!
|
||
|
|
! Get element centroid
|
||
|
|
do i=1,ne
|
||
|
|
centroidx=0.d0
|
||
|
|
centroidy=0.d0
|
||
|
|
centroidz=0.d0
|
||
|
|
do j=1,nele_type
|
||
|
|
centroidx=centroidx+nodes(elements(i,j),1)
|
||
|
|
centroidy=centroidy+nodes(elements(i,j),2)
|
||
|
|
if(mesh_type==3)centroidz=centroidz+nodes(elements(i,j),3)
|
||
|
|
enddo
|
||
|
|
ele_centroid(i,1)=centroidx/float(nele_type)
|
||
|
|
ele_centroid(i,2)=centroidy/float(nele_type)
|
||
|
|
if(mesh_type==3)ele_centroid(i,3)=centroidz/float(nele_type)
|
||
|
|
enddo
|
||
|
|
end subroutine
|