Searched refs:fault_depth (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/snes/tutorials/ |
| H A D | ex30.c | 85 PetscReal L, V, lid_depth, fault_depth; member
769 param->fault_depth = 35.0; /* km */ in SetParams()
775 PetscCall(PetscOptionsGetReal(NULL, NULL, "-fault_depth", ¶m->fault_depth, NULL)); in SetParams()
874 param->fault_depth = param->fault_depth / param->L; /* dim'less */ in SetParams()
878 grid->jfault = (PetscInt)(param->fault_depth / grid->dz); /* gridcells */ in SetParams()
880 param->fault_depth = grid->jfault * grid->dz; /* dim'less */ in SetParams()
904 …th = %5.2f km\n", (double)(param->lid_depth * param->L), (double)(param->fault_depth * param->L))); in ReportParams()
1047 PetscCall(VecSetValue(pars, 11, (PetscScalar)param->fault_depth, INSERT_VALUES)); in DoOutput()
|