initialise_cables Subroutine

public subroutine initialise_cables()

Arguments

None

Contents

Source Code


Source Code

   subroutine initialise_cables()
      use rebco_variables, only: copper_rrr

      implicit none

      copper%rrr = copper_rrr
      copper%density = 8960.0d0
      hastelloy%density = 8890.0d0
      ! Solder: 60EN ie 60%Sn + 40%Pb solder (approx the same as eutectic 63/37)
      solder%density = 8400.0d0
      jacket%density = 8000.0d0       ! 304 stainless
   end subroutine initialise_cables