14 PetscErrorCode PhysicsContext_MR(MPI_Comm comm, Ceed ceed, Units *units, CeedQFunctionContext *ctx)…  in PhysicsContext_MR()  argument
19   PetscCall(PetscMalloc1(1, units));  in PhysicsContext_MR()
21   PetscCall(ProcessPhysics_MR(comm, phys, *units));  in PhysicsContext_MR()
65 PetscErrorCode ProcessPhysics_MR(MPI_Comm comm, Physics_MR phys, Units units) {  in ProcessPhysics_MR()  argument
70   units->meter    = 1;  // 1 meter in scaled length units  in ProcessPhysics_MR()
71   units->second   = 1;  // 1 second in scaled time units  in ProcessPhysics_MR()
72   units->kilogram = 1;  // 1 kilogram in scaled mass units  in ProcessPhysics_MR()
88 …onsScalar("-units_meter", "1 meter in scaled length units", NULL, units->meter, &units->meter, NUL…  in ProcessPhysics_MR()
89   units->meter = fabs(units->meter);  in ProcessPhysics_MR()
91 …onsScalar("-units_second", "1 second in scaled time units", NULL, units->second, &units->second, N…  in ProcessPhysics_MR()
92   units->second = fabs(units->second);  in ProcessPhysics_MR()
94 …alar("-units_kilogram", "1 kilogram in scaled mass units", NULL, units->kilogram, &units->kilogram…  in ProcessPhysics_MR()
95   units->kilogram = fabs(units->kilogram);  in ProcessPhysics_MR()
100   units->Pascal = units->kilogram / (units->meter * PetscSqr(units->second));  in ProcessPhysics_MR()
103   phys->mu_1 *= units->Pascal;  in ProcessPhysics_MR()
104   phys->mu_2 *= units->Pascal;  in ProcessPhysics_MR()
105   phys->lambda *= units->Pascal;  in ProcessPhysics_MR()