42   PetscBag     bag;     /* Holds problem parameters */  member
3008   PetscBag   bag;  in SetUpParameters()  local
3013   PetscCall(PetscBagGetData(user->bag, &p));  in SetUpParameters()
3014   PetscCall(PetscBagSetName(user->bag, "par", "Problem parameters"));  in SetUpParameters()
3015   bag = user->bag;  in SetUpParameters()
3018     PetscCall(PetscBagRegisterInt(bag, &p->n, 1, "n", "x-wavelength for forcing variation"));  in SetUpParameters()
3019     PetscCall(PetscBagRegisterInt(bag, &p->m, 1, "m", "z-wavelength for forcing variation"));  in SetUpParameters()
3020 …PetscCall(PetscBagRegisterReal(bag, &p->B, 1.0, "B", "Exponential scale for viscosity variation"));  in SetUpParameters()
3024     PetscCall(PetscBagRegisterInt(bag, &p->n, 1, "n", "x-wavelength for forcing variation"));  in SetUpParameters()
3025     PetscCall(PetscBagRegisterInt(bag, &p->m, 1, "m", "z-wavelength for forcing variation"));  in SetUpParameters()
3026     PetscCall(PetscBagRegisterReal(bag, &p->etaA, 1.0, "etaA", "Viscosity for x < xc"));  in SetUpParameters()
3027     PetscCall(PetscBagRegisterReal(bag, &p->etaB, 1.0, "etaB", "Viscosity for x > xc"));  in SetUpParameters()
3028     PetscCall(PetscBagRegisterReal(bag, &p->xc, 0.5, "xc", "x-coordinate of the viscosity jump"));  in SetUpParameters()
3033   PetscCall(PetscBagSetFromOptions(bag));  in SetUpParameters()
3034   PetscCall(PetscBagViewFromOptions(bag, NULL, "-param_view"));  in SetUpParameters()
3120   PetscCall(PetscBagGetData(user->bag, &data));  in SetupProblem()
3147     PetscCall(PetscBagGetData(user->bag, &param));  in SetupProblem()
3341   PetscCall(PetscBagCreate(PETSC_COMM_WORLD, sizeof(Parameter), &user.bag));  in main()
3399   PetscCall(PetscBagDestroy(&user.bag));  in main()