14 PetscErrorCode PhysicsContext_NH(MPI_Comm comm, Ceed ceed, Units *units, CeedQFunctionContext *ctx)…  in PhysicsContext_NH()  argument
19   PetscCall(PetscMalloc1(1, units));  in PhysicsContext_NH()
21   PetscCall(ProcessPhysics_NH(comm, phys, *units));  in PhysicsContext_NH()
62 PetscErrorCode ProcessPhysics_NH(MPI_Comm comm, Physics_NH phys, Units units) {  in ProcessPhysics_NH()  argument
67   units->meter         = 1;  // 1 meter in scaled length units  in ProcessPhysics_NH()
68   units->second        = 1;  // 1 second in scaled time units  in ProcessPhysics_NH()
69   units->kilogram      = 1;  // 1 kilogram in scaled mass units  in ProcessPhysics_NH()
79 …onsScalar("-units_meter", "1 meter in scaled length units", NULL, units->meter, &units->meter, NUL…  in ProcessPhysics_NH()
80   units->meter = fabs(units->meter);  in ProcessPhysics_NH()
82 …onsScalar("-units_second", "1 second in scaled time units", NULL, units->second, &units->second, N…  in ProcessPhysics_NH()
83   units->second = fabs(units->second);  in ProcessPhysics_NH()
85 …alar("-units_kilogram", "1 kilogram in scaled mass units", NULL, units->kilogram, &units->kilogram…  in ProcessPhysics_NH()
86   units->kilogram = fabs(units->kilogram);  in ProcessPhysics_NH()
99   units->Pascal = units->kilogram / (units->meter * PetscSqr(units->second));  in ProcessPhysics_NH()
102   phys->E *= units->Pascal;  in ProcessPhysics_NH()