Searched refs:slab_dip (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/snes/tutorials/ |
| H A D | ex30.c | 83 PetscReal slab_dip, slab_age, slab_velocity, kappa, z_scale; member
765 param->slab_dip = 45.0; in SetParams()
771 PetscCall(PetscOptionsGetReal(NULL, NULL, "-slab_dip", ¶m->slab_dip, NULL)); in SetParams()
777 param->slab_dip = param->slab_dip * PETSC_PI / 180.0; /* radians */ in SetParams()
785 grid->dz = grid->dx * PetscTanReal(param->slab_dip); /* km */ in SetParams()
861 param->sb = PetscSinReal(param->slab_dip); in SetParams()
862 param->cb = PetscCosReal(param->slab_dip); in SetParams()
863 …param->c = param->slab_dip * param->sb / (param->slab_dip * param->slab_dip - param->sb * param->… in SetParams()
864 …param->d = (param->slab_dip * param->cb - param->sb) / (param->slab_dip * param->slab_dip - param… in SetParams()
903 …" Slab dip = %g degrees, Slab velocity = %g cm/yr\n", (double)(param->slab_dip * 180.0 / PETSC_P… in ReportParams()
[all …]
|