Last change
on this file since 667 was
581,
checked in by laurent, 10 years ago
|
Adding ocean application, some mathematics functions and distributed locks
|
File size:
581 bytes
|
Rev | Line | |
---|
[581] | 1 | |
---|
| 2 | double ****work1; |
---|
| 3 | double ***work2; |
---|
| 4 | double ***work3; |
---|
| 5 | double ****work4; |
---|
| 6 | double ****work5; |
---|
| 7 | double ***work6; |
---|
| 8 | double ****work7; |
---|
| 9 | double ***tauz; |
---|
| 10 | |
---|
| 11 | double ****psi; |
---|
| 12 | double ****psim; |
---|
| 13 | double ***psium; |
---|
| 14 | double ***psilm; |
---|
| 15 | double ***psib; |
---|
| 16 | double ***ga; |
---|
| 17 | double ***gb; |
---|
| 18 | double ***oldga; |
---|
| 19 | double ***oldgb; |
---|
| 20 | |
---|
| 21 | double ****q_multi; |
---|
| 22 | double ****rhs_multi; |
---|
| 23 | |
---|
| 24 | long *imx; |
---|
| 25 | long *jmx; |
---|
| 26 | |
---|
| 27 | double *f; |
---|
| 28 | struct Global_Private *gp; |
---|
| 29 | |
---|
| 30 | |
---|
| 31 | double *lev_res; |
---|
| 32 | double *lev_tol; |
---|
| 33 | double *i_int_coeff; |
---|
| 34 | double *j_int_coeff; |
---|
| 35 | long *xpts_per_proc; |
---|
| 36 | long *ypts_per_proc; |
---|
| 37 | long xprocs; |
---|
| 38 | long yprocs; |
---|
| 39 | long numlev; |
---|
| 40 | double eig2; |
---|
| 41 | long im; |
---|
| 42 | long jm; |
---|
Note: See
TracBrowser
for help on using the repository browser.