9 |
#ifdef ALLOW_AUTODIFF_MONITOR |
#ifdef ALLOW_AUTODIFF_MONITOR |
10 |
|
|
11 |
common /addynvars_r/ |
common /addynvars_r/ |
12 |
& adetan, |
& adetan, adetah, |
13 |
& aduvel, advvel, adwvel, |
& aduvel, advvel, adwvel, |
14 |
& adtheta, adsalt, |
& adtheta, adsalt, |
15 |
& adgu, adgv, adgt, adgs, |
& adgu, adgv, adgt, adgs, |
16 |
& adgunm1, adgvnm1, adgtnm1, adgsnm1 |
& adgunm1, adgvnm1, adgtnm1, adgsnm1 |
17 |
_RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
18 |
|
_RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
19 |
_RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
20 |
_RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
21 |
_RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
34 |
common /addynvars_cd/ |
common /addynvars_cd/ |
35 |
& aduveld, advveld, |
& aduveld, advveld, |
36 |
& adetanm1, |
& adetanm1, |
37 |
& adunm1, advnm1, |
& adunm1, advnm1 |
|
& adgucd, adgvcd |
|
38 |
_RL aduveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL aduveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
39 |
_RL advveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL advveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
40 |
_RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
41 |
_RL adunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL adunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
42 |
_RL advnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL advnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
_RL adgucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
|
_RL adgvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
43 |
#endif |
#endif |
44 |
|
|
45 |
common /adffields/ |
common /adffields/ |