Searched refs:emma (Results 1 – 1 of 1) sorted by relevance
91 PetscScalar emma; /* emission parameter */ member153 PetscScalar emma; /* absorption-emission constant for air */ in main() local190 emma = emission(pwat); /* accounts for radiative effects of water vapor */ in main()238 user.emma = emma; /* emission parameter */ in main()348 PetscErrorCode calcfluxs(PetscScalar sfctemp, PetscScalar airtemp, PetscScalar emma, PetscScalar fr… in calcfluxs() argument351 …*flux = SIG * ((EMMSFC * emma * PetscPowScalarInt(airtemp, 4)) + (EMMSFC * fract * (1 - emma) * Pe… in calcfluxs()355 PetscErrorCode calcfluxa(PetscScalar sfctemp, PetscScalar airtemp, PetscScalar emma, PetscScalar *f… in calcfluxa() argument452 PetscScalar emma; in emission() local454 emma = 0.725 + 0.17 * PetscLog10Real(PetscRealPart(pwat)); in emission()456 return emma; in emission()[all …]