158   PetscScalar   sfctemp;            /* temperature at surface */  in main()  local
181   sfctemp   = put.Ts;  in main()
187 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Initial Temperature = %g\n", (double)sfctemp)); /* input …  in main()
189   deep_grnd_temp = sfctemp - 10;   /* set underlying ground layer temperature */  in main()
193   sfctemp        = fahr_to_cel(sfctemp);  in main()
200   sfctemp += 273;  in main()
208   mixratio = calcmixingr(sfctemp, pressure1);  in main()
233   user.Ts             = sfctemp;  in main()
348 PetscErrorCode calcfluxs(PetscScalar sfctemp, PetscScalar airtemp, PetscScalar emma, PetscScalar fr…  in calcfluxs()  argument
351 …- emma) * PetscPowScalarInt(cloudTemp, 4)) - (EMMSFC * PetscPowScalarInt(sfctemp, 4))); /* calcula…  in calcfluxs()
355 PetscErrorCode calcfluxa(PetscScalar sfctemp, PetscScalar airtemp, PetscScalar emma, PetscScalar *f…  in calcfluxa()  argument
363 PetscErrorCode sensibleflux(PetscScalar sfctemp, PetscScalar airtemp, PetscScalar wind, PetscScalar…  in sensibleflux()  argument
371   *sheat = density * Cp * wndmix * (airtemp - sfctemp); /* calculates sensible heat flux */  in sensibleflux()
375 PetscErrorCode latentflux(PetscScalar sfctemp, PetscScalar dewtemp, PetscScalar wind, PetscScalar p…  in latentflux()  argument
390   lhcnst = Lconst(sfctemp);                 /* calculates latent heat of evaporation */  in latentflux()
391   mr     = calcmixingr(sfctemp, pressure1); /* calculates saturation mixing ratio */  in latentflux()
400 …scScalar temp, PetscScalar pressure1, PetscScalar pressure2, PetscScalar sfctemp, PetscScalar *pot…  in potential_temperature()  argument
438 PetscErrorCode calc_gflux(PetscScalar sfctemp, PetscScalar deep_grnd_temp, PetscScalar *Gflux)  in calc_gflux()  argument
447 …*Gflux = (k * (deep_grnd_temp - sfctemp) / dz);                                                   …  in calc_gflux()
471 extern PetscScalar Lconst(PetscScalar sfctemp)  in Lconst()  argument
474   sfctemp -= 273;                               /* converts from kelvin to celsius */  in Lconst()
475   Lheat = 4186.8 * (597.31 - 0.5625 * sfctemp); /* calculates latent heat constant */  in Lconst()