177 |
& adarea, adheff, adhsnow, aduice, advice |
& adarea, adheff, adhsnow, aduice, advice |
178 |
#endif |
#endif |
179 |
|
|
180 |
|
#ifdef ALLOW_GGL90 |
181 |
|
_RL adggl90tke (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
182 |
|
_RL adggl90diffkr (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
183 |
|
common /adggl90_fields/ |
184 |
|
& adggl90tke, adggl90diffkr |
185 |
|
#endif |
186 |
|
|
187 |
#ifdef ALLOW_DEPTH_CONTROL |
#ifdef ALLOW_DEPTH_CONTROL |
188 |
_RL adr_low_control(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adr_low_control(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
189 |
_RL adhfacc(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy) |
_RL adhfacc(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy) |