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/ |
58 |
& addiffKr |
& addiffKr |
59 |
_RL addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
60 |
#endif |
#endif |
61 |
|
#if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL)) |
62 |
|
double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx, |
63 |
|
$nsy) |
64 |
|
double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx, |
65 |
|
$nsy) |
66 |
|
common /adedtauffields/ adeddytaux, adeddytauy |
67 |
|
|
68 |
|
#endif |
69 |
|
|
70 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
71 |
_RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |