Last change
on this file since 928 was
928,
checked in by dubos, 5 years ago
|
devel : separate modules for caldyn_vert and caldyn_vert_NH
|
File size:
342 bytes
|
Line | |
---|
1 | KERNEL(gradient) |
---|
2 | FORALL_CELLS_EXT() |
---|
3 | ON_EDGES |
---|
4 | grad(EDGE) = SIGN*(b(CELL2)-b(CELL1)) |
---|
5 | END_BLOCK |
---|
6 | END_BLOCK |
---|
7 | END_BLOCK |
---|
8 | |
---|
9 | KERNEL(div) |
---|
10 | FORALL_CELLS_EXT() |
---|
11 | ON_PRIMAL |
---|
12 | div_ij=0. |
---|
13 | FORALL_EDGES |
---|
14 | div_ij = div_ij + SIGN*LE_DE*u(EDGE) |
---|
15 | END_BLOCK |
---|
16 | divu(CELL) = div_ij / AI |
---|
17 | END_BLOCK |
---|
18 | END_BLOCK |
---|
19 | END_BLOCK |
---|
Note: See
TracBrowser
for help on using the repository browser.