33 |
common /addynvars_cd/ |
common /addynvars_cd/ |
34 |
& aduveld, advveld, |
& aduveld, advveld, |
35 |
& adetanm1, |
& adetanm1, |
36 |
& adunm1, advnm1, |
& adunm1, advnm1 |
|
& adgucd, adgvcd |
|
37 |
_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) |
38 |
_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) |
39 |
_RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
40 |
_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) |
41 |
_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) |
|
42 |
#endif |
#endif |
43 |
|
|
44 |
common /adffields/ |
common /adffields/ |
52 |
cph _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
cph _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
53 |
cph _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
cph _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
54 |
|
|
55 |
|
#ifdef ALLOW_DIFFKR_CONTROL |
56 |
|
COMMON /ADDYNVARS_DIFFKR/ |
57 |
|
& addiffKr |
58 |
|
_RL addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
59 |
|
#endif |
60 |
|
#if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL)) |
61 |
|
double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx, |
62 |
|
$nsy) |
63 |
|
double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx, |
64 |
|
$nsy) |
65 |
|
common /adedtauffields/ adeddytaux, adeddytauy |
66 |
|
|
67 |
|
#endif |
68 |
|
|
69 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
70 |
_RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
71 |
_RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |