<HTML>
<HEAD>
<TITLE>R.flow again</TITLE>
</HEAD>
<BODY>
<FONT FACE="Verdana, Helvetica, Arial"><SPAN DEFANGED_STYLE='font-size:12.0px'>OK, now something even stranger is happening with r.flow.<BR>
<BR>
I just did a script to create a net erosion/deposition map using USPED. I’ve tested it on the Spearfish data set. It includes r.flow, running from the CLI of course.<BR>
<BR>
If I zoom into to a very small area (205x172), it works like a charm. But if I zoom out a little bit, r.flow bombs with the error below.<BR>
<BR>
If I try the same zoom levels with the CLI for r.flow, it works fine. Both are actually running r.flow via the CLI. However, the script is started from a tcltk dialog. Does anyone have any idea what is going on here? This script is nice to automate a tedious set of calculations.<BR>
<BR>
Michael<BR>
<BR>
<BR>
<HR ALIGN=CENTER SIZE="3" WIDTH="95%"><BR>
Run from CLI only<BR>
<HR ALIGN=CENTER SIZE="3" WIDTH="95%"><BR>
GRASS 6.1.cvs (spearfish60_valencia):~ > g.region -p<BR>
projection: 1 (UTM)<BR>
zone: 13<BR>
datum: nad27<BR>
ellipsoid: clark66<BR>
north: 4921760<BR>
south: 4919710<BR>
west: 600720<BR>
east: 602440<BR>
nsres: 10<BR>
ewres: 10<BR>
rows: 205<BR>
cols: 172<BR>
GRASS 6.1.cvs (spearfish60_valencia):~ > r.flow elevation.10m@PERMANENT dsout=test<BR>
r.flow Version 13 August 1995, update/fix October 1999<BR>
<BR>
Opening output files...done.<BR>
Allocating memory: elevation, aspect, density, e/w distances, quantization tolerances.<BR>
Reading input files: elevation...<BR>
.<BR>
Precomputing: tangents, e/w distances, quantization tolerances, interpolated border elevatio<BR>
ns, aspects.<BR>
Working...done.<BR>
Writing density file...WARNING: 'cell/test' was found in more mapsets (also found in user1).<BR>
done.<BR>
Closing files...done.<BR>
De-allocating memory...done.<BR>
GRASS 6.1.cvs (spearfish60_valencia):~ > g.region -p<BR>
projection: 1 (UTM)<BR>
zone: 13<BR>
datum: nad27<BR>
ellipsoid: clark66<BR>
north: 4923130<BR>
south: 4918340<BR>
west: 599570<BR>
east: 603590<BR>
nsres: 10<BR>
ewres: 10<BR>
rows: 479<BR>
cols: 402<BR>
GRASS 6.1.cvs (spearfish60_valencia):~ > r.flow elevation.10m@PERMANENT dsout=test<BR>
r.flow Version 13 August 1995, update/fix October 1999<BR>
<BR>
Opening output files...done.<BR>
Allocating memory: elevation, aspect, density, e/w distances, quantization tolerances.<BR>
Reading input files: elevation...<BR>
.<BR>
Precomputing: tangents, e/w distances, quantization tolerances, interpolated border elevatio<BR>
ns, aspects.<BR>
Working...done.<BR>
Writing density file...WARNING: 'cell/test' was found in more mapsets (also found in user1).<BR>
done.<BR>
Closing files...done.<BR>
De-allocating memory...done.<BR>
GRASS 6.1.cvs (spearfish60_valencia):~ > <BR>
<BR>
<HR ALIGN=CENTER SIZE="3" WIDTH="95%">Run from script at 479x472 (as above) and r.flow bombs with the following message<BR>
<BR>
<HR ALIGN=CENTER SIZE="3" WIDTH="95%">Opening output files...done.<BR>
Allocating memory: elevation, aspect, density, e/w distances, quantization tolerances.<BR>
Reading input files: elevation...<BR>
.<BR>
Precomputing: tangents, e/w distances, quantization tolerances, interpolated border elevatio<BR>
ns, aspects.<BR>
Working...done.<BR>
Writing density file...WARNING: 'cell/test' was found in more mapsets (also found in user1).<BR>
done.<BR>
Closing files...done.<BR>
De-allocating memory...done.<BR>
GRASS 6.1.cvs (spearfish60_valencia):~ > r.usped &<BR>
[14] 2283<BR>
[13] Exit 1 r.usped<BR>
GRASS 6.1.cvs (spearfish60_valencia):~ > too many nested evaluations (infinite loop?)<BR>
(procedure "GlobalVar::exists" line 1)<BR>
invoked from within<BR>
"GlobalVar::exists $_widget($path,var)"<BR>
(procedure "ProgressBar::_modify" line 4)<BR>
invoked from within<BR>
"ProgressBar::_modify .progress"<BR>
("eval" body line 1)<BR>
invoked from within<BR>
"eval ProgressBar::$cmd .progress $args"<BR>
(procedure ".progress" line 1)<BR>
invoked from within<BR>
"$opt($dlg,progress) _modify"<BR>
(procedure "progress" line 7)<BR>
invoked from within<BR>
"progress $dlg $val"<BR>
invoked from within<BR>
"if [eof $fh] {<BR>
close $fh<BR>
} else {<BR>
set str [gets $fh]<BR>
append str "\n"<BR>
if { [fblocked $fh] } { set str [read $fh] }<BR>
while {[set idx [string f..."<BR>
(procedure "prnout" line 5)<BR>
invoked from within<BR>
"prnout 1 file16"<BR>
<BR>
<HR ALIGN=CENTER SIZE="3" WIDTH="95%">Reduce region to 205x172 and run again from same script<BR>
<BR>
<HR ALIGN=CENTER SIZE="3" WIDTH="95%">Works fine<BR>
<BR>
<BR>
Michael<BR>
__________________________________________<BR>
Michael Barton, Professor of Anthropology<BR>
School of Human Evolution and Social Change<BR>
Arizona State University<BR>
Tempe, AZ 85287-2402<BR>
<BR>
phone: 480-965-6213<BR>
fax: 480-965-7671<BR>
www: <a href="http://www.public.asu.edu/~cmbarton">http://www.public.asu.edu/~cmbarton</a> <BR>
<BR>
</SPAN></FONT>
</BODY>
</HTML>