ifevac Subroutine

public 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.

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

Arguments

None

Contents

Source Code


Source Code

  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