shock_finder_comm_uu

Program

program  shock_finder3d

Use :

cparam, surfacedata

Call to:

read_surfaceinfo(), make_calc_body(), make_calc_internalboundary(), make_calc_externalboundary(), declare_facefactors(), fatal_error(), evaluate_facefactors(), evaluate_integral(), stop_it(), 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 :

cparam

Called from:

shock_finder2d, shock_finder3d

Call to:

declare_facefactors(), fatal_error(), evaluate_facefactors(), evaluate_integral(), stop_it(), offset_name()

subroutine  surfacedata/make_calc_internalboundary(unitno)

Parameters:

unitno [integer]

Use :

cparam

Called from:

shock_finder2d, shock_finder3d

Call to:

stop_it(), offset_name()

subroutine  surfacedata/make_calc_externalboundary(unitno)

Parameters:

unitno [integer]

Use :

cparam

Called from:

shock_finder2d, shock_finder3d

Call to:

stop_it(), offset_name()

subroutine  surfacedata/evaluate_facefactors(unitno, rotation)

Parameters:

• unitno [integer]

• rotation [integer]

Use :

surfacedata

Called from:

make_calc_body(), 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, shock_finder3d

Call to:

offset_name()

subroutine  surfacedata/declare_facefactors(unitno)

Parameters:

unitno [integer]

Use :

surfacedata

Called from:

make_calc_body(), 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, shock_finder3d

Call to:

offset_name()

subroutine  surfacedata/offset_name(vname, offset, offname)

Parameters:

• vname [character,inout]

• offset [integer,in]

• offname [character,inout]

Called from:

make_calc_body(), make_calc_3d_int_j_ji(), make_calc_3d_int_k_ki(), make_calc_3d_int_kj_kji(), make_calc_internalboundary(), make_calc_3d_ext_j_ji(), make_calc_3d_ext_k_ki(), make_calc_3d_ext_kj_kji(), make_calc_externalboundary(), evaluate_facefactors(), declare_facefactors(), offset_name(), evaluate_integral(), shock_finder2d, shock_finder3d

Call to:

offset_name()

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] :: =’integral’

• iname [character]

• jname [character]

• kname [character]

Use :

surfacedata

Called from:

make_calc_body(), 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, shock_finder3d

Call to:

offset_name()

subroutine  surfacedata/read_surfaceinfo()

Use :

surfacedata

Called from:

shock_finder2d, shock_finder3d