Newer
Older
MODULE definitions
type structure
integer,dimension(:),pointer::octree
integer noctree,nnode,nleaves
integer nelemr,nlsf
double precision,dimension(:),pointer::x,y,z
Dave Whipp
committed
double precision,dimension(:),pointer::u,v,w,wiso,temp,pressure,strain
double precision,dimension(:),pointer::nodal_pressure,spressure
double precision,dimension(:),pointer::e2d,eviscosity
double precision,dimension(:),pointer::crit,dilatr
integer,dimension(:,:),pointer::icon,iconr
double precision,dimension(:,:),pointer:: lsf
integer,dimension(:),pointer::on(:),is_plastic,matnum
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
logical, dimension(:), pointer :: whole_leaf_in_fluid
end type structure
type sheet
integer nsurface,nt
double precision,dimension(:),pointer::r,s,x,y,z,xn,yn,zn,u,v,w
integer,dimension(:,:),pointer::icon
integer nhull,levelt,itype,material
end type sheet
END MODULE definitions
!==============================================================================!
!==============================================================================!
! |
! ||===\\ |
! || \\ |
! || || //==\\ || || //==|| ||/==\\ |
! || || || || || || || || || || |
! || // || || || || || || || |
! ||===// \\==// \\==\\ \\==\\ || |
! |
!==============================================================================!
!==============================================================================!
! |
! POST PROCESSING Apr. 2008 |
! |
!==============================================================================!
!==============================================================================!
program data_postprocessing
use definitions
implicit none
type (sheet),dimension(:),allocatable::surface
type(structure),SAVE :: ov
integer :: ie,mer,nn,ner,i,i1,i2,i3,i4,i5,kfx,kfy,kfz,kft
integer :: iunit,ilsf,nne,is,k,npcl,j,np,nl
integer :: output_u_field
integer :: output_v_field
integer :: output_w_field
integer :: output_velo_vect
integer :: output_preiso_velo_vect
integer :: output_press_fieldn
integer :: output_press_fielde
integer :: output_smooth_press_fielde
integer :: output_countnode_field
integer :: output_elem_matnum
integer :: output_e2d_fielde
integer :: output_e2d_fieldn
integer :: output_eviscosity_fielde
integer :: output_is_plastic_fielde
integer :: output_crit_field
integer :: output_strain_field
integer :: output_lsf_field
integer :: output_surface_icon
integer :: output_strain_tensor
integer :: output_ps
integer :: output_cubes
integer :: output_rivers
integer :: output_regular
integer iproc,nproc,ierr,nnn,nnne,nnnep,levelmax,ix,iy,iz,nlinks,iordermin
integer iconmin,iconmax
integer,dimension(:),allocatable::nstrain,donor,order
integer,dimension(:),allocatable::levs,li
integer,dimension(:),allocatable::invoid,elvoid,rtf,ftr
integer myicon(100),nstep,ndir,iter,ii,lsf,levmax
logical,dimension(:),allocatable::influid,do_it,subset_leaves,instrain
character clsf*3,c4*4,cc4*4,dir*128
double precision :: eps,dil,current_time,activation_time,zmin,xx,yy,zz,maxe2d,dist
double precision, allocatable, dimension (:) :: ov_nodee2d, ov_nodecrit
double precision, allocatable, dimension (:) :: countnode
Dave Whipp
committed
double precision,dimension(:,:),allocatable::s,n1,n2,n3,zisodisp
double precision,dimension(:,:,:),allocatable::strain,strainn
double precision,dimension(:),allocatable::xi,yi,zi,ui,vi,wi,si,ei
double precision,dimension(:),allocatable::s11,s12,s13,s22,s23,s33,str11,str12,str13,str22,str23,str33
double precision,dimension(:),allocatable::azimuth1,azimuth3,dip1,dip3
double precision zmax,dz,l1,l2,l3,n11,n12,n13,n21,n22,n23,n31,n32,n33,con,dxy
Dave Whipp
committed
double precision :: sselemx,sselemy,sselemz,xminls,yminls,zminls
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
integer icut
!==============================================================================!
!==============================================================================!
call system('clear')
nne=8
print*,'Enter directory (default is OUT)'
read (*,'(a)') dir
ndir=len_trim(dir)
if (ndir.eq.0) then
ndir=3
dir(1:ndir)='OUT'
endif
print*,'Enter time step >'
read*,nstep
write (c4,'(i4)') nstep
if (nstep.lt.1000) c4(1:1)='0'
if (nstep.lt.100) c4(1:2)='00'
if (nstep.lt.10) c4(1:3)='000'
print*,'Is it a debug file ? (y or n)'
read (*,'(a)') cs
select case (cs)
case ('y')
print*,'Which debug file: please enter grid iteration number'
read*,iter
write (cc4,'(i4)') iter
if (iter.lt.1000) cc4(1:1)='0'
if (iter.lt.100) cc4(1:2)='00'
if (iter.lt.10) cc4(1:3)='000'
case ('n')
print*,'it is not a debug file'
case default
print *,'error: please input y or n'
stop
end select
write (*,*) 'Is this a nested model? (y/n)'
read (*,'(a)') nestin
select case (trim(nestin))
case ('y','Y','yes','Yes')
nest=.true.
case ('n','N','no','No')
nest=.false.
case default
write (*,*) 'Error: Response must be either "y" or "n"'
stop
end select
!==============================================================================
!==============================================================================
write(*,*) '**************************************************************************'
write(*,*) '--------------------------------------------------------------------------'
write(*,*) '--------------------------------------------------------------------------'
write(*,*) '------------------- VTK file production in progress ----------------------'
write(*,*) '--------------------------------------------------------------------------'
write(*,*) '--------------------------------------------------------------------------'
if (cs=='y') then
write(*,*) 'output file to be processed: ', '../'//dir(1:ndir)//'/time_'//c4//'_'//cc4//'.bin'
open(unit=7,file='../'//dir(1:ndir)//'/time_'//c4//'_'//cc4//'.bin',status='old',form='unformatted')
else
write(*,*) 'output file to be processed: ', '../'//dir(1:ndir)//'/time_'//c4//'.bin'
open(unit=7,file='../'//dir(1:ndir)//'/time_'//c4//'.bin',status='old',form='unformatted')
end if
write(*,*) '--------------------------------------------------------------------------'
open(unit=77,file='input_of_outputs.txt',status='old')
read(77,*) output_u_field
read(77,*) output_v_field
read(77,*) output_w_field
read(77,*) output_velo_vect
read(77,*) output_preiso_velo_vect
read(77,*) output_press_fieldn
read(77,*) output_press_fielde
read(77,*) output_smooth_press_fielde
read(77,*) output_countnode_field
read(77,*) output_temp_field
read(77,*) output_elem_matnum
read(77,*) output_e2d_fielde
read(77,*) output_e2d_fieldn
read(77,*) output_eviscosity_fielde
read(77,*) output_is_plastic_fielde
Loading
Loading full blame...