Files
sea/tcl/fillgh.tcl
2024-05-03 08:48:34 +02:00

34 lines
499 B
Tcl

clientput "start filling the jtccr-gh"
clientput "configure compressor automatic..."
jtccr p2min 0.12
jtccr p2lim 0.5
jtccr p2max 0.9
jtccr p3max 6.6
jtccr plow 4
clientput "start compressor automatic"
jtccr 1
while {[result p3] < 6.0} {
wait 30
clientput "HP dump at [result p3] bar.."
clientput ".. filling"
wait 10
}
jtccr 0
while {[result p2] < 1.01 } {
clientput "filling LP dump.."
wait 30
}
clientput "open v6 and v7"
if {[result p2] > 1.01} {
v v6 1
v v7 1
}
clientput "done"