Object Info


phi is defined in /home/robert/projects/Ctadel/dyn.s:233
phi --> declared_var(script("dyn")) --> declared_object(script("dyn")) --> object
temporary_var --> dependent_var --> variable --> object
fortran_name_of(phi) --> object
------- Properties:
phi has fortran_name(phi)
cse_value(((( ( varidx(phi_s, [i, j])
+ ( 198.960966707927
* varidx(T, [i, j, k])
* (0.607824693422519 * varidx(q, [i, j, 1]) + 1)
)
)
- 287.04 * varidx(t_20, [i, j, 1])
) if
k <= 1
) \\
( varidx(phi_s, [i, j])
- ( 287.04
* ( varidx(t_20, [i, j, k])
- ( varidx(T, [i, j, k])
* varidx(t_26, [i, j, k])
* (0.607824693422519 * varidx(q, [i, j, k]) + 1)
)
)
)
)
))
point([i, j, k])
indexed_value(( sum(( 287.04
* varidx(T, [i, j, k])
* (0.607824693422519 * varidx(q, [i, j, k]) + 1)
* ( (1 - ( ( varidx(p, [i, j, k])
* ( log(varidx(p, [i, j, k + 1]))
- log(varidx(p, [i, j, k]))
)
)
/ ( varidx(p, [i, j, k + 1])
- varidx(p, [i, j, k])
)
) \\
0.693147180559945
)
+ (( log(varidx(p, [i, j, k + 1]))
- log(varidx(p, [i, j, k]))
- (1 - ( ( varidx(p, [i, j, k])
* ( log(varidx(p, [i, j, k + 1]))
- log(varidx(p, [i, j, k]))
)
)
/ ( varidx(p, [i, j, k + 1])
- varidx(p, [i, j, k])
)
) \\
0.693147180559945
)
) \\
- 0.693147180559945
)
)
), k = k + 1 .. nlev)
+ varidx(phi_s, [i, j])
+ ( 287.04
* varidx(T, [i, j, k])
* (0.607824693422519 * varidx(q, [i, j, k]) + 1)
* ((1 - ( ( varidx(p, [i, j, k])
* ( log(varidx(p, [i, j, k + 1]))
- log(varidx(p, [i, j, k]))
)
)
/ (varidx(p, [i, j, k + 1]) - varidx(p, [i, j, k]))
) if
2 <= k
) \\
0.693147180559945
)
)
))
derived_stencil([0 .. 1, 0 .. 1, 0 .. 0])
derived_domain([ 1 .. nlon + 1
, 1 .. nlat + 1
, 1 .. nlev ])
mask(true)
discrete_value(( phi_s
+ sum(( R_d
* T
* (q * (1 / epsilon - 1) + 1)
* ( ((1 - ( ( df_g(log(p), z)
* shift_g(p, z, - 1 / 2)
)
/ df_g(p, z)
) if
2 <= k and k <= nlev
) \\
0.693147180559945
)
+ ((( df_g(log(p), z)
- ((1 - ( ( df_g(log(p), z)
* shift_g(p, z, - 1 / 2)
)
/ df_g(p, z)
) if
2 <= k and k <= nlev
) \\
0.693147180559945
)
) if
2 <= k and k <= nlev
) \\
- 0.693147180559945
)
)
), k = k + 1 .. nlev)
+ ( R_d
* T
* (q * (1 / epsilon - 1) + 1)
* ((1 - ( (df_g(log(p), z) * shift_g(p, z, - 1 / 2))
/ df_g(p, z)
) if
2 <= k and k <= nlev
) \\
0.693147180559945
)
)
))
grid(grid([grid, grid, half, _G26812]))
dimensioned_value(( 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"
)
)
))
unit(unit(0, [0, 0, 2, -2, 0, 0, 0, 0]))
scalar_value(( phi_s
+ sum(( R_d
* T
* (q * (1 / epsilon - 1) + 1)
* ( ((1 - ( ( df(log(p), z ~ "1")
* shift(p, z, - 1 / 2)
)
/ df(p, z ~ "1")
) if
2 <= k and k <= nlev
) \\
0.693147180559945
)
+ ((( df(log(p), z ~ "1")
- ((1 - ( ( df(log(p), z ~ "1")
* shift(p, z, - 1 / 2)
)
/ df(p, z ~ "1")
) if
2 <= k and k <= nlev
) \\
0.693147180559945
)
) if
2 <= k and k <= nlev
) \\
- 0.693147180559945
)
)
), k = k + 1 .. nlev)
+ ( R_d
* T
* (q * (1 / epsilon - 1) + 1)
* ((1 - ( (df(log(p), z ~ "1") * shift(p, z, - 1 / 2))
/ df(p, z ~ "1")
) if
2 <= k and k <= nlev
) \\
0.693147180559945
)
)
))
value(( phi_s
+ sum(( R_d
* ( ((1 - ( ( df(log(p), z ~ "1")
* shift(p, z, - 1 / 2)
)
/ df(p, z ~ "1")
) if
on (k = 2 .. nlev)
) \\
0.693147180559945
)
+ ((( df(log(p), z ~ "1")
- ((1 - ( ( df(log(p), z ~ "1")
* shift(p, z, - 1 / 2)
)
/ df(p, z ~ "1")
) if
on (k = 2 .. nlev)
) \\
0.693147180559945
)
) if
on (k = 2 .. nlev)
) \\
- 0.693147180559945
)
)
* (T * (q * (1 / epsilon - 1) + 1) \\ T)
), k = k + 1 .. nlev)
+ ( R_d
* (T * (q * (1 / epsilon - 1) + 1) \\ T)
* ((1 - ( (df(log(p), z ~ "1") * shift(p, z, - 1 / 2))
/ df(p, z ~ "1")
) if
on (k = 2 .. nlev)
) \\
0.693147180559945
)
)
))
type(real)
declared_domain([1 .. nlon, 1 .. nlat, 1 .. nlev])
dependency([x, y, z])
------- Properties inherited from class dependent_var:
phi has instance_name(v)
------- Properties inherited from class temporary_var:
phi has instance_name(t)
------- Methods inherited from class object:
phi can restore(_G27026)
save(_G27026, _G27027)
get_properties(_G27026, _G27027)
get_superobjects(_G27026, _G27027)
get_subobjects(_G27026, _G27027)
get_parents(_G27026, _G27027)
get_children(_G27026, _G27027)
get_instances(_G27026, _G27027)
create(_G27026, _G27027)
get_dependencies(_G27026, _G27027)
------- Methods inherited from class temporary_var:
phi can get_store_cost(_G27052, 20)
------- Methods inherited from class variable:
phi can get_store_cost(_G27037, 10)
get_load_cost(_G27037, 1)