ifestr Subroutine

public subroutine ifestr()

Routine to calculate the support structural masses for the core of an Inertial Fusion Energy power plant author: P J Knight, CCFE, Culham Science Centre This routine calculates the support structural masses for the core of an Inertial Fusion Energy power plant.

In fact, the output masses are all trivially zero, as they are magnetic fusion specific. F/MI/PJK/LOGBOOK12, p.87

Arguments

None

Contents

Source Code


Source Code

  subroutine ifestr
    !! Routine to calculate the support structural masses for the core of
    !! an Inertial Fusion Energy power plant
    !! author: P J Knight, CCFE, Culham Science Centre
    !! This routine calculates the support structural masses for the core of
    !! an Inertial Fusion Energy power plant.
    !! <P>In fact, the output masses are all trivially zero, as they are
    !! magnetic fusion specific. F/MI/PJK/LOGBOOK12, p.87
    !!
    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    use structure_variables, only: aintmass, clgsmass, coldmass, fncmass, gsmass

    implicit none

    !  Set all outputs to zero, as they are magnetic fusion specific
    aintmass = 0.0D0
    clgsmass = 0.0D0
    coldmass = 0.0D0
    fncmass  = 0.0D0
    gsmass   = 0.0D0

  end subroutine ifestr