init_global_variables Subroutine

public subroutine init_global_variables()

Initialise global variables

Arguments

None

Contents

Source Code


Source Code

  subroutine init_global_variables
    !! Initialise global variables
    implicit none

    icase = 'Steady-state tokamak model'
    runtitle = "Run Title (change this line using input variable 'runtitle')"
    verbose = 0
    run_tests = 0
    maxcal = 200
    fileprefix = ""
    output_prefix = ""
    xlabel = ""
    vlabel = ""
    xlabel_2 = ""
    vlabel_2 = ""
    iscan_global = 0
    convergence_parameter = 0.0D0
  end subroutine init_global_variables