SFEMaNS  version 4.1 (work in progress)
Reference documentation for SFEMaNS
 All Classes Files Functions Variables Groups Pages
List of all members | Public Member Functions | Public Attributes | Private Member Functions | Private Attributes
boundary_test_29 Module Reference

Public Member Functions

subroutine, public 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 		source_in_ns_momentum (TYPE, rr, mode, i, time, Re, ty, opt_density, opt_tempn)
 
real(kind=8) function,
dimension(size(rr, 2)), public 		vv_exact (TYPE, rr, m, t)
 
real(kind=8) function,
dimension(size(rr,
2), 6), public 		imposed_velocity_by_penalty (rr, t)
 
real(kind=8) function,
dimension(size(rr, 2)), public 		pp_exact (TYPE, rr, m, t)
 
real(kind=8) function,
dimension(nb_angles, ne-nb+1),
public 		penal_in_real_space (mesh, rr_gauss, angles, nb_angles, nb, ne, time)
 
real(kind=8) function,
dimension(h_mesh%np), public 		extension_velocity (TYPE, H_mesh, mode, t, n_start)
 
real(kind=8) function,
dimension(size(rr, 2)), public 		hexact (H_mesh, TYPE, rr, m, mu_H_field, t)
 
real(kind=8) function,
dimension(size(rr, 2)), public 		phiexact (TYPE, rr, m, mu_phi, t)
 
real(kind=8) function, public jexact_gauss (TYPE, rr, m, mu_phi, sigma, mu_H, t, mesh_id, opt_B_ext)
 
real(kind=8) function, public eexact_gauss (TYPE, rr, m, mu_phi, sigma, mu_H, t)
 
subroutine, public 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 		mu_bar_in_fourier_space (H_mesh, nb, ne, pts, pts_ids)
 
real(kind=8) function,
dimension(2), public 		grad_mu_bar_in_fourier_space (pt, pt_id)
 
real(kind=8) function,
dimension(nb_angles, ne-nb+1),
public 		mu_in_real_space (H_mesh, angles, nb_angles, nb, ne, time)
 
real(kind=8) function bottom_mu_bar_func (r, z)
 
real(kind=8) function top_mu_bar_func (r, z)
 
real(kind=8) function, dimension(2) grad_mu_bar_func (r, z)
 
real(kind=8) function, dimension(2) grad_bottom_mu_bar_func (r, z)
 
real(kind=8) function, dimension(2) grad_top_mu_bar_func (r, z)
 
real(kind=8) function,
dimension(nb_angles, ne-nb+1) 		smooth_penal_in_real_space (mesh, rr_gauss, angles, nb_angles, nb, ne, time)
 
real(kind=8) function,
dimension(nb_angles) 		smooth_top_propeller (r, z, angles, nb_angles, time)
 
real(kind=8) function,
dimension(nb_angles) 		smooth_bottom_propeller (r, z, angles, nb_angles, time)
 
real(kind=8) function smooth_top_supporting_disk (r, z)
 
real(kind=8) function smooth_bottom_supporting_disk (r, z)
 
real(kind=8) function smooth_jump_down (x, x0, x1)
 

Public Attributes

real(kind=8), parameter, public disk_radius =0.75d0
 
real(kind=8), parameter, public hole_radius =0.1d0
 
real(kind=8), public omega_vol = pi*(1.0)*(2.0)
 
real(kind=8), parameter, public disk_r = disk_radius
 
real(kind=8), parameter, public disk_rp = disk_r- wjump
 

Private Member Functions

real(kind=8) function,
dimension(size(rr, 2)) 		hexact_init (TYPE, rr, m, mu_H_field, t)
 
real(kind=8) function mu_bar_func (r, z)
 
real(kind=8) function smooth_jump_up (x, x0, x1)
 
real(kind=8) function dsmooth_jump_down (x, x0, x1)
 
real(kind=8) function dsmooth_jump_up (x, x0, x1)
 

Private Attributes

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

Detailed Description

Definition at line 1 of file condlim_test_29.f90.

Member Function/Subroutine Documentation

real(kind=8) function boundary_test_29::bottom_mu_bar_func ( real(kind=8)  r,
real(kind=8)  z 
)

Definition at line 641 of file condlim_test_29.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

real(kind=8) function boundary_test_29::dsmooth_jump_down ( real(kind=8)  x,
real(kind=8)  x0,
real(kind=8)  x1 
)
private

Definition at line 1219 of file condlim_test_29.f90.

Here is the caller graph for this function:

real(kind=8) function boundary_test_29::dsmooth_jump_up ( real(kind=8)  x,
real(kind=8)  x0,
real(kind=8)  x1 
)
private

Definition at line 1236 of file condlim_test_29.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

real(kind=8) function, public boundary_test_29::eexact_gauss ( integer, intent(in)  TYPE,
real(kind=8), dimension(:), intent(in)  rr,
integer, intent(in)  m,
real(kind=8), intent(in)  mu_phi,
real(kind=8), intent(in)  sigma,
real(kind=8), intent(in)  mu_H,
real(kind=8), intent(in)  t 
)

Definition at line 465 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function, dimension(h_mesh%np), public boundary_test_29::extension_velocity ( integer, intent(in)  TYPE,
type(mesh_type), intent(in)  H_mesh,
integer, intent(in)  mode,
real(kind=8), intent(in)  t,
integer, intent(in)  n_start 
)

Definition at line 357 of file condlim_test_29.f90.

real(kind=8) function, dimension(2) boundary_test_29::grad_bottom_mu_bar_func ( real(kind=8)  r,
real(kind=8)  z 
)

Definition at line 745 of file condlim_test_29.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

real(kind=8) function, dimension(2) boundary_test_29::grad_mu_bar_func ( real(kind=8)  r,
real(kind=8)  z 
)

Definition at line 724 of file condlim_test_29.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

real(kind=8) function, dimension(2), public boundary_test_29::grad_mu_bar_in_fourier_space ( real(kind=8), dimension(2), intent(in)  pt,
integer, dimension(1), intent(in)  pt_id 
)

Definition at line 592 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function, dimension(2) boundary_test_29::grad_top_mu_bar_func ( real(kind=8)  r,
real(kind=8)  z 
)

Definition at line 798 of file condlim_test_29.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

real(kind=8) function, dimension(size(rr,2)), public boundary_test_29::hexact ( type(mesh_type), intent(in)  H_mesh,
integer, intent(in)  TYPE,
real(kind=8), dimension(:,:), intent(in)  rr,
integer, intent(in)  m,
real(kind=8), dimension(:), intent(in)  mu_H_field,
real(kind=8), intent(in)  t 
)

Definition at line 403 of file condlim_test_29.f90.

real(kind=8) function, dimension(size(rr,2)) boundary_test_29::hexact_init ( integer, intent(in)  TYPE,
real(kind=8), dimension(:,:), intent(in)  rr,
integer, intent(in)  m,
real(kind=8), dimension(:), intent(in)  mu_H_field,
real(kind=8), intent(in)  t 
)
private

Definition at line 483 of file condlim_test_29.f90.

Here is the caller graph for this function:

real(kind=8) function, dimension(size(rr,2),6), public boundary_test_29::imposed_velocity_by_penalty ( real(kind=8), dimension(:,:), intent(in)  rr,
real(kind=8), intent(in)  t 
)

Definition at line 254 of file condlim_test_29.f90.

subroutine, public boundary_test_29::init_maxwell ( type(mesh_type)  H_mesh,
type(mesh_type)  phi_mesh,
real(kind=8), intent(out)  time,
real(kind=8), intent(in)  dt,
real(kind=8), dimension(:), intent(in)  mu_H_field,
real(kind=8), intent(in)  mu_phi,
integer, dimension(:), intent(in)  list_mode,
real(kind=8), dimension(:,:,:), intent(out)  Hn1,
real(kind=8), dimension(:,:,:), intent(out)  Hn,
real(kind=8), dimension(:,:,:), intent(out)  phin1,
real(kind=8), dimension(:,:,:), intent(out)  phin 
)

Definition at line 517 of file condlim_test_29.f90.

Here is the call graph for this function:

subroutine, public boundary_test_29::init_velocity_pressure ( type(mesh_type)  mesh_f,
type(mesh_type)  mesh_c,
real(kind=8), intent(out)  time,
real(kind=8), intent(in)  dt,
integer, dimension(:), intent(in)  list_mode,
real(kind=8), dimension(:,:,:), intent(out)  un_m1,
real(kind=8), dimension(:,:,:), intent(out)  un,
real(kind=8), dimension(:,:,:), intent(out)  pn_m1,
real(kind=8), dimension(:,:,:), intent(out)  pn,
real(kind=8), dimension(:,:,:), intent(out)  phin_m1,
real(kind=8), dimension(:,:,:), intent(out)  phin 
)

Definition at line 86 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function, public boundary_test_29::jexact_gauss ( integer, intent(in)  TYPE,
real(kind=8), dimension(:), intent(in)  rr,
integer, intent(in)  m,
real(kind=8), intent(in)  mu_phi,
real(kind=8), intent(in)  sigma,
real(kind=8), intent(in)  mu_H,
real(kind=8), intent(in)  t,
integer, intent(in)  mesh_id,
real(kind=8), dimension(6), intent(in), optional  opt_B_ext 
)

Definition at line 443 of file condlim_test_29.f90.

real(kind=8) function boundary_test_29::mu_bar_func ( real(kind=8)  r,
real(kind=8)  z 
)
private

Definition at line 621 of file condlim_test_29.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

real(kind=8) function, dimension(ne-nb+1), public boundary_test_29::mu_bar_in_fourier_space ( type(mesh_type), intent(in)  H_mesh,
integer, intent(in)  nb,
integer, intent(in)  ne,
real(kind=8), dimension(2,ne-nb+1), optional  pts,
integer, dimension(ne-nb+1), optional  pts_ids 
)

Definition at line 564 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function, dimension(nb_angles,ne-nb+1), public boundary_test_29::mu_in_real_space ( type(mesh_type), intent(in)  H_mesh,
real(kind=8), dimension(:), intent(in)  angles,
integer, intent(in)  nb_angles,
integer, intent(in)  nb,
integer, intent(in)  ne,
real(kind=8), intent(in)  time 
)

Definition at line 608 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function, dimension(nb_angles,ne-nb+1), public boundary_test_29::penal_in_real_space ( type(mesh_type)  mesh,
real(kind=8), dimension(:,:), intent(in)  rr_gauss,
real(kind=8), dimension(:), intent(in)  angles,
integer, intent(in)  nb_angles,
integer, intent(in)  nb,
integer, intent(in)  ne,
real(kind=8), intent(in)  time 
)

Definition at line 334 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function, dimension(size(rr,2)), public boundary_test_29::phiexact ( integer, intent(in)  TYPE,
real(kind=8), dimension(:,:), intent(in)  rr,
integer, intent(in)  m,
real(kind=8), intent(in)  mu_phi,
real(kind=8), intent(in)  t 
)

Definition at line 424 of file condlim_test_29.f90.

real(kind=8) function, dimension(size(rr,2)), public boundary_test_29::pp_exact ( integer, intent(in)  TYPE,
real(kind=8), dimension(:,:), intent(in)  rr,
integer, intent(in)  m,
real(kind=8), intent(in)  t 
)

Definition at line 284 of file condlim_test_29.f90.

real(kind=8) function, dimension(nb_angles) boundary_test_29::smooth_bottom_propeller ( real(kind=8)  r,
real(kind=8)  z,
real(kind=8), dimension(:)  angles,
integer  nb_angles,
real(kind=8)  time 
)

Definition at line 976 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function boundary_test_29::smooth_bottom_supporting_disk ( real(kind=8)  r,
real(kind=8)  z 
)

Definition at line 1124 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function boundary_test_29::smooth_jump_down ( real(kind=8)  x,
real(kind=8)  x0,
real(kind=8)  x1 
)

Definition at line 1193 of file condlim_test_29.f90.

real(kind=8) function boundary_test_29::smooth_jump_up ( real(kind=8)  x,
real(kind=8)  x0,
real(kind=8)  x1 
)
private

Definition at line 1209 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function, dimension(nb_angles,ne-nb+1) boundary_test_29::smooth_penal_in_real_space ( type(mesh_type)  mesh,
real(kind=8), dimension(:,:)  rr_gauss,
real(kind=8), dimension(:)  angles,
integer  nb_angles,
integer  nb,
integer  ne,
real(kind=8)  time 
)

Definition at line 852 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function, dimension(nb_angles) boundary_test_29::smooth_top_propeller ( real(kind=8)  r,
real(kind=8)  z,
real(kind=8), dimension(:)  angles,
integer  nb_angles,
real(kind=8)  time 
)

Definition at line 892 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function boundary_test_29::smooth_top_supporting_disk ( real(kind=8)  r,
real(kind=8)  z 
)

Definition at line 1056 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function, dimension(size(rr,2)), public boundary_test_29::source_in_ns_momentum ( integer, intent(in)  TYPE,
real(kind=8), dimension(:,:), intent(in)  rr,
integer, intent(in)  mode,
integer, intent(in)  i,
real(kind=8), intent(in)  time,
real(kind=8), intent(in)  Re,
character(len=2), intent(in)  ty,
real(kind=8), dimension(:,:,:), intent(in), optional  opt_density,
real(kind=8), dimension(:,:,:), intent(in), optional  opt_tempn 
)

Definition at line 163 of file condlim_test_29.f90.

Here is the call graph for this function:

real(kind=8) function boundary_test_29::top_mu_bar_func ( real(kind=8)  r,
real(kind=8)  z 
)

Definition at line 683 of file condlim_test_29.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

real(kind=8) function, dimension(size(rr,2)), public boundary_test_29::vv_exact ( integer, intent(in)  TYPE,
real(kind=8), dimension(:,:), intent(in)  rr,
integer, intent(in)  m,
real(kind=8), intent(in)  t 
)

Definition at line 218 of file condlim_test_29.f90.

Member Data Documentation

real(kind=8), parameter boundary_test_29::alpha =200.d0*(1.0)
private

Definition at line 73 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::alpha_th = 80.d0*(1.0)
private

Definition at line 73 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::bdisk_z = cyl_bott + 0.3d0
private

Definition at line 62 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::bdisk_z_p = Bdisk_z - wjump
private

Definition at line 62 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::bot_of_blade_top = 0.7d0
private

Definition at line 48 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::bot_of_disk_top = 0.9d0
private

Definition at line 48 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::cyl_bott = -1.0
private

Definition at line 61 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::cyl_top = 1.0
private

Definition at line 67 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::disk_bot =-1.1d0
private

Definition at line 47 of file condlim_test_29.f90.

real(kind=8), parameter, public boundary_test_29::disk_r = disk_radius

Definition at line 58 of file condlim_test_29.f90.

real(kind=8), parameter, public boundary_test_29::disk_radius =0.75d0

Definition at line 49 of file condlim_test_29.f90.

real(kind=8), parameter, public boundary_test_29::disk_rp = disk_r- wjump

Definition at line 58 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::disk_top = 1.1d0
private

Definition at line 48 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::hole_r = hole_radius
private

Definition at line 57 of file condlim_test_29.f90.

real(kind=8), parameter, public boundary_test_29::hole_radius =0.1d0

Definition at line 49 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::hole_rp =hole_r - wjump_hole
private

Definition at line 57 of file condlim_test_29.f90.

logical, parameter boundary_test_29::if_bottom_prop =.TRUE.
private

Definition at line 76 of file condlim_test_29.f90.

logical, parameter boundary_test_29::if_top_prop =.TRUE.
private

Definition at line 77 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::lw = 0.0125
private

Definition at line 46 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::mu_disk = 5.0d1
private

Definition at line 37 of file condlim_test_29.f90.

integer boundary_test_29::nblades = 8
private

Definition at line 45 of file condlim_test_29.f90.

real(kind=8), public boundary_test_29::omega_vol = pi*(1.0)*(2.0)

Definition at line 53 of file condlim_test_29.f90.

real(kind=8), parameter, private boundary_test_29::pi = 3.14159265358979323846d0
private

Definition at line 35 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::solid_vel =1.0
private

Definition at line 78 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::tdisk_z = cyl_top - 0.3d0
private

Definition at line 68 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::tdisk_z_p = Tdisk_z + wjump
private

Definition at line 68 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::top_of_blade_bot =-0.7d0
private

Definition at line 47 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::top_of_disk_bot =-0.9d0
private

Definition at line 47 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::top_propeller_angle_offset = 0.d0
private

Definition at line 44 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::two_rp = disk_radius/SIN(twopi*24.d0/360.d0)
private

Definition at line 51 of file condlim_test_29.f90.

real(kind=8), parameter, private boundary_test_29::twopi =2*pi
private

Definition at line 36 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::wjump = 0.04*(1.0)
private

Definition at line 56 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::wjump_hole = 0.06*(1.0)
private

Definition at line 56 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::zbot = cyl_bott + 0.1d0
private

Definition at line 63 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::zbot_bar = zbot - 0.04d0
private

Definition at line 64 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::zbot_bar_p = zbot_bar - wjump
private

Definition at line 64 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::zbot_p = zbot - wjump
private

Definition at line 63 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::ztop = cyl_top - 0.1d0
private

Definition at line 69 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::ztop_bar = ztop + 0.04d0
private

Definition at line 70 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::ztop_bar_p = ztop_bar + wjump
private

Definition at line 70 of file condlim_test_29.f90.

real(kind=8), parameter boundary_test_29::ztop_p = ztop + wjump
private

Definition at line 69 of file condlim_test_29.f90.

The documentation for this module was generated from the following file: