src_module Module Reference

Public Member Functions
subroutine	src_setup

Public Attributes
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...

Member Function/Subroutine Documentation

subroutine src_module::src_setup

(

)

Here is the call graph for this function:

Here is the caller graph for this function:

Member Data Documentation

real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_decay_width = 0.01

real (8), dimension(0:ptl_nsp_max) src_module::src_decay_width1 = 0.01

real (8) src_module::src_decay_width1_e = 0.01

real (8), dimension(0:ptl_nsp_max) src_module::src_decay_width2 = 0.01

real (8) src_module::src_decay_width2_e = 0.01

real (8), dimension(0:ptl_nsp_max) src_module::src_decay_width3 = 0.01

real (8) src_module::src_decay_width3_e = 0.01

real (8), dimension(0:ptl_nsp_max) src_module::src_decay_width4 = 0.01

real (8) src_module::src_decay_width4_e = 0.01

real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_heat_power = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_heat_power1 = 0D0

real (8) src_module::src_heat_power1_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_heat_power2 = 0D0

real (8) src_module::src_heat_power2_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_heat_power3 = 0D0

real (8) src_module::src_heat_power3_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_heat_power4 = 0D0

real (8) src_module::src_heat_power4_e = 0D0

integer, dimension(src_nmax,0:ptl_nsp_max) src_module::src_ishape = -1

integer, dimension(0:ptl_nsp_max) src_module::src_ishape1 =1

integer src_module::src_ishape1_e =1

integer, dimension(0:ptl_nsp_max) src_module::src_ishape2 =1

integer src_module::src_ishape2_e =1

integer, dimension(0:ptl_nsp_max) src_module::src_ishape3 =1

integer src_module::src_ishape3_e =1

integer, dimension(0:ptl_nsp_max) src_module::src_ishape4 =1

integer src_module::src_ishape4_e =1

integer, dimension(0:ptl_nsp_max) src_module::src_narea = 1

integer src_module::src_narea_e = 0

integer src_module::src_niter = 10

integer, parameter src_module::src_nmax =4

integer src_module::src_nsubsection = 10

logical src_module::src_pellet_on = .false.

On/off switch for pellet ablation.

integer src_module::src_period = 10

real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_pin = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_pin1 = 0D0

real (8) src_module::src_pin1_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_pin2 = 1.04

real (8) src_module::src_pin2_e = 1.04

real (8), dimension(0:ptl_nsp_max) src_module::src_pin3 = 0D0

real (8) src_module::src_pin3_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_pin4 = 0D0

real (8) src_module::src_pin4_e = 0D0

real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_pout = -1D0

real (8), dimension(0:ptl_nsp_max) src_module::src_pout1 = 0.01

real (8) src_module::src_pout1_e = 0.01

real (8), dimension(0:ptl_nsp_max) src_module::src_pout2 = 1.05

real (8) src_module::src_pout2_e = 1.05

real (8), dimension(0:ptl_nsp_max) src_module::src_pout3 = -1D0

real (8) src_module::src_pout3_e = -1D0

real (8), dimension(0:ptl_nsp_max) src_module::src_pout4 = -1D0

real (8) src_module::src_pout4_e = -1D0

real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_r_begin = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_r_begin1 = 0D0

real (8) src_module::src_r_begin1_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_r_begin2 = 0D0

real (8) src_module::src_r_begin2_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_r_begin3 = 0D0

real (8) src_module::src_r_begin3_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_r_begin4 = 0D0

real (8) src_module::src_r_begin4_e = 0D0

real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_radius =0.1

real (8), dimension(0:ptl_nsp_max) src_module::src_radius1 =0.1

real (8), dimension(0:ptl_nsp_max) src_module::src_radius2 =0.1

real (8), dimension(0:ptl_nsp_max) src_module::src_radius3 =0.1

real (8), dimension(0:ptl_nsp_max) src_module::src_radius4 =0.1

integer, dimension(src_nmax,0:ptl_nsp_max) src_module::src_special_mode = -1

integer, dimension(0:ptl_nsp_max) src_module::src_special_mode1 =0

integer src_module::src_special_mode1_e =0

integer, dimension(0:ptl_nsp_max) src_module::src_special_mode2 =0

integer src_module::src_special_mode2_e =0

integer, dimension(0:ptl_nsp_max) src_module::src_special_mode3 =0

integer src_module::src_special_mode3_e =0

integer, dimension(0:ptl_nsp_max) src_module::src_special_mode4 =0

integer src_module::src_special_mode4_e =0

real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_torque = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_torque1 = 0D0

real (8) src_module::src_torque1_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_torque2 = 0D0

real (8) src_module::src_torque2_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_torque3 = 0D0

real (8) src_module::src_torque3_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_torque4 = 0D0

real (8) src_module::src_torque4_e = 0D0

real (8), dimension(src_nmax,0:ptl_nsp_max) src_module::src_z_begin = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_z_begin1 = 0D0

real (8) src_module::src_z_begin1_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_z_begin2 = 0D0

real (8) src_module::src_z_begin2_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_z_begin3 = 0D0

real (8) src_module::src_z_begin3_e = 0D0

real (8), dimension(0:ptl_nsp_max) src_module::src_z_begin4 = 0D0

real (8) src_module::src_z_begin4_e = 0D0

---

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

• /u/gitlab-xgc/builds/YGMz2TJ8/0/xgc/XGC-Devel/XGC_core/module.F90