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