| 1 | C
|
|---|
| 2 | C Moving mesh variables
|
|---|
| 3 | C
|
|---|
| 4 | real wx(lx1m,ly1m,lz1m,lelt)
|
|---|
| 5 | $ , wy(lx1m,ly1m,lz1m,lelt)
|
|---|
| 6 | $ , wz(lx1m,ly1m,lz1m,lelt)
|
|---|
| 7 | common /wsol/ wx,wy,wz
|
|---|
| 8 |
|
|---|
| 9 | real wxlag(lx1m,ly1m,lz1m,lelt,lorder-1)
|
|---|
| 10 | $ , wylag(lx1m,ly1m,lz1m,lelt,lorder-1)
|
|---|
| 11 | $ , wzlag(lx1m,ly1m,lz1m,lelt,lorder-1)
|
|---|
| 12 | common /wlag/ wxlag,wylag,wzlag
|
|---|
| 13 |
|
|---|
| 14 | real w1mask(lx1m,ly1m,lz1m,lelt)
|
|---|
| 15 | $ , w2mask(lx1m,ly1m,lz1m,lelt)
|
|---|
| 16 | $ , w3mask(lx1m,ly1m,lz1m,lelt)
|
|---|
| 17 | $ , wmult (lx1m,ly1m,lz1m,lelt)
|
|---|
| 18 | common /wmsu/ w1mask,w2mask,w3mask,wmult
|
|---|
| 19 |
|
|---|
| 20 |
|
|---|
| 21 | real ev1(lx1m,ly1m,lz1m,lelv)
|
|---|
| 22 | $ , ev2(lx1m,ly1m,lz1m,lelv)
|
|---|
| 23 | $ , ev3(lx1m,ly1m,lz1m,lelv)
|
|---|
| 24 | common /eigvec/ ev1,ev2,ev3
|
|---|
