shock_finder
Program
- program shock_finder2d
- Use :
- Call to:
read_surfaceinfo(),make_calc_body(),make_calc_internalboundary(),make_calc_externalboundary(),declare_facefactors(),fatal_error(),evaluate_facefactors(),evaluate_integral(),stop_it(),make_calc_3d_int_k_ki(),make_calc_3d_int_j_ji(),make_calc_3d_int_kj_kji(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_kj_kji(),offset_name()
Module
Quick access
- Variables:
area_elements,face_types,faces,ndimensions,nface_types,nfaces,normals,npoints,points,problem_dimensions,x_ghost,y_ghost,yextent,z_ghost
Variables
- surfacedata/area_elements (*) [character,allocatable]
- surfacedata/face_types (*) [integer,allocatable]
- surfacedata/faces (*) [integer,allocatable]
- surfacedata/ndimensions [integer,optional/default=2]
- surfacedata/nface_types [integer,optional/default=2]
- surfacedata/nfaces [integer,optional/default=8]
- surfacedata/normals (*,*) [integer,allocatable]
- surfacedata/npoints [integer,optional/default=16]
- surfacedata/points (*,*) [integer,allocatable]
- surfacedata/problem_dimensions [integer,optional/default=2]
- surfacedata/x_ghost [integer,optional/default=0]
- surfacedata/xextent [logical,optional/default=.false.]
- surfacedata/y_ghost [integer,optional/default=0]
- surfacedata/yextent [logical,optional/default=.false.]
- surfacedata/z_ghost [integer,optional/default=0]
- surfacedata/zextent [logical,optional/default=.false.]
Subroutines and functions
- subroutine surfacedata/make_calc_body(unitno)
- Parameters:
unitno [integer]
- Use :
- Call to:
declare_facefactors(),fatal_error(),evaluate_facefactors(),evaluate_integral(),stop_it(),make_calc_3d_int_k_ki(),make_calc_3d_int_j_ji(),make_calc_3d_int_kj_kji(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_kj_kji(),offset_name()
- subroutine surfacedata/make_calc_3d_int_j_ji(unitno)
- Parameters:
unitno [integer]
- Use :
- Called from:
make_calc_3d_int_j_ji(),make_calc_3d_int_k_ki(),make_calc_3d_int_kj_kji(),shock_finder2d- Call to:
declare_facefactors(),evaluate_facefactors(),evaluate_integral(),stop_it(),make_calc_3d_int_k_ki(),make_calc_3d_int_j_ji(),make_calc_3d_int_kj_kji(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_kj_kji(),offset_name()
- subroutine surfacedata/make_calc_3d_int_k_ki(unitno)
- Parameters:
unitno [integer]
- Use :
- Called from:
make_calc_3d_int_j_ji(),make_calc_3d_int_k_ki(),make_calc_3d_int_kj_kji(),shock_finder2d- Call to:
declare_facefactors(),evaluate_facefactors(),evaluate_integral(),stop_it(),make_calc_3d_int_k_ki(),make_calc_3d_int_j_ji(),make_calc_3d_int_kj_kji(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_kj_kji(),offset_name()
- subroutine surfacedata/make_calc_3d_int_kj_kji(unitno, k)
- Parameters:
unitno [integer]
k [integer]
- Use :
- Called from:
make_calc_3d_int_j_ji(),make_calc_3d_int_k_ki(),make_calc_3d_int_kj_kji(),shock_finder2d- Call to:
declare_facefactors(),evaluate_facefactors(),evaluate_integral(),stop_it(),make_calc_3d_int_k_ki(),make_calc_3d_int_j_ji(),make_calc_3d_int_kj_kji(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_kj_kji(),offset_name()
- subroutine surfacedata/make_calc_internalboundary(unitno)
- Parameters:
unitno [integer]
- Use :
- Call to:
declare_facefactors(),evaluate_facefactors(),evaluate_integral(),stop_it(),make_calc_3d_int_k_ki(),make_calc_3d_int_j_ji(),make_calc_3d_int_kj_kji(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_kj_kji(),offset_name()
- subroutine surfacedata/make_calc_3d_ext_j_ji(unitno)
- Parameters:
unitno [integer]
- Use :
- Called from:
make_calc_3d_int_j_ji(),make_calc_3d_int_k_ki(),make_calc_3d_int_kj_kji(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_kj_kji(),shock_finder2d- Call to:
declare_facefactors(),evaluate_facefactors(),evaluate_integral(),stop_it(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_kj_kji(),offset_name()
- subroutine surfacedata/make_calc_3d_ext_k_ki(unitno)
- Parameters:
unitno [integer]
- Use :
- Called from:
make_calc_3d_int_j_ji(),make_calc_3d_int_k_ki(),make_calc_3d_int_kj_kji(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_kj_kji(),shock_finder2d- Call to:
declare_facefactors(),evaluate_facefactors(),evaluate_integral(),stop_it(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_kj_kji(),offset_name()
- subroutine surfacedata/make_calc_3d_ext_kj_kji(unitno, k)
- Parameters:
unitno [integer]
k [integer]
- Use :
- Called from:
make_calc_3d_int_j_ji(),make_calc_3d_int_k_ki(),make_calc_3d_int_kj_kji(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_kj_kji(),shock_finder2d- Call to:
declare_facefactors(),evaluate_facefactors(),evaluate_integral(),stop_it(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_kj_kji(),offset_name()
- subroutine surfacedata/make_calc_externalboundary(unitno)
- Parameters:
unitno [integer]
- Use :
- Call to:
declare_facefactors(),evaluate_facefactors(),evaluate_integral(),stop_it(),make_calc_3d_ext_k_ki(),make_calc_3d_ext_j_ji(),make_calc_3d_ext_kj_kji(),offset_name()
- subroutine surfacedata/evaluate_facefactors(unitno, rotation)
- Parameters:
unitno [integer]
rotation [integer]
- Use :
- Call to:
- subroutine surfacedata/declare_facefactors(unitno)
- Parameters:
unitno [integer]
- Use :
- Call to:
- subroutine surfacedata/offset_name(vname, offset, offname)
- Parameters:
vname [character,inout]
offset [integer,in]
offname [character,inout]
- Call to:
- subroutine surfacedata/evaluate_integral(unitno, rotation, imin, imax, jmin, jmax, kmin, kmax, intname, iname, jname, kname)
- Parameters:
unitno [integer]
rotation [integer]
imin [integer]
imax [integer]
jmin [integer]
jmax [integer]
kmin [integer]
kmax [integer]
intname [character]
iname [character]
jname [character]
kname [character]
- Use :
- Call to:
- subroutine surfacedata/read_surfaceinfo()
- Use :