init_heat_transport_variables Subroutine

public subroutine init_heat_transport_variables()

Initialise module variables

Arguments

None

Contents


Source Code

    subroutine init_heat_transport_variables
      !! Initialise module variables
      implicit none

      baseel = 5.0D6
      crypmw = 0.0D0
      crypmw_max = 50.0D0
      f_crypmw = 1.0D0
      etatf = 0.9D0
      etath = 0.35D0
      etath_liq = 0.35D0
      fachtmw = 0.0D0
      fcsht = 0.0D0
      fgrosbop = 0.0D0
      fmgdmw = 0.0D0
      fpumpblkt = 0.005D0
      fpumpdiv = 0.005D0
      fpumpfw = 0.005D0
      fpumpshld = 0.005D0
      htpmw_min = 0.0D0
      helpow = 0.0D0
      helpow_cryal = 0.0D0
      htpmw = 0.0D0
      htpmw_blkt = 0.0D0
      htpmw_blkt_liq = 0.0D0
      htpmw_blkt_tot = 0.0D0
      htpmw_div = 0.0D0
      htpmw_fw = 0.0D0
      htpmw_shld = 0.0D0
      htpsecmw = 0.0D0
      ipowerflow = 1
      iprimshld = 1
      nphx = 0
      pacpmw = 0.0D0
      peakmva = 0.0D0
      pfwdiv = 0.0D0
      pgrossmw = 0.0D0
      pinjht = 0.0D0
      pinjmax = 120.0D0
      pinjwp = 0.0D0
      pinjwpfix = 0.0D0
      pnetelmw = 0.0D0
      precircmw = 0.0D0
      priheat = 0.0D0
      psecdiv = 0.0D0
      psechcd = 0.0D0
      psechtmw = 0.0D0
      pseclossmw = 0.0D0
      psecshld = 0.0D0
      pthermmw = 0.0D0
      pwpm2 = 150.0D0
      tfacpd = 0.0D0
      tlvpmw = 0.0D0
      trithtmw = 15.0D0
      tturb = 0.0D0
      vachtmw = 0.5D0
    end subroutine init_heat_transport_variables