condlim_test_28.f90 File Reference

Go to the source code of this file.

Modules
module	boundary_test_28

Functions/Subroutines
subroutine, public	boundary_test_28::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_28::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_28::vv_exact (TYPE, rr, m, t)
real(kind=8) function, dimension(size(rr, 2), 6), public	boundary_test_28::imposed_velocity_by_penalty (rr, t)
real(kind=8) function, dimension(size(rr, 2)), public	boundary_test_28::pp_exact (TYPE, rr, m, t)
real(kind=8) function, dimension(nb_angles, ne-nb+1), public	boundary_test_28::penal_in_real_space (mesh, rr_gauss, angles, nb_angles, nb, ne, time)
real(kind=8) function, dimension(nb_angles, ne-nb+1)	boundary_test_28::smooth_penal_in_real_space (mesh, rr_gauss, angles, nb_angles, nb, ne, time)
real(kind=8) function, dimension(nb_angles)	boundary_test_28::smooth_top_propeller (r, z, angles, nb_angles, time)
real(kind=8) function, dimension(nb_angles)	boundary_test_28::smooth_bottom_propeller (r, z, angles, nb_angles, time)
real(kind=8) function	boundary_test_28::smooth_top_supporting_disk (r, z)
real(kind=8) function	boundary_test_28::smooth_bottom_supporting_disk (r, z)
real(kind=8) function	boundary_test_28::smooth_jump_down (x, x0, x1)
real(kind=8) function	boundary_test_28::smooth_jump_up (x, x0, x1)

Variables
real(kind=8), parameter, private	boundary_test_28::pi = 3.14159265358979323846d0
real(kind=8), parameter, private	boundary_test_28::twopi =2*pi
real(kind=8), parameter	boundary_test_28::mu_disk = 5.0d1
real(kind=8), parameter	boundary_test_28::top_propeller_angle_offset = 0.d0
integer	boundary_test_28::nblades = 8
real(kind=8), parameter	boundary_test_28::lw = 0.0125
real(kind=8), parameter	boundary_test_28::disk_bot =-1.1d0
real(kind=8), parameter	boundary_test_28::top_of_disk_bot =-0.9d0
real(kind=8), parameter	boundary_test_28::top_of_blade_bot =-0.7d0
real(kind=8), parameter	boundary_test_28::disk_top = 1.1d0
real(kind=8), parameter	boundary_test_28::bot_of_disk_top = 0.9d0
real(kind=8), parameter	boundary_test_28::bot_of_blade_top = 0.7d0
real(kind=8), parameter, public	boundary_test_28::disk_radius =0.75d0
real(kind=8), parameter, public	boundary_test_28::hole_radius =0.1d0
real(kind=8), parameter	boundary_test_28::two_rp = disk_radius/SIN(twopi*24.d0/360.d0)
real(kind=8), public	boundary_test_28::omega_vol = pi*(1.0)*(2.0)
real(kind=8), parameter	boundary_test_28::wjump_hole = 0.06*(1.0)
real(kind=8), parameter	boundary_test_28::wjump = 0.04*(1.0)
real(kind=8), parameter	boundary_test_28::hole_r = hole_radius
real(kind=8), parameter	boundary_test_28::hole_rp =hole_r - wjump_hole
real(kind=8), parameter, public	boundary_test_28::disk_r = disk_radius
real(kind=8), parameter, public	boundary_test_28::disk_rp = disk_r- wjump
real(kind=8), parameter	boundary_test_28::cyl_bott = -1.0
real(kind=8), parameter	boundary_test_28::bdisk_z = cyl_bott + 0.3d0
real(kind=8), parameter	boundary_test_28::bdisk_z_p = Bdisk_z - wjump
real(kind=8), parameter	boundary_test_28::zbot = cyl_bott + 0.1d0
real(kind=8), parameter	boundary_test_28::zbot_p = zbot - wjump
real(kind=8), parameter	boundary_test_28::zbot_bar = zbot - 0.04d0
real(kind=8), parameter	boundary_test_28::zbot_bar_p = zbot_bar - wjump
real(kind=8), parameter	boundary_test_28::cyl_top = 1.0
real(kind=8), parameter	boundary_test_28::tdisk_z = cyl_top - 0.3d0
real(kind=8), parameter	boundary_test_28::tdisk_z_p = Tdisk_z + wjump
real(kind=8), parameter	boundary_test_28::ztop = cyl_top - 0.1d0
real(kind=8), parameter	boundary_test_28::ztop_p = ztop + wjump
real(kind=8), parameter	boundary_test_28::ztop_bar = ztop + 0.04d0
real(kind=8), parameter	boundary_test_28::ztop_bar_p = ztop_bar + wjump
real(kind=8), parameter	boundary_test_28::alpha =200.d0*(1.0)
real(kind=8), parameter	boundary_test_28::alpha_th = 80.d0*(1.0)
logical, parameter	boundary_test_28::if_bottom_prop =.TRUE.
logical, parameter	boundary_test_28::if_top_prop =.TRUE.
real(kind=8), parameter	boundary_test_28::solid_vel =1.0