| 1 | c
|
|---|
| 2 | c Adjoint variables
|
|---|
| 3 | c
|
|---|
| 4 | real vxadj (lx1,ly1,lz1,lelv)
|
|---|
| 5 | $ , vyadj (lx1,ly1,lz1,lelv)
|
|---|
| 6 | $ , vzadj (lx1,ly1,lz1,lelv)
|
|---|
| 7 | $ , tpadj (lx1,ly1,lz1,lelt)
|
|---|
| 8 | $ , vxadjold (lx1,ly1,lz1,lelv)
|
|---|
| 9 | $ , vyadjold (lx1,ly1,lz1,lelv)
|
|---|
| 10 | $ , vzadjold (lx1,ly1,lz1,lelv)
|
|---|
| 11 | $ , tpadjold (lx1,ly1,lz1,lelt)
|
|---|
| 12 | $ , endtime, adjtol, alpha_max
|
|---|
| 13 | common /adj_real/ vxadj, vyadj, vzadj, vxadjold, vyadjold
|
|---|
| 14 | $ , vzadjold, endtime, adjtol, tpadj
|
|---|
| 15 | $ , tpadjold, alpha_max
|
|---|
| 16 |
|
|---|
| 17 | integer npassadj, maxpassadj
|
|---|
| 18 | common /adj_integer/ npassadj, maxpassadj
|
|---|
| 19 |
|
|---|
| 20 | logical ifadj
|
|---|
| 21 | common /adj_logical/ ifadj
|
|---|
| 22 |
|
|---|
| 23 | REAL dTdx(lx1*ly1*lz1*lelt)
|
|---|
| 24 | $ , dTdy(lx1*ly1*lz1*lelt)
|
|---|
| 25 | $ , dTdz(lx1*ly1*lz1*lelt)
|
|---|
| 26 | COMMON /dTgrad/ dTdx, dTdy, dTdz
|
|---|
| 27 |
|
|---|
| 28 | REAL g_adj(3), beta_b
|
|---|
| 29 | COMMON /gravity_adjoint/ g_adj
|
|---|
| 30 | $ , beta_b(lx1*ly1*lz1*lelt)
|
|---|
