94   PetscScalar pressure1;      /* sea level pressure */  member
154   PetscScalar   pressure1 = 101300; /* surface pressure */  in main()  local
207   x        = calcmixingr(dewtemp, pressure1);  in main()
208   mixratio = calcmixingr(sfctemp, pressure1);  in main()
240   user.pressure1      = pressure1;      /* sea level pressure */  in main()
375 …PetscScalar sfctemp, PetscScalar dewtemp, PetscScalar wind, PetscScalar pressure1, PetscScalar *la…  in latentflux()  argument
391   mr     = calcmixingr(sfctemp, pressure1); /* calculates saturation mixing ratio */  in latentflux()
393   mr     = calcmixingr(dewtemp, pressure1); /* calculates mixing ratio */  in latentflux()
400 PetscErrorCode potential_temperature(PetscScalar temp, PetscScalar pressure1, PetscScalar pressure2…  in potential_temperature()  argument
414   pavg     = ((0.7 * pressure1) + pressure2) / 2;             /* calculates simple average press */  in potential_temperature()
415   *pottemp = temp * (PetscPowScalar(pressure1 / pavg, kdry)); /* calculates potential temperature */  in potential_temperature()
418 extern PetscScalar calcmixingr(PetscScalar dtemp, PetscScalar pressure1)  in calcmixingr()  argument
426 …mixratio = (0.622 * e) / (pressure1 - e);                                /* computes mixing ratio …  in calcmixingr()
618   PetscScalar pressure1      = user->pressure1;                     /* sea level pressure */  in RhsFunc()  local
674 …PetscCall(latentflux(sfctemp1, dewtemp, wind, pressure1, &latentheat)); /* calculates latent heat …  in RhsFunc()