7342566ac0
This adds a single switch to configure GRAY for realtime operation. In realtime a single ray is traced until absorption reaches ≈50% of the total. The simulation is stopped immediately after returning only the position (as ρ_p=√ψ) of the peak. So, no post-processing is performed at all. In addition: - all outputs units are inactivated (equivalent to passing --units 0); - current drive computation is disabled (ecrh_cd.ieccd=0); - absorption is computed in weakly relativistic approximation (ecrh_cd.iwarm=1); - reflections and multiple plasma passes are disabled;
31 lines
922 B
Bash
31 lines
922 B
Bash
#!/bin/sh
|
|
|
|
# This script generates the very repetitive code for parsing the
|
|
# GRAY parameters from a string. The output is embedded
|
|
# into gray_params.f90 using a CPP include directive.
|
|
|
|
sets='antenna equilibrium profiles raytracing ecrh_cd output misc'
|
|
|
|
# shellcheck disable=SC2034
|
|
{
|
|
antenna='alpha beta power psi chi iox ibeam filenm fghz pos w ri phi'
|
|
equilibrium='ssplps ssplf factb sgnb sgni ixp iequil icocos ipsinorm idesc ifreefmt filenm'
|
|
profiles='psnbnd sspld factne factte iscal irho iprof filenm'
|
|
raytracing='rwmax dst nrayr nrayth nstep igrad idst ipass ipol integrator adaptive_step realtime'
|
|
ecrh_cd='iwarm ilarm imx ieccd'
|
|
output='ipec nrho istpr istpl'
|
|
misc='rwall'
|
|
}
|
|
|
|
deref() { eval "echo \$$1"; }
|
|
|
|
for set in $sets; do
|
|
for param in $(deref "$set"); do
|
|
cat <<EOF
|
|
case ('$set.$param')
|
|
read (value, *, iostat=err) params%$set%$param
|
|
if (err > 0) err = ERR_VALUE
|
|
EOF
|
|
done
|
|
done
|