|
@@ -18,28 +18,20 @@ int com_line_Gwater(INPUT * input, OUTPUT * output)
|
|
|
input->haf_name = (char *)G_calloc(40, sizeof(char));
|
|
|
input->accum_name = (char *)G_calloc(40, sizeof(char));
|
|
|
|
|
|
- G_message(_
|
|
|
- ("\nThis set of questions will organize the command line for the"));
|
|
|
+ G_message(_("\nThis set of questions will organize the command line for the"));
|
|
|
G_message(_("%s program to run properly for your application."),
|
|
|
NON_NAME);
|
|
|
G_message(_("The first question is whether you want %s to run"),
|
|
|
NON_NAME);
|
|
|
G_message(_("in its fast mode or its slow mode. If you run %s"),
|
|
|
NON_NAME);
|
|
|
- G_message(_
|
|
|
- ("in the fast mode, the computer will finish about 10 times faster"));
|
|
|
- G_message(_
|
|
|
- ("than in the slow mode, but will not allow other programs to run"));
|
|
|
- G_message(_
|
|
|
- ("at the same time. The fast mode also places all of the data into"));
|
|
|
- G_message(_
|
|
|
- ("RAM, which limits the size of window that can be run. The slow"));
|
|
|
- G_message(_
|
|
|
- ("mode uses disk space in the same hard disk partition as where GRASS is"));
|
|
|
- G_message(_
|
|
|
- ("stored. Thus, if the program does not work in the slow mode, you will"));
|
|
|
- G_message(_
|
|
|
- ("need to remove unnecessary files from that partition. The slow mode"));
|
|
|
+ G_message(_("in the fast mode, the computer will finish about 10 times faster"));
|
|
|
+ G_message(_("than in the slow mode, but will not allow other programs to run"));
|
|
|
+ G_message(_("at the same time. The fast mode also places all of the data into"));
|
|
|
+ G_message(_("RAM, which limits the size of window that can be run. The slow"));
|
|
|
+ G_message(_("mode uses disk space in the same hard disk partition as where GRASS is"));
|
|
|
+ G_message(_("stored. Thus, if the program does not work in the slow mode, you will"));
|
|
|
+ G_message(_("need to remove unnecessary files from that partition. The slow mode"));
|
|
|
G_message(_("will allow other processes to run concurrently with %s.\n"),
|
|
|
NON_NAME);
|
|
|
|
|
@@ -72,8 +64,7 @@ int com_line_Gwater(INPUT * input, OUTPUT * output)
|
|
|
"%s/etc/water/%s", G_getenv("GISBASE"), SEG_NAME);
|
|
|
}
|
|
|
|
|
|
- G_message(_
|
|
|
- ("\nIf you hit <return> by itself for the next question, this"));
|
|
|
+ G_message(_("\nIf you hit <return> by itself for the next question, this"));
|
|
|
G_message(_("program will terminate."));
|
|
|
|
|
|
mapset = G_ask_old("What is the name of the elevation map layer?",
|
|
@@ -87,17 +78,12 @@ int com_line_Gwater(INPUT * input, OUTPUT * output)
|
|
|
|
|
|
G_message(_("\nOne of the options for %s is a `depression map'. A"),
|
|
|
prog_name);
|
|
|
- G_message(_
|
|
|
- ("depression map indicates all the locations in the current map window where"));
|
|
|
- G_message(_
|
|
|
- ("water accumulates and does not leave by the edge of the map. Lakes without"));
|
|
|
- G_message(_
|
|
|
- ("outlet streams and sinkholes are examples of `depressions'. If you wish to"));
|
|
|
- G_message(_
|
|
|
- ("have a depression map, prepare a map where non-zero values indicate the"));
|
|
|
+ G_message(_("depression map indicates all the locations in the current map window where"));
|
|
|
+ G_message(_("water accumulates and does not leave by the edge of the map. Lakes without"));
|
|
|
+ G_message(_("outlet streams and sinkholes are examples of `depressions'. If you wish to"));
|
|
|
+ G_message(_("have a depression map, prepare a map where non-zero values indicate the"));
|
|
|
G_message(_("locations where depressions occur.\n"));
|
|
|
- G_message(_
|
|
|
- ("Hit <return> by itself for the next question if there is no depression map."));
|
|
|
+ G_message(_("Hit <return> by itself for the next question if there is no depression map."));
|
|
|
|
|
|
mapset = G_ask_old("What is the name of the depression map layer?",
|
|
|
map_layer, "cell", "cell");
|
|
@@ -108,43 +94,28 @@ int com_line_Gwater(INPUT * input, OUTPUT * output)
|
|
|
com_line_add(&(input->com_line_seg), " de=", map_layer, mapset);
|
|
|
}
|
|
|
|
|
|
- G_message(_
|
|
|
- ("\nThe %s program will divide the elevation map into a number of"),
|
|
|
+ G_message(_("\nThe %s program will divide the elevation map into a number of"),
|
|
|
prog_name);
|
|
|
- G_message(_
|
|
|
- ("watershed basins. The number of watershed basins is indirectly determined"));
|
|
|
- G_message(_
|
|
|
- ("by the `basin threshold' value. The basin threshold is the area necessary for"));
|
|
|
- G_message(_
|
|
|
- ("%s to define a unique watershed basin. This area only applies to"),
|
|
|
+ G_message(_("watershed basins. The number of watershed basins is indirectly determined"));
|
|
|
+ G_message(_("by the `basin threshold' value. The basin threshold is the area necessary for"));
|
|
|
+ G_message(_("%s to define a unique watershed basin. This area only applies to"),
|
|
|
prog_name);
|
|
|
- G_message(_
|
|
|
- ("`exterior drainage basins'. An exterior drainage basin does not have any"));
|
|
|
- G_message(_
|
|
|
- ("drainage basins flowing into it. Interior drainage basin size is determined"));
|
|
|
- G_message(_
|
|
|
- ("by the surface flow going into stream segments between stream interceptions."));
|
|
|
- G_message(_
|
|
|
- ("Thus interior drainage basins can be of any size. The %s program"),
|
|
|
+ G_message(_("`exterior drainage basins'. An exterior drainage basin does not have any"));
|
|
|
+ G_message(_("drainage basins flowing into it. Interior drainage basin size is determined"));
|
|
|
+ G_message(_("by the surface flow going into stream segments between stream interceptions."));
|
|
|
+ G_message(_("Thus interior drainage basins can be of any size. The %s program"),
|
|
|
prog_name);
|
|
|
- G_message(_
|
|
|
- ("also allows the user to relate basin size to potential overland flow"));
|
|
|
- G_message(_
|
|
|
- ("(i.e., areas with low infiltration capacities will need smaller areas to"));
|
|
|
- G_message(_
|
|
|
- ("develop stream channels than neighboring areas with high infiltration rates)."));
|
|
|
- G_message(_
|
|
|
- ("The user can create a map layer with potential overland flow values, and"));
|
|
|
+ G_message(_("also allows the user to relate basin size to potential overland flow"));
|
|
|
+ G_message(_("(i.e., areas with low infiltration capacities will need smaller areas to"));
|
|
|
+ G_message(_("develop stream channels than neighboring areas with high infiltration rates)."));
|
|
|
+ G_message(_("The user can create a map layer with potential overland flow values, and"));
|
|
|
G_message(_("%s will accumulate those values instead of area.\n"),
|
|
|
prog_name);
|
|
|
- G_message(_
|
|
|
- ("What unit of measure will you use for the basin threshold:"));
|
|
|
+ G_message(_("What unit of measure will you use for the basin threshold:"));
|
|
|
|
|
|
do {
|
|
|
- G_message(_
|
|
|
- (" 1) acres, 2) meters sq., 3) miles sq., 4) hectares,"));
|
|
|
- G_message(_
|
|
|
- (" 5) kilometers sq., 6) map cells, 7) overland flow units"));
|
|
|
+ G_message(_(" 1) acres, 2) meters sq., 3) miles sq., 4) hectares,"));
|
|
|
+ G_message(_(" 5) kilometers sq., 6) map cells, 7) overland flow units"));
|
|
|
fprintf(stderr, _("Choose 1-7 or 0 to exit this program: "));
|
|
|
G_gets(map_layer);
|
|
|
sscanf(map_layer, "%d", &i);
|
|
@@ -154,8 +125,7 @@ int com_line_Gwater(INPUT * input, OUTPUT * output)
|
|
|
exit(EXIT_SUCCESS);
|
|
|
output->type_area = (char)i;
|
|
|
|
|
|
- G_message(_
|
|
|
- ("\nHow large an area (or how many overland flow units) must a drainage basin"));
|
|
|
+ G_message(_("\nHow large an area (or how many overland flow units) must a drainage basin"));
|
|
|
fprintf(stderr, _("be for it to be an exterior drainage basin: "));
|
|
|
G_gets(map_layer);
|
|
|
sscanf(map_layer, "%lf", &d);
|
|
@@ -206,8 +176,7 @@ int com_line_Gwater(INPUT * input, OUTPUT * output)
|
|
|
(window->ns_res * window->ew_res), window);
|
|
|
break;
|
|
|
case 7: /* needs an overland flow map */
|
|
|
- G_message(_
|
|
|
- ("\nIf you hit <return> by itself for the next question, this"));
|
|
|
+ G_message(_("\nIf you hit <return> by itself for the next question, this"));
|
|
|
G_message(_("program will terminate."));
|
|
|
mapset = G_ask_old("What is the name of the overland flow map layer?",
|
|
|
map_layer, "cell", "cell");
|
|
@@ -319,13 +288,10 @@ int com_line_Gwater(INPUT * input, OUTPUT * output)
|
|
|
prog_name);
|
|
|
G_message(_("%s to function (stream channels, overland flow aspect, and"),
|
|
|
G_program_name());
|
|
|
- G_message(_
|
|
|
- ("a display version of the accumulation map). %s also has the"),
|
|
|
+ G_message(_("a display version of the accumulation map). %s also has the"),
|
|
|
prog_name);
|
|
|
- G_message(_
|
|
|
- ("ability to generate several variables in the Revised Universal Soil Loss"));
|
|
|
- G_message(_
|
|
|
- ("Equation (Rusle): Slope Length (LS), and Slope Steepness (S).\n"));
|
|
|
+ G_message(_("ability to generate several variables in the Revised Universal Soil Loss"));
|
|
|
+ G_message(_("Equation (Rusle): Slope Length (LS), and Slope Steepness (S).\n"));
|
|
|
|
|
|
sprintf(buf, "Would you like any of these maps to be created?");
|
|
|
if (G_yes(buf, 1)) {
|
|
@@ -376,15 +342,11 @@ int com_line_Gwater(INPUT * input, OUTPUT * output)
|
|
|
}
|
|
|
|
|
|
if (i) {
|
|
|
- G_message(_
|
|
|
- ("\nThe Slope Length factor (LS) and Slope Steepness (S) are influenced by"));
|
|
|
- G_message(_
|
|
|
- ("disturbed land. %s reflects this with an optional map layer or value"),
|
|
|
+ G_message(_("\nThe Slope Length factor (LS) and Slope Steepness (S) are influenced by"));
|
|
|
+ G_message(_("disturbed land. %s reflects this with an optional map layer or value"),
|
|
|
prog_name);
|
|
|
- G_message(_
|
|
|
- ("where the value indicates the percent of disturbed (barren) land in that cell."));
|
|
|
- G_message(_
|
|
|
- ("Type <return> if you do not have a disturbed land map layer."));
|
|
|
+ G_message(_("where the value indicates the percent of disturbed (barren) land in that cell."));
|
|
|
+ G_message(_("Type <return> if you do not have a disturbed land map layer."));
|
|
|
|
|
|
mapset = G_ask_old("", map_layer, "cell", "disturbed land");
|
|
|
if (mapset != NULL) {
|
|
@@ -396,8 +358,7 @@ int com_line_Gwater(INPUT * input, OUTPUT * output)
|
|
|
NULL);
|
|
|
}
|
|
|
else {
|
|
|
- G_message(_
|
|
|
- ("\nType the value indicating the percent of disturbed land. This value will"));
|
|
|
+ G_message(_("\nType the value indicating the percent of disturbed land. This value will"));
|
|
|
G_message(_("be used for every cell in the current region."));
|
|
|
i = -6;
|
|
|
while (i < 0 || i > 100) {
|
|
@@ -412,18 +373,13 @@ int com_line_Gwater(INPUT * input, OUTPUT * output)
|
|
|
}
|
|
|
|
|
|
/* 12345678901234567890123456789012345678901234567890123456789012345678901234567890 */
|
|
|
- G_message(_
|
|
|
- ("\nOverland surface flow only occurs for a set distance before swales form."));
|
|
|
- G_message(_
|
|
|
- ("Because of digital terrain model limitations, %s cannot pick up"),
|
|
|
+ G_message(_("\nOverland surface flow only occurs for a set distance before swales form."));
|
|
|
+ G_message(_("Because of digital terrain model limitations, %s cannot pick up"),
|
|
|
prog_name);
|
|
|
- G_message(_
|
|
|
- ("these swales. %s allows for an input (warning: kludge factor)"),
|
|
|
+ G_message(_("these swales. %s allows for an input (warning: kludge factor)"),
|
|
|
prog_name);
|
|
|
- G_message(_
|
|
|
- ("that prevents the surface flow distance from getting too long. Normally,"));
|
|
|
- G_message(_
|
|
|
- ("maximum slope length is around 600 feet (about 183 meters)."));
|
|
|
+ G_message(_("that prevents the surface flow distance from getting too long. Normally,"));
|
|
|
+ G_message(_("maximum slope length is around 600 feet (about 183 meters)."));
|
|
|
|
|
|
i = -1;
|
|
|
while (i < 0) {
|
|
@@ -438,13 +394,10 @@ int com_line_Gwater(INPUT * input, OUTPUT * output)
|
|
|
com_add(&(input->com_line_seg), " ms=", i);
|
|
|
|
|
|
/* 12345678901234567890123456789012345678901234567890123456789012345678901234567890 */
|
|
|
- G_message(_
|
|
|
- ("\nRoads, ditches, changes in ground cover, and other factors will stop"));
|
|
|
- G_message(_
|
|
|
- ("slope length. You may input a raster map indicating the locations of these"));
|
|
|
+ G_message(_("\nRoads, ditches, changes in ground cover, and other factors will stop"));
|
|
|
+ G_message(_("slope length. You may input a raster map indicating the locations of these"));
|
|
|
G_message(_("blocking factors.\n"));
|
|
|
- G_message(_
|
|
|
- ("Hit <return> by itself for the next question if there is no blocking map."));
|
|
|
+ G_message(_("Hit <return> by itself for the next question if there is no blocking map."));
|
|
|
|
|
|
mapset = G_ask_old("What is the name of the blocking map layer?",
|
|
|
map_layer, "cell", "cell");
|