init_primary_pumping_variables Subroutine

public subroutine init_primary_pumping_variables()

Initialise module variables initialise variables with default values in the absence of a value in the input file. cp_he = 5.195.0D3 ! Specific Heat J/kg K (disabled at the moment)

Arguments

None

Contents


Source Code

  subroutine init_primary_pumping_variables
    !! Initialise module variables
    implicit none

    !! initialise variables with default values in the absence of a value in the input file.
    gamma_he = 1.667D0 ! Ratio of specific heats  Helium
    !! cp_he = 5.195.0D3 ! Specific Heat J/kg K (disabled at the moment)
    t_in_bb = 573.13D0 ! K
    t_out_bb = 773.13D0 ! K
    p_he = 8.0D6 ! Pa
    dp_he = 5.5D5 ! Pa
    dp_fw_blkt = 1.5D5 ! Pa
    dp_fw = 1.5D5 ! Pa
    dp_blkt = 3.5D3 ! Pa
    dp_liq = 1.0D7 ! Pa
    htpmw_fw_blkt = 0.0D0

  end subroutine init_primary_pumping_variables