Skip to content
Snippets Groups Projects
Commit 50b92a52 authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Write `SHPC*` instead of `SHP_triplet_*`

Write `SHPC*` instead of `SHP_triplet_*` directories.
parent 26a9f9cd
No related branches found
No related tags found
No related merge requests found
......@@ -133,7 +133,7 @@ program eddy_graph
call open_edge_file(rank)
! We do not write the title line. That will be handled by eddy_graph.sh.
write(unit = file, fmt = '("SHP_triplet_", i0)') rank
write(unit = file, fmt = '("SHPC_", i0)') rank
call shp_tr_create(hshp_interp, shp_tr_dir = trim(file))
call init_interpolated_eddy
......
......@@ -17,8 +17,8 @@ rank=0
while ((rank < $1))
do
rm -rf SHP_triplet_$rank
mkdir SHP_triplet_$rank
rm -rf SHPC_$rank
mkdir SHPC_$rank
((rank += 1))
done
......@@ -59,21 +59,21 @@ done
echo "Created files \"number_eddies.csv\", \"edgelist_cyclo.csv\", " \
"\"edgelist_anti.csv\" and \"isolated_nodes.txt\"."
rm -rf SHP_triplet
mv SHP_triplet_0 SHP_triplet
rm -rf SHPC
mv SHPC_0 SHPC
rank=1
while ((rank < $1))
do
for my_base in extremum outermost_contour max_speed_contour
do
shpcat SHP_triplet_$rank/$my_base SHP_triplet/$my_base
dbfcat SHP_triplet_$rank/$my_base SHP_triplet/$my_base
shpcat SHPC_$rank/$my_base SHPC/$my_base
dbfcat SHPC_$rank/$my_base SHPC/$my_base
done
rm -r SHP_triplet_$rank
rm -r SHPC_$rank
((rank += 1))
done
cp $2/grid_nml.txt SHP_triplet
echo "Created directory \"SHP_triplet\"."
cp $2/grid_nml.txt SHPC
echo "Created directory \"SHPC\"."
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment