Lines Matching refs:slab_dip

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", &param->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()
1043       PetscCall(VecSetValue(pars, 7, (PetscScalar)param->slab_dip, INSERT_VALUES));  in DoOutput()