Lines Matching refs:Ts
81 PetscScalar Ts, Ta; /* surface and air temperature */ member
96 PetscScalar Ts; /* temperature at the surface */ member
113 PetscScalar Ts; /* surface temperature */ member
181 sfctemp = put.Ts; in main()
233 user.Ts = sfctemp; in main()
505 put->Ts = tmp; in readinput()
566 X[j][i].Ts = user->Ts - i * 0.0001; in FormInitialSolution()
567 X[j][i].Ta = X[j][i].Ts - 5; in FormInitialSolution()
578 X[j][i].Ts = user->Ts; in FormInitialSolution()
579 X[j][i].Ta = X[j][i].Ts - 5; in FormInitialSolution()
628 PetscScalar Ts, u, v, p; in RhsFunc() local
666 Ts = X[j][i].Ts; in RhsFunc()
671 sfctemp1 = (double)Ts; in RhsFunc()
694 …- (Rd / p) * (Ts * (X[j][i + 1].p - X[j][i - 1].p) * 0.5 * dhx + p * 0 * (X[j][i + 1].Ts - X[j][i … in RhsFunc()
701 …- (Rd / p) * (Ts * (X[j + 1][i].p - X[j - 1][i].p) * 0.5 * dhy + p * 0 * (X[j + 1][i].Ts - X[j - 1… in RhsFunc()
706 …Frhs[j][i].Ts = (fsfc1 / (csoil * dzlay)) /* Fn… in RhsFunc()
707 …- u_plus * (Ts - X[j][i - 1].Ts) * dhx - u_minus * (X[j][i + 1].Ts - Ts) * dhx /* - u*(dTs/dx) ad… in RhsFunc()
708 …- v_plus * (Ts - X[j - 1][i].Ts) * dhy - v_minus * (X[j + 1][i].Ts - Ts) * dhy /* - v*(dTs/dy) ad… in RhsFunc()
709 …+ diffconst * ((X[j][i + 1].Ts - 2 * Ts + X[j][i - 1].Ts) * dhx * dhx /* + D(Ts_xx + Ts_y… in RhsFunc()
710 + (X[j + 1][i].Ts - 2 * Ts + X[j - 1][i].Ts) * dhy * dhy); in RhsFunc()