Functions/Subroutines | |
| subroutine | src_setup |
Variables | |
| integer, parameter | src_nmax =4 |
| integer, dimension(0:ptl_nsp_max) | src_narea = 1 |
| integer | src_niter = 10 |
| real(8), dimension(src_nmax, 0:ptl_nsp_max) | src_pin = 0D0 |
| real(8), dimension(src_nmax, 0:ptl_nsp_max) | src_pout = -1D0 |
| real(8), dimension(src_nmax, 0:ptl_nsp_max) | src_decay_width = 0.01 |
| real(8), dimension(src_nmax, 0:ptl_nsp_max) | src_heat_power = 0D0 |
| real(8), dimension(src_nmax, 0:ptl_nsp_max) | src_torque = 0D0 |
| real(8), dimension(src_nmax, 0:ptl_nsp_max) | src_z_begin = 0D0 |
| real(8), dimension(src_nmax, 0:ptl_nsp_max) | src_r_begin = 0D0 |
| real(8), dimension(src_nmax, 0:ptl_nsp_max) | src_radius =0.1 |
| integer, dimension(src_nmax, 0:ptl_nsp_max) | src_special_mode = -1 |
| integer, dimension(src_nmax, 0:ptl_nsp_max) | src_ishape = -1 |
| integer | src_period = 10 |
| integer | src_nsubsection = 10 |
| real(8), dimension(0:ptl_nsp_max) | src_pin1 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_pout1 = 0.01 |
| real(8), dimension(0:ptl_nsp_max) | src_decay_width1 = 0.01 |
| real(8), dimension(0:ptl_nsp_max) | src_heat_power1 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_torque1 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_z_begin1 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_r_begin1 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_radius1 =0.1 |
| real(8), dimension(0:ptl_nsp_max) | src_pin2 = 1.04 |
| real(8), dimension(0:ptl_nsp_max) | src_pout2 = 1.05 |
| real(8), dimension(0:ptl_nsp_max) | src_decay_width2 = 0.01 |
| real(8), dimension(0:ptl_nsp_max) | src_heat_power2 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_torque2 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_z_begin2 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_r_begin2 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_radius2 =0.1 |
| real(8), dimension(0:ptl_nsp_max) | src_pin3 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_pout3 = -1D0 |
| real(8), dimension(0:ptl_nsp_max) | src_decay_width3 = 0.01 |
| real(8), dimension(0:ptl_nsp_max) | src_heat_power3 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_torque3 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_z_begin3 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_r_begin3 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_radius3 =0.1 |
| real(8), dimension(0:ptl_nsp_max) | src_pin4 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_pout4 = -1D0 |
| real(8), dimension(0:ptl_nsp_max) | src_decay_width4 = 0.01 |
| real(8), dimension(0:ptl_nsp_max) | src_heat_power4 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_torque4 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_z_begin4 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_r_begin4 = 0D0 |
| real(8), dimension(0:ptl_nsp_max) | src_radius4 =0.1 |
| integer, dimension(0:ptl_nsp_max) | src_special_mode1 =0 |
| integer, dimension(0:ptl_nsp_max) | src_ishape1 =1 |
| integer, dimension(0:ptl_nsp_max) | src_special_mode2 =0 |
| integer, dimension(0:ptl_nsp_max) | src_ishape2 =1 |
| integer, dimension(0:ptl_nsp_max) | src_special_mode3 =0 |
| integer, dimension(0:ptl_nsp_max) | src_ishape3 =1 |
| integer, dimension(0:ptl_nsp_max) | src_special_mode4 =0 |
| integer, dimension(0:ptl_nsp_max) | src_ishape4 =1 |
| integer | src_narea_e = 0 |
| real(8) | src_pin1_e = 0D0 |
| real(8) | src_pout1_e = 0.01 |
| real(8) | src_decay_width1_e = 0.01 |
| real(8) | src_heat_power1_e = 0D0 |
| real(8) | src_torque1_e = 0D0 |
| real(8) | src_z_begin1_e = 0D0 |
| real(8) | src_r_begin1_e = 0D0 |
| real(8) | src_pin2_e = 1.04 |
| real(8) | src_pout2_e = 1.05 |
| real(8) | src_decay_width2_e = 0.01 |
| real(8) | src_heat_power2_e = 0D0 |
| real(8) | src_torque2_e = 0D0 |
| real(8) | src_z_begin2_e = 0D0 |
| real(8) | src_r_begin2_e = 0D0 |
| real(8) | src_pin3_e = 0D0 |
| real(8) | src_pout3_e = -1D0 |
| real(8) | src_decay_width3_e = 0.01 |
| real(8) | src_heat_power3_e = 0D0 |
| real(8) | src_torque3_e = 0D0 |
| real(8) | src_z_begin3_e = 0D0 |
| real(8) | src_r_begin3_e = 0D0 |
| real(8) | src_pin4_e = 0D0 |
| real(8) | src_pout4_e = -1D0 |
| real(8) | src_decay_width4_e = 0.01 |
| real(8) | src_heat_power4_e = 0D0 |
| real(8) | src_torque4_e = 0D0 |
| real(8) | src_z_begin4_e = 0D0 |
| real(8) | src_r_begin4_e = 0D0 |
| integer | src_special_mode1_e =0 |
| integer | src_ishape1_e =1 |
| integer | src_special_mode2_e =0 |
| integer | src_ishape2_e =1 |
| integer | src_special_mode3_e =0 |
| integer | src_ishape3_e =1 |
| integer | src_special_mode4_e =0 |
| integer | src_ishape4_e =1 |
| logical | src_pellet_on = .false. |
| On/off switch for pellet ablation. More... | |
Function/Subroutine Documentation
◆ src_setup()
| subroutine src_module::src_setup |
Here is the caller graph for this function:
Variable Documentation
◆ src_decay_width
| real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_decay_width = 0.01 |
◆ src_decay_width1
| real (8), dimension(0:ptl_nsp_max) src_module::src_decay_width1 = 0.01 |
◆ src_decay_width1_e
| real (8) src_module::src_decay_width1_e = 0.01 |
◆ src_decay_width2
| real (8), dimension(0:ptl_nsp_max) src_module::src_decay_width2 = 0.01 |
◆ src_decay_width2_e
| real (8) src_module::src_decay_width2_e = 0.01 |
◆ src_decay_width3
| real (8), dimension(0:ptl_nsp_max) src_module::src_decay_width3 = 0.01 |
◆ src_decay_width3_e
| real (8) src_module::src_decay_width3_e = 0.01 |
◆ src_decay_width4
| real (8), dimension(0:ptl_nsp_max) src_module::src_decay_width4 = 0.01 |
◆ src_decay_width4_e
| real (8) src_module::src_decay_width4_e = 0.01 |
◆ src_heat_power
| real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_heat_power = 0D0 |
◆ src_heat_power1
| real (8), dimension(0:ptl_nsp_max) src_module::src_heat_power1 = 0D0 |
◆ src_heat_power1_e
| real (8) src_module::src_heat_power1_e = 0D0 |
◆ src_heat_power2
| real (8), dimension(0:ptl_nsp_max) src_module::src_heat_power2 = 0D0 |
◆ src_heat_power2_e
| real (8) src_module::src_heat_power2_e = 0D0 |
◆ src_heat_power3
| real (8), dimension(0:ptl_nsp_max) src_module::src_heat_power3 = 0D0 |
◆ src_heat_power3_e
| real (8) src_module::src_heat_power3_e = 0D0 |
◆ src_heat_power4
| real (8), dimension(0:ptl_nsp_max) src_module::src_heat_power4 = 0D0 |
◆ src_heat_power4_e
| real (8) src_module::src_heat_power4_e = 0D0 |
◆ src_ishape
| integer, dimension(src_nmax,0:ptl_nsp_max) src_module::src_ishape = -1 |
◆ src_ishape1
| integer, dimension(0:ptl_nsp_max) src_module::src_ishape1 =1 |
◆ src_ishape1_e
| integer src_module::src_ishape1_e =1 |
◆ src_ishape2
| integer, dimension(0:ptl_nsp_max) src_module::src_ishape2 =1 |
◆ src_ishape2_e
| integer src_module::src_ishape2_e =1 |
◆ src_ishape3
| integer, dimension(0:ptl_nsp_max) src_module::src_ishape3 =1 |
◆ src_ishape3_e
| integer src_module::src_ishape3_e =1 |
◆ src_ishape4
| integer, dimension(0:ptl_nsp_max) src_module::src_ishape4 =1 |
◆ src_ishape4_e
| integer src_module::src_ishape4_e =1 |
◆ src_narea
| integer, dimension(0:ptl_nsp_max) src_module::src_narea = 1 |
◆ src_narea_e
| integer src_module::src_narea_e = 0 |
◆ src_niter
| integer src_module::src_niter = 10 |
◆ src_nmax
| integer, parameter src_module::src_nmax =4 |
◆ src_nsubsection
| integer src_module::src_nsubsection = 10 |
◆ src_pellet_on
| logical src_module::src_pellet_on = .false. |
On/off switch for pellet ablation.
◆ src_period
| integer src_module::src_period = 10 |
◆ src_pin
| real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_pin = 0D0 |
◆ src_pin1
| real (8), dimension(0:ptl_nsp_max) src_module::src_pin1 = 0D0 |
◆ src_pin1_e
| real (8) src_module::src_pin1_e = 0D0 |
◆ src_pin2
| real (8), dimension(0:ptl_nsp_max) src_module::src_pin2 = 1.04 |
◆ src_pin2_e
| real (8) src_module::src_pin2_e = 1.04 |
◆ src_pin3
| real (8), dimension(0:ptl_nsp_max) src_module::src_pin3 = 0D0 |
◆ src_pin3_e
| real (8) src_module::src_pin3_e = 0D0 |
◆ src_pin4
| real (8), dimension(0:ptl_nsp_max) src_module::src_pin4 = 0D0 |
◆ src_pin4_e
| real (8) src_module::src_pin4_e = 0D0 |
◆ src_pout
| real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_pout = -1D0 |
◆ src_pout1
| real (8), dimension(0:ptl_nsp_max) src_module::src_pout1 = 0.01 |
◆ src_pout1_e
| real (8) src_module::src_pout1_e = 0.01 |
◆ src_pout2
| real (8), dimension(0:ptl_nsp_max) src_module::src_pout2 = 1.05 |
◆ src_pout2_e
| real (8) src_module::src_pout2_e = 1.05 |
◆ src_pout3
| real (8), dimension(0:ptl_nsp_max) src_module::src_pout3 = -1D0 |
◆ src_pout3_e
| real (8) src_module::src_pout3_e = -1D0 |
◆ src_pout4
| real (8), dimension(0:ptl_nsp_max) src_module::src_pout4 = -1D0 |
◆ src_pout4_e
| real (8) src_module::src_pout4_e = -1D0 |
◆ src_r_begin
| real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_r_begin = 0D0 |
◆ src_r_begin1
| real (8), dimension(0:ptl_nsp_max) src_module::src_r_begin1 = 0D0 |
◆ src_r_begin1_e
| real (8) src_module::src_r_begin1_e = 0D0 |
◆ src_r_begin2
| real (8), dimension(0:ptl_nsp_max) src_module::src_r_begin2 = 0D0 |
◆ src_r_begin2_e
| real (8) src_module::src_r_begin2_e = 0D0 |
◆ src_r_begin3
| real (8), dimension(0:ptl_nsp_max) src_module::src_r_begin3 = 0D0 |
◆ src_r_begin3_e
| real (8) src_module::src_r_begin3_e = 0D0 |
◆ src_r_begin4
| real (8), dimension(0:ptl_nsp_max) src_module::src_r_begin4 = 0D0 |
◆ src_r_begin4_e
| real (8) src_module::src_r_begin4_e = 0D0 |
◆ src_radius
| real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_radius =0.1 |
◆ src_radius1
| real (8), dimension(0:ptl_nsp_max) src_module::src_radius1 =0.1 |
◆ src_radius2
| real (8), dimension(0:ptl_nsp_max) src_module::src_radius2 =0.1 |
◆ src_radius3
| real (8), dimension(0:ptl_nsp_max) src_module::src_radius3 =0.1 |
◆ src_radius4
| real (8), dimension(0:ptl_nsp_max) src_module::src_radius4 =0.1 |
◆ src_special_mode
| integer, dimension(src_nmax,0:ptl_nsp_max) src_module::src_special_mode = -1 |
◆ src_special_mode1
| integer, dimension(0:ptl_nsp_max) src_module::src_special_mode1 =0 |
◆ src_special_mode1_e
| integer src_module::src_special_mode1_e =0 |
◆ src_special_mode2
| integer, dimension(0:ptl_nsp_max) src_module::src_special_mode2 =0 |
◆ src_special_mode2_e
| integer src_module::src_special_mode2_e =0 |
◆ src_special_mode3
| integer, dimension(0:ptl_nsp_max) src_module::src_special_mode3 =0 |
◆ src_special_mode3_e
| integer src_module::src_special_mode3_e =0 |
◆ src_special_mode4
| integer, dimension(0:ptl_nsp_max) src_module::src_special_mode4 =0 |
◆ src_special_mode4_e
| integer src_module::src_special_mode4_e =0 |
◆ src_torque
| real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_torque = 0D0 |
◆ src_torque1
| real (8), dimension(0:ptl_nsp_max) src_module::src_torque1 = 0D0 |
◆ src_torque1_e
| real (8) src_module::src_torque1_e = 0D0 |
◆ src_torque2
| real (8), dimension(0:ptl_nsp_max) src_module::src_torque2 = 0D0 |
◆ src_torque2_e
| real (8) src_module::src_torque2_e = 0D0 |
◆ src_torque3
| real (8), dimension(0:ptl_nsp_max) src_module::src_torque3 = 0D0 |
◆ src_torque3_e
| real (8) src_module::src_torque3_e = 0D0 |
◆ src_torque4
| real (8), dimension(0:ptl_nsp_max) src_module::src_torque4 = 0D0 |
◆ src_torque4_e
| real (8) src_module::src_torque4_e = 0D0 |
◆ src_z_begin
| real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_z_begin = 0D0 |
◆ src_z_begin1
| real (8), dimension(0:ptl_nsp_max) src_module::src_z_begin1 = 0D0 |
◆ src_z_begin1_e
| real (8) src_module::src_z_begin1_e = 0D0 |
◆ src_z_begin2
| real (8), dimension(0:ptl_nsp_max) src_module::src_z_begin2 = 0D0 |
◆ src_z_begin2_e
| real (8) src_module::src_z_begin2_e = 0D0 |
◆ src_z_begin3
| real (8), dimension(0:ptl_nsp_max) src_module::src_z_begin3 = 0D0 |
◆ src_z_begin3_e
| real (8) src_module::src_z_begin3_e = 0D0 |
◆ src_z_begin4
| real (8), dimension(0:ptl_nsp_max) src_module::src_z_begin4 = 0D0 |
◆ src_z_begin4_e
| real (8) src_module::src_z_begin4_e = 0D0 |
