|
subroutine, public | boundary_test_29::init_velocity_pressure (mesh_f, mesh_c, time, dt, list_mode, un_m1, un, pn_m1, pn, phin_m1, phin) |
|
real(kind=8) function, dimension(size(rr, 2)), public | boundary_test_29::source_in_ns_momentum (TYPE, rr, mode, i, time, Re, ty, opt_density, opt_tempn) |
|
real(kind=8) function, dimension(size(rr, 2)), public | boundary_test_29::vv_exact (TYPE, rr, m, t) |
|
real(kind=8) function, dimension(size(rr, 2), 6), public | boundary_test_29::imposed_velocity_by_penalty (rr, t) |
|
real(kind=8) function, dimension(size(rr, 2)), public | boundary_test_29::pp_exact (TYPE, rr, m, t) |
|
real(kind=8) function, dimension(nb_angles, ne-nb+1), public | boundary_test_29::penal_in_real_space (mesh, rr_gauss, angles, nb_angles, nb, ne, time) |
|
real(kind=8) function, dimension(h_mesh%np), public | boundary_test_29::extension_velocity (TYPE, H_mesh, mode, t, n_start) |
|
real(kind=8) function, dimension(size(rr, 2)), public | boundary_test_29::hexact (H_mesh, TYPE, rr, m, mu_H_field, t) |
|
real(kind=8) function, dimension(size(rr, 2)), public | boundary_test_29::phiexact (TYPE, rr, m, mu_phi, t) |
|
real(kind=8) function, public | boundary_test_29::jexact_gauss (TYPE, rr, m, mu_phi, sigma, mu_H, t, mesh_id, opt_B_ext) |
|
real(kind=8) function, public | boundary_test_29::eexact_gauss (TYPE, rr, m, mu_phi, sigma, mu_H, t) |
|
real(kind=8) function, dimension(size(rr, 2)) | boundary_test_29::hexact_init (TYPE, rr, m, mu_H_field, t) |
|
subroutine, public | boundary_test_29::init_maxwell (H_mesh, phi_mesh, time, dt, mu_H_field, mu_phi, list_mode, Hn1, Hn, phin1, phin) |
|
real(kind=8) function, dimension(ne-nb+1), public | boundary_test_29::mu_bar_in_fourier_space (H_mesh, nb, ne, pts, pts_ids) |
|
real(kind=8) function, dimension(2), public | boundary_test_29::grad_mu_bar_in_fourier_space (pt, pt_id) |
|
real(kind=8) function, dimension(nb_angles, ne-nb+1), public | boundary_test_29::mu_in_real_space (H_mesh, angles, nb_angles, nb, ne, time) |
|
real(kind=8) function | boundary_test_29::mu_bar_func (r, z) |
|
real(kind=8) function | boundary_test_29::bottom_mu_bar_func (r, z) |
|
real(kind=8) function | boundary_test_29::top_mu_bar_func (r, z) |
|
real(kind=8) function, dimension(2) | boundary_test_29::grad_mu_bar_func (r, z) |
|
real(kind=8) function, dimension(2) | boundary_test_29::grad_bottom_mu_bar_func (r, z) |
|
real(kind=8) function, dimension(2) | boundary_test_29::grad_top_mu_bar_func (r, z) |
|
real(kind=8) function, dimension(nb_angles, ne-nb+1) | boundary_test_29::smooth_penal_in_real_space (mesh, rr_gauss, angles, nb_angles, nb, ne, time) |
|
real(kind=8) function, dimension(nb_angles) | boundary_test_29::smooth_top_propeller (r, z, angles, nb_angles, time) |
|
real(kind=8) function, dimension(nb_angles) | boundary_test_29::smooth_bottom_propeller (r, z, angles, nb_angles, time) |
|
real(kind=8) function | boundary_test_29::smooth_top_supporting_disk (r, z) |
|
real(kind=8) function | boundary_test_29::smooth_bottom_supporting_disk (r, z) |
|
real(kind=8) function | boundary_test_29::smooth_jump_down (x, x0, x1) |
|
real(kind=8) function | boundary_test_29::smooth_jump_up (x, x0, x1) |
|
real(kind=8) function | boundary_test_29::dsmooth_jump_down (x, x0, x1) |
|
real(kind=8) function | boundary_test_29::dsmooth_jump_up (x, x0, x1) |
|
|
real(kind=8), parameter, private | boundary_test_29::pi = 3.14159265358979323846d0 |
|
real(kind=8), parameter, private | boundary_test_29::twopi =2*pi |
|
real(kind=8), parameter | boundary_test_29::mu_disk = 5.0d1 |
|
real(kind=8), parameter | boundary_test_29::top_propeller_angle_offset = 0.d0 |
|
integer | boundary_test_29::nblades = 8 |
|
real(kind=8), parameter | boundary_test_29::lw = 0.0125 |
|
real(kind=8), parameter | boundary_test_29::disk_bot =-1.1d0 |
|
real(kind=8), parameter | boundary_test_29::top_of_disk_bot =-0.9d0 |
|
real(kind=8), parameter | boundary_test_29::top_of_blade_bot =-0.7d0 |
|
real(kind=8), parameter | boundary_test_29::disk_top = 1.1d0 |
|
real(kind=8), parameter | boundary_test_29::bot_of_disk_top = 0.9d0 |
|
real(kind=8), parameter | boundary_test_29::bot_of_blade_top = 0.7d0 |
|
real(kind=8), parameter, public | boundary_test_29::disk_radius =0.75d0 |
|
real(kind=8), parameter, public | boundary_test_29::hole_radius =0.1d0 |
|
real(kind=8), parameter | boundary_test_29::two_rp = disk_radius/SIN(twopi*24.d0/360.d0) |
|
real(kind=8), public | boundary_test_29::omega_vol = pi*(1.0)*(2.0) |
|
real(kind=8), parameter | boundary_test_29::wjump_hole = 0.06*(1.0) |
|
real(kind=8), parameter | boundary_test_29::wjump = 0.04*(1.0) |
|
real(kind=8), parameter | boundary_test_29::hole_r = hole_radius |
|
real(kind=8), parameter | boundary_test_29::hole_rp =hole_r - wjump_hole |
|
real(kind=8), parameter, public | boundary_test_29::disk_r = disk_radius |
|
real(kind=8), parameter, public | boundary_test_29::disk_rp = disk_r- wjump |
|
real(kind=8), parameter | boundary_test_29::cyl_bott = -1.0 |
|
real(kind=8), parameter | boundary_test_29::bdisk_z = cyl_bott + 0.3d0 |
|
real(kind=8), parameter | boundary_test_29::bdisk_z_p = Bdisk_z - wjump |
|
real(kind=8), parameter | boundary_test_29::zbot = cyl_bott + 0.1d0 |
|
real(kind=8), parameter | boundary_test_29::zbot_p = zbot - wjump |
|
real(kind=8), parameter | boundary_test_29::zbot_bar = zbot - 0.04d0 |
|
real(kind=8), parameter | boundary_test_29::zbot_bar_p = zbot_bar - wjump |
|
real(kind=8), parameter | boundary_test_29::cyl_top = 1.0 |
|
real(kind=8), parameter | boundary_test_29::tdisk_z = cyl_top - 0.3d0 |
|
real(kind=8), parameter | boundary_test_29::tdisk_z_p = Tdisk_z + wjump |
|
real(kind=8), parameter | boundary_test_29::ztop = cyl_top - 0.1d0 |
|
real(kind=8), parameter | boundary_test_29::ztop_p = ztop + wjump |
|
real(kind=8), parameter | boundary_test_29::ztop_bar = ztop + 0.04d0 |
|
real(kind=8), parameter | boundary_test_29::ztop_bar_p = ztop_bar + wjump |
|
real(kind=8), parameter | boundary_test_29::alpha =200.d0*(1.0) |
|
real(kind=8), parameter | boundary_test_29::alpha_th = 80.d0*(1.0) |
|
logical, parameter | boundary_test_29::if_bottom_prop =.TRUE. |
|
logical, parameter | boundary_test_29::if_top_prop =.TRUE. |
|
real(kind=8), parameter | boundary_test_29::solid_vel =1.0 |
|