Routine to calculate parameters of the vacuum system for an Inertial Fusion Energy power plant author: P J Knight, CCFE, Culham Science Centre This routine calculates the parameters of the vacuum system for an Inertial Fusion Energy power plant.
The calculated values are hard-wired; they are based loosely on those for a tokamak of 6m major radius. F/MI/PJK/LOGBOOK12, p.87
subroutine ifevac
!! Routine to calculate parameters of the vacuum system for an
!! Inertial Fusion Energy power plant
!! author: P J Knight, CCFE, Culham Science Centre
!! This routine calculates the parameters of the vacuum system for an
!! Inertial Fusion Energy power plant.
!! <P>The calculated values are hard-wired; they are based loosely
!! on those for a tokamak of 6m major radius. F/MI/PJK/LOGBOOK12, p.87
!!
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
use vacuum_variables, only: dlscal, nvduct, vacdshm, vcdimax, vpumpn
implicit none
dlscal = 2.0D0
nvduct = 16
vacdshm = 0.0D0
vcdimax = 0.3D0
vpumpn = 32
end subroutine ifevac