57 |
& adetah |
& adetah |
58 |
_RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
59 |
|
|
60 |
|
#ifdef ALLOW_AUTODIFF_MONITOR_DIAG |
61 |
|
common /addynvars_diag/ |
62 |
|
& adtotphihyd, adrhoinsitu |
63 |
|
_RL adrhoinsitu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
64 |
|
_RL adtotphihyd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
65 |
|
#endif |
66 |
|
|
67 |
#ifdef ALLOW_CD_CODE |
#ifdef ALLOW_CD_CODE |
68 |
common /addynvars_cd/ |
common /addynvars_cd/ |
69 |
& aduveld, advveld, |
& aduveld, advveld, |
184 |
& adarea, adheff, adhsnow, aduice, advice |
& adarea, adheff, adhsnow, aduice, advice |
185 |
#endif |
#endif |
186 |
|
|
187 |
|
#ifdef ALLOW_GGL90 |
188 |
|
_RL adggl90tke (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
189 |
|
_RL adggl90diffkr (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
190 |
|
common /adggl90_fields/ |
191 |
|
& adggl90tke, adggl90diffkr |
192 |
|
#endif |
193 |
|
|
194 |
#ifdef ALLOW_DEPTH_CONTROL |
#ifdef ALLOW_DEPTH_CONTROL |
195 |
_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) |
196 |
_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) |