Object Info



dimensioned_values --> object
---------------------- Properties:
dimensioned_values has body({[ E := ( 1 / 2
* ( 1 / h_y * ave(h_y * u ^ 2, x)
+ 1 / h_x * ave(h_x * v ^ 2, y)
)
)
, R_d := 287.04 ~ "J/kg/K"
, R_v := 461.51 ~ "J/kg/K"
, c_pd := 1004.64 ~ "J/kg/K"
, c_pv := 1869.46 ~ "J/kg/K"
, delta := c_pv / c_pd
, epsilon := R_d / R_v
, kappa := R_d / c_pd
, p := A + B * p_s
, Z := ( ( ( df(h_y * v, x)
+ f * ave(ave(h_x * h_y, x), y)
)
- df(h_x * u, y)
)
/ ave(ave(h_x * h_y * df(p, z ~ "1"), x), y)
)
, ln_p := ( df(( log(0.0 ~ "Pa" if k <= 1 ~ "1" \\ p)
* (0.0 ~ "Pa" if k <= 1 ~ "1" \\ p)
), z ~ "1")
/ df(p, z ~ "1")
)
, phi := ( phi_s
+ sum(( R_d
* T
* ( q * (1 / epsilon - 1 ~ "1")
+ 1 ~ "1"
)
* ( ((( 1 ~ "1"
- ( ( df(log(p), z ~ "1")
* shift(p, z, - 1 / 2)
)
/ df(p, z ~ "1")
)
) if
2 ~ "1" <= k and k <= nlev
) \\
0.693147180559945 ~ "1"
)
+ ((( df(log(p), z ~ "1")
- ((( 1 ~ "1"
- ( ( df(log(p), z ~ "1")
* shift(p, z, - 1 / 2)
)
/ df(p, z ~ "1")
)
) if
2 ~ "1" <= k and k <= nlev
) \\
0.693147180559945 ~ "1"
)
) if
2 ~ "1" <= k and k <= nlev
) \\
- 0.693147180559945 ~ "1"
)
)
), k = k + 1 ~ "1" .. nlev)
+ ( R_d
* T
* (q * (1 / epsilon - 1 ~ "1") + 1 ~ "1")
* ((( 1 ~ "1"
- ( ( df(log(p), z ~ "1")
* shift(p, z, - 1 / 2)
)
/ df(p, z ~ "1")
)
) if
2 ~ "1" <= k and k <= nlev
) \\
0.693147180559945 ~ "1"
)
)
)
, r := 6371.0 ~ "km" * 1000 ~ "m1"
, u_aux := u * df(p, z ~ "1")
, v_aux := v * df(p, z ~ "1")
, p_s_t := - int(( 1 / (h_x * h_y)
* ( df(h_y * u_aux, x)
+ df(h_x * v_aux, y)
)
), z ~ "1" = 1 ~ "1" .. nlev + 1 ~
"1")
, eta_p := ( int(( 1 / (h_x * h_y)
* ( df(h_y * u_aux, x)
+ df(h_x * v_aux, y)
)
), z ~ "1" = point(z) ~ "1" .. nlev + 1 ~
"1")
+ p_s_t * (1 ~ "1" - B)
)
, T_t := ( kappa * ( ( ( T
* (q * (1 / epsilon - 1 ~
"1") + 1 ~ "1")
* ( ( 1 / (h_x * h_y)
* ( df(h_y * u_aux, x)
+ df(h_x * v_aux, y)
)
* ((( df(log(p), z ~ "1")
- ((( 1 ~ "1"
- ( ( df(log(p), z ~
"1")
* shift(p, z, - 1 / 2)
)
/ df(p, z ~
"1")
)
) if
2 ~ "1" <= k and k <= nlev
) \\
0.693147180559945 ~
"1"
)
) if
2 ~ "1" <= k and k <= nlev
) \\
- 0.693147180559945 ~
"1"
)
)
+ ((( df(log(p), z ~ "1")
* (p_s_t + protect(int(( 1 / (h_x * h_y)
* ( df(h_y * u_aux, x)
+ df(h_x * v_aux, y)
)
), z ~
"1" = k + 1 ~ "1" .. nlev + 1 ~ "1"), z))
) if
2 ~ "1" <= k and k <= nlev
) \\
0.0 ~ " kg s^-3 / m"
)
)
)
+ ( 1 / (h_x * h_y)
* ( ave(( h_y
* u_aux
* ave(T * ( q * (1 / epsilon - 1 ~
"1")
+ 1 ~ "1"
), x)
* df(ln_p, x)
), x)
+ ave(( h_x
* v_aux
* ave(T * ( q * (1 / epsilon - 1 ~
"1")
+ 1 ~ "1"
), y)
* df(ln_p, y)
), y)
)
)
)
/ ( df(p, z ~ "1")
* (q * (delta - 1 ~ "1") + 1 ~
"1")
)
)
- ( ave(( df(T, z ~ "1")
* ((eta_p if
2 ~ "1" <= k and k <= nlev
) \\
0.0 ~ " kg s^-3 / m"
)
), z)
/ df(p, z ~ "1")
)
- ( 1 / (h_x * h_y)
* ( ( ave(h_y * u_aux * df(T, x), x)
+ ave(h_x * v_aux * df(T, y), y)
)
/ df(p, z ~ "1")
)
)
)
, q_t := ( - ( ave(( df(q, z ~ "1")
* ((eta_p if
2 ~ "1" <= k and k <= nlev
) \\
0.0 ~ " kg s^-3 / m"
)
), z)
/ df(p, z ~ "1")
)
- ( 1 / (h_x * h_y)
* ( ( ave(h_y * u_aux * df(q, x), x)
+ ave(h_x * v_aux * df(q, y), y)
)
/ df(p, z ~ "1")
)
)
)
, u_t := ( ( 1 / h_x
* ave(ave(h_y * v_aux, x), y)
* protect(Z)
)
- ( (R_d * T) / h_x
* df(ln_p, x)
* (q * (1 / epsilon - 1 ~ "1") + 1 ~ "1")
)
- ( ave(( df(u, z ~ "1")
* ((eta_p if
2 ~ "1" <= k and k <= nlev
) \\
0.0 ~ " kg s^-3 / m"
)
), z)
/ df(p, z ~ "1")
)
- 1 / h_x * df(E + phi, x)
)
, v_t := ( ( 1 / h_y
* ave(ave(- h_x * u_aux, x), y)
* protect(Z)
)
- ( (R_d * T) / h_y
* df(ln_p, y)
* (q * (1 / epsilon - 1 ~ "1") + 1 ~ "1")
)
- ( ave(( df(v, z ~ "1")
* ((eta_p if
2 ~ "1" <= k and k <= nlev
) \\
0.0 ~ " kg s^-3 / m"
)
), z)
/ df(p, z ~ "1")
)
- 1 / h_y * df(E + phi, y)
) ]})
---------------------- Methods inherited from class object:
dimensioned_values can restore(_G6560)
save(_G6560, _G6561)
get_properties(_G6560, _G6561)
get_superobjects(_G6560, _G6561)
get_subobjects(_G6560, _G6561)
get_parents(_G6560, _G6561)
get_children(_G6560, _G6561)
get_instances(_G6560, _G6561)
create(_G6560, _G6561)
get_dependencies(_G6560, _G6561)