Lines Matching refs:fract
97 PetscScalar fract; /* fraction of sky covered by clouds */ member
234 user.fract = put.fr; /* fraction of sky covered by clouds */ in main()
348 …s(PetscScalar sfctemp, PetscScalar airtemp, PetscScalar emma, PetscScalar fract, PetscScalar cloud… in calcfluxs() argument
351 …*flux = SIG * ((EMMSFC * emma * PetscPowScalarInt(airtemp, 4)) + (EMMSFC * fract * (1 - emma) * Pe… in calcfluxs()
458 extern PetscScalar cloud(PetscScalar fract) in cloud() argument
463 if (fract >= 0.9) emma = 1; in cloud()
464 else if (0.9 > fract && fract >= 0.8) emma = 0.9; in cloud()
465 else if (0.8 > fract && fract >= 0.7) emma = 0.85; in cloud()
466 else if (0.7 > fract && fract >= 0.6) emma = 0.75; in cloud()
467 else if (0.6 > fract && fract >= 0.5) emma = 0.65; in cloud()
468 else if (0.4 > fract && fract >= 0.3) emma = emma * 1.086956; in cloud()
620 …PetscScalar fract = user->fract; /* fraction of the sky covered b… in RhsFunc() local
672 …PetscCall(calcfluxs(sfctemp1, airtemp, emma, fract, Tc, &fsfc1)); /* calculates surface net … in RhsFunc()