26 |
& aduvel, advvel, adwvel, |
& aduvel, advvel, adwvel, |
27 |
& adtheta, adsalt, |
& adtheta, adsalt, |
28 |
& adgu, adgv, adgt, adgs, |
& adgu, adgv, adgt, adgs, |
29 |
|
#ifdef ALLOW_ADAMSBASHFORTH_3 |
30 |
|
& adgunm, adgvnm, adgtnm, adgsnm |
31 |
|
#else |
32 |
& adgunm1, adgvnm1, adgtnm1, adgsnm1 |
& adgunm1, adgvnm1, adgtnm1, adgsnm1 |
33 |
|
#endif |
34 |
_RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
35 |
_RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
_RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
36 |
_RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
_RL adgtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
37 |
_RL adgu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL adgu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
_RL adgunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
38 |
_RL adgv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL adgv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
_RL adgvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
39 |
_RL adsalt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL adsalt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
40 |
_RL adtheta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL adtheta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
41 |
_RL aduvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL aduvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
42 |
_RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
43 |
_RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
44 |
|
#ifdef ALLOW_ADAMSBASHFORTH_3 |
45 |
|
_RL adgtnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2) |
46 |
|
_RL adgsnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2) |
47 |
|
_RL adgunm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2) |
48 |
|
_RL adgvnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2) |
49 |
|
#else |
50 |
|
_RL adgtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
51 |
|
_RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
52 |
|
_RL adgunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
53 |
|
_RL adgvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
54 |
|
#endif |
55 |
|
|
56 |
common /addynvars_r_2/ |
common /addynvars_r_2/ |
57 |
& adetah |
& adetah |
168 |
#endif |
#endif |
169 |
|
|
170 |
#ifdef ALLOW_SEAICE |
#ifdef ALLOW_SEAICE |
171 |
_RL adarea(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adarea (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
172 |
common /adseaice_dynvars_1/ adarea |
_RL adheff (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
173 |
c |
_RL adhsnow (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
174 |
_RL adheff(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL aduice (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
175 |
_RL adhsnow(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL advice (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
176 |
common /adseaice_trans/ adheff, adhsnow |
common /adseaice_dynvars_1/ |
177 |
# ifdef SEAICE_ALLOW_DYNAMICS |
& adarea, adheff, adhsnow, aduice, advice |
178 |
_RL aduice(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
#endif |
179 |
_RL advice(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
180 |
common /adseaice_dynvars_2/ aduice, advice |
#ifdef ALLOW_GGL90 |
181 |
# endif |
_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 |
#endif |
186 |
|
|
187 |
#ifdef ALLOW_DEPTH_CONTROL |
#ifdef ALLOW_DEPTH_CONTROL |