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,yield_ratio,frict_angle
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_yield_ratio_fielde
integer :: output_frict_angle_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
character*8 vernum,input_vernum,output_vernum
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
double precision :: sselemx,sselemy,sselemz,xminls,yminls,zminls,usum,vsum,wsum
double precision :: uvwsum,disp,wmod
integer icut
!==============================================================================!
!==============================================================================!
call system('clear')
nne=8
! Post-processor version number
vernum='0.2a'
write (*,'(a)') '!------------------------------------------------------------------------------|'
write (*,'(a)') '!------------------------------------------------------------------------------|'
write (*,'(a)') '! |'
write (*,'(a)') '! 8888888b. .d88888b. 888 888 d8888 8888888b. |'
write (*,'(a)') '! 888 "Y88b d88P" "Y88b 888 888 d88888 888 Y88b |'
write (*,'(a)') '! 888 888 888 888 888 888 d88P888 888 888 |'
write (*,'(a)') '! 888 888 888 888 888 888 d88P 888 888 d88P |'
write (*,'(a)') '! 888 888 888 888 888 888 d88P 888 8888888P" |'
write (*,'(a)') '! 888 888 888 888 888 888 d88P 888 888 T88b |'
write (*,'(a)') '! 888 .d88P Y88b. .d88P Y88b. .d88P d8888888888 888 T88b |'
write (*,'(a)') '! 8888888P" "Y88888P" "Y88888P" d88P 888 888 T88b |'
write (*,'(a)') '! |'
write(*,'(a,a8,a)') '! DOUAR-WSMP version post-processor version ', vernum,' |'
write (*,'(a)') '!------------------------------------------------------------------------------|'
write (*,'(a)') '!------------------------------------------------------------------------------|'
write (*,'(a)') 'Enter directory name containing DOUAR output.'
write (*,'(a)') 'NOTE: The Directory name should be relative to the directory one level above'
write (*,'(a)') 'the working directory. The default value is "OUT" (i.e., "../OUT")'
write (*,'(a)') 'Output directory: '
read (*,'(a)') dir
ndir=len_trim(dir)
if (ndir.eq.0) then
ndir=3
dir(1:ndir)='OUT'
endif
write (*,'(a)') 'Output 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'
write (*,'(a)') 'Is the output a debug file? (y or n)'
read (*,'(a)') cs
select case (cs)
case ('y')
write (*,'(a)') 'Debug file 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')
write (*,'(a)') 'Output file is not a debug file.'
write (*,'(a)') 'Error: Response must be either "y" or "n". Please rerun the post-processor.'
write (*,'(a)') 'Is this a nested model? (y or 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 (*,'(a)') 'Error: Response must be either "y" or "n"'
!==============================================================================
!==============================================================================
write(*,'(a)') ''
write(*,'(a)') '**************************************************************************'
write(*,'(a)') '--------------------------------------------------------------------------'
write(*,'(a)') '--------------------------------------------------------------------------'
write(*,'(a)') '------------------- VTK file production in progress ----------------------'
Loading
Loading full blame...