init_ccfe_hcpb_module Subroutine

public subroutine init_ccfe_hcpb_module()

Initialise module variables

Arguments

None

Contents

Source Code


Source Code

  subroutine init_ccfe_hcpb_module
    !! Initialise module variables
    implicit none

    ip = 0
    ofile = 0
    armour_density = 0.0D0
    fw_density = 0.0D0
    blanket_density = 0.0D0
    shield_density = 0.0D0
    vv_density = 0.0D0
    x_blanket = 0.0D0
    x_shield = 0.0D0
    tfc_nuc_heating = 0.0D0
    fw_armour_u_nuc_heating = 0.0D0
    shld_u_nuc_heating = 0.0D0
    exp_blanket = 0.0D0
    exp_shield1 = 0.0D0
    exp_shield2 = 0.0D0
  end subroutine init_ccfe_hcpb_module