91   PetscScalar emma;           /* emission parameter */  member
153   PetscScalar   emma;               /* absorption-emission constant for air */  in main()  local
190   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()  argument
351 …*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()  argument
452   PetscScalar emma;  in emission()  local
454   emma = 0.725 + 0.17 * PetscLog10Real(PetscRealPart(pwat));  in emission()
456   return emma;  in emission()
460   PetscScalar emma = 0;  in cloud()  local
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()
469   return emma;  in cloud()
615   PetscScalar emma           = user->emma;                          /* emission parameter */  in RhsFunc()  local
672 …PetscCall(calcfluxs(sfctemp1, airtemp, emma, fract, Tc, &fsfc1));       /* calculates surface net …  in RhsFunc()
676 …PetscCall(calcfluxa(sfctemp1, airtemp, emma, &Ra));                     /* Calculates the change i…  in RhsFunc()