# define divertor plate for ITER-FEAT
# derived from equilibrium from Kukushkin Jan 2002

###integer oldecho=echo
###echo=no
# for inboard half of mesh:
grd.nplate1=15
grd.gchange("Mmod",0)
grd.rplate1=[\
  3.96500E+00, 4.06360E+00, 4.29140E+00, 4.44480E+00, 4.48730E+00, \
  4.40860E+00, 4.23980E+00, 4.07090E+00, 4.34190E+00, 4.42400E+00, \
  4.47660E+00, 4.52350E+00, 4.55570E+00, 4.76130E+00, 4.96790E+00]

grd.zplate1=[\
  2.94670E+00, 2.93000E+00, 2.83000E+00, 2.63410E+00, 2.38890E+00, \
  2.15280E+00, 1.88820E+00, 1.62250E+00, 1.37820E+00, 1.40330E+00, \
  1.61430E+00, 1.80290E+00, 1.84040E+00, 1.88310E+00, 1.84590E+00]


# for outboard half of mesh:
grd.nplate2=14
grd.gchange("Mmod",0)

grd.rplate2=[\
  4.96790E+00, 5.14560E+00, 5.26870E+00, 5.26710E+00, \
  5.15840E+00, 5.04220E+00, 5.07300E+00, 5.56490E+00, 5.56450E+00, \
  5.56350E+00, 5.61140E+00, 5.74950E+00, 5.95820E+00, 6.20770E+00]

grd.zplate2=[\
  1.84590E+00, 1.73420E+00, 1.56400E+00, 1.51460E+00, \
  1.31340E+00, 1.09830E+00, 1.02620E+00, 8.91300E-01, 1.24570E+00, \
  1.59910E+00, 1.85160E+00, 2.06830E+00, 2.21830E+00, 2.28010E+00]

###echo=oldecho
