112 |
& adbottomdragfld |
& adbottomdragfld |
113 |
_RL adbottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL adbottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
114 |
#endif |
#endif |
115 |
#if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL)) |
#ifdef ALLOW_EDDYPSI_CONTROL |
116 |
double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx, |
double precision adeddypsix(1-olx:snx+olx,1-oly:sny+oly,nr,nsx, |
117 |
$nsy) |
$nsy) |
118 |
double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx, |
double precision adeddypsiy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx, |
119 |
$nsy) |
$nsy) |
120 |
common /adedtauffields/ adeddytaux, adeddytauy |
common /adeddypsiffields/ adeddypsix, adeddypsiy |
121 |
|
|
122 |
#endif |
#endif |
123 |
|
|