[cig-commits] [commit] rajesh-petsc-schur: More fixes to get things compiling (5748cf9)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Nov 5 19:15:21 PST 2014
Repository : https://github.com/geodynamics/citcoms
On branch : rajesh-petsc-schur
Link : https://github.com/geodynamics/citcoms/compare/464e1b32299b15819f93efd98d969cddb84dfe51...f97ae655a50bdbd6dac1923a3471ee4dae178fbd
>---------------------------------------------------------------
commit 5748cf922b136de1d46b271ced7d90ce3a958b07
Author: Eric Heien <emheien at ucdavis.edu>
Date: Fri Oct 10 13:40:11 2014 -0700
More fixes to get things compiling
>---------------------------------------------------------------
5748cf922b136de1d46b271ced7d90ce3a958b07
lib/Instructions.c | 4 ++--
lib/prototypes.h | 2 ++
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/lib/Instructions.c b/lib/Instructions.c
index 309dff6..85c49ff 100644
--- a/lib/Instructions.c
+++ b/lib/Instructions.c
@@ -2140,8 +2140,8 @@ void print_all_config_parameters(struct All_variables *E)
fprintf(fp, "\n");
}
fprintf(fp, "itracer_warnings=%d\n", E->trace.itracer_warnings);
- fprintf(fp, "regular_grid_deltheta=%g\n", E->trace.deltheta[0]);
- fprintf(fp, "regular_grid_delphi=%g\n", E->trace.delphi[0]);
+ fprintf(fp, "regular_grid_deltheta=%g\n", E->trace.deltheta);
+ fprintf(fp, "regular_grid_delphi=%g\n", E->trace.delphi);
fprintf(fp, "chemical_buoyancy=%d\n", E->composition.ichemical_buoyancy);
fprintf(fp, "buoy_type=%d\n", E->composition.ibuoy_type);
fprintf(fp, "buoyancy_ratio=");
diff --git a/lib/prototypes.h b/lib/prototypes.h
index b9e4433..33b8d71 100644
--- a/lib/prototypes.h
+++ b/lib/prototypes.h
@@ -93,8 +93,10 @@ void convection_boundary_conditions(struct All_variables *);
double determine_model_net_rotation(struct All_variables *, double *);
double determine_netr_tp(float, float, float, float, float, int, double *, double *);
void sub_netr(float, float, float, float *, float *, double *);
+#ifdef USE_GGRD
void hc_ludcmp_3x3(HC_PREC [3][3], int, int *);
void hc_lubksb_3x3(HC_PREC [3][3], int, int *, HC_PREC *);
+#endif
/* Drive_solvers.c */
void general_stokes_solver_setup(struct All_variables *);
#ifdef USE_PETSC
More information about the CIG-COMMITS
mailing list