Changeset 4967 for anuga_core/source/anuga/advection/advection_ext.c
- Timestamp:
- Jan 23, 2008, 4:24:11 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
anuga_core/source/anuga/advection/advection_ext.c
r4964 r4967 1 1 #include "math.h" 2 #include "stdio.h" 2 3 3 voidcompute_fluxes(double* stage_edge,4 5 4 double compute_fluxes(double* stage_edge, 5 double* stage_bdry, 6 double* stage_update, 6 7 int* neighbours, 7 8 8 int* neighbour_edges, 9 double* normals, 9 10 double* areas, 10 11 12 int*tri_full_flag,13 double huge_timestep,14 double timestep,15 16 11 double* radii, 12 double* edgelengths, 13 int* tri_full_flag, 14 double huge_timestep, 15 double max_timestep, 16 double* v, 17 int N){ 17 18 //Loop 18 19 … … 23 24 double max_speed; 24 25 double optimal_timestep; 25 int I,M,K; 26 int k,i,j,n,m; 27 26 double timestep; 27 int I,M,K; 28 int k,i,j,n,m; 29 30 timestep = max_timestep; 31 32 printf("N = %i\n",N); 33 printf("timestep = %g\n",timestep); 34 printf("huge_timestep = %g\n",huge_timestep); 35 28 36 29 37 for (k=0; k<N; k++){ … … 82 90 83 91 } 92 93 printf("timestep out = %g\n",timestep); 94 95 return timestep; 84 96 } 85 97
Note: See TracChangeset
for help on using the changeset viewer.