Kwa_Calibration

#! /bin/bash
# Kinematic: calibracion del nivel de agregacion de ancho de cauce (Kwa)
# Se inicia con un valor de 50 que debe estar en las líneas de los archivo involucrados.
# Luego de la iteración se vuelven a modificar los archivos con el valor inical
# Este scrip busca el valor 50 en la línea 6 y la línea 11 del archivo Can-R10.par y los reemplaza iterativamente.
# Sin embargo, este nro (50) debe estar precedido  primero por "B_" y luego por "G_"de modo que la iteración debería reescribir el archivo Can-R10.par 16 veces: B_50, B_100 hasta B_400 y luego con G_50 hasta G_400


n=($(seq 50 50 400))
p=1

for i in ${n[@]:0:8}
do
    sed -i "6s/${n[p-1]}/$i/" Can-R10.par
    sed -i "11s/${n[p-1]}/$i/" Can-R10.par
    ./lisflood -v Can-R10.par 1> ./Calibracion_Kwa/Salidas/Salida_wa=$i.txt
    p=$(( $p + 1 ))
done

sed -i "6s/$i/50/" Can-R10.par
sed -i "11s/$i/50/" Can-R10.par