init_itv_118 Subroutine

public subroutine init_itv_118()

Uses

  • (118) fpsep: f-value to ensure separatrix power is less than value from Kallenbach divertor (f-value for equation 69)

    Arguments

    None

    Contents

    Source Code


    Source Code

      subroutine init_itv_118
        !! <LI> (118) fpsep: f-value to ensure separatrix power is less than
        use numerics, only: lablxc, boundl, boundu
        implicit none
        !!            value from Kallenbach divertor (f-value for equation 69)
          lablxc(118) = 'fpsep         '
        boundl(118) = 0.001D0
        boundu(118) = 1.000D0
      end subroutine init_itv_118