55 |
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) |
56 |
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) |
57 |
|
|
58 |
|
#ifdef ALLOW_DIFFKR_CONTROL |
59 |
|
COMMON /ADDYNVARS_DIFFKR/ |
60 |
|
& addiffKr |
61 |
|
_RL addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
62 |
|
#endif |
63 |
|
|
64 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
65 |
_RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
66 |
_RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |