2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
CADJ STORE StoreSEAICE = tapelev4, key = ilev_4 |
CADJ STORE StoreSEAICE = tapelev4, key = ilev_4 |
5 |
|
CADJ STORE tices = tapelev4, key = ilev_4 |
6 |
|
|
7 |
|
#ifdef AUTODIFF_SOMETIMES_NEEDED |
8 |
|
CADJ STORE area = tapelev4, key = ilev_4 |
9 |
|
CADJ STORE heff = tapelev4, key = ilev_4 |
10 |
|
CADJ STORE uice = tapelev4, key = ilev_4 |
11 |
|
CADJ STORE vice = tapelev4, key = ilev_4 |
12 |
|
#endif |
13 |
|
|
14 |
#ifdef ALLOW_COST_ICE |
#ifdef ALLOW_COST_ICE |
15 |
CADJ STORE objf_ice = tapelev4, key = ilev_4 |
CADJ STORE objf_ice = tapelev4, key = ilev_4 |
18 |
CADJ STORE uHeffExportCell = tapelev4, key = ilev_4 |
CADJ STORE uHeffExportCell = tapelev4, key = ilev_4 |
19 |
CADJ STORE vHeffExportCell = tapelev4, key = ilev_4 |
CADJ STORE vHeffExportCell = tapelev4, key = ilev_4 |
20 |
#endif |
#endif |
21 |
|
|
22 |
|
#ifdef ALLOW_OBCS |
23 |
|
# ifdef ALLOW_OBCS_EAST |
24 |
|
CADJ STORE obeuice,obeuice0,obeuice1 = tapelev4, key = ilev_4 |
25 |
|
CADJ STORE obevice,obevice0,obevice1 = tapelev4, key = ilev_4 |
26 |
|
# endif |
27 |
|
# ifdef ALLOW_OBCS_NORTH |
28 |
|
CADJ STORE obnuice,obnuice0,obnuice1 = tapelev4, key = ilev_4 |
29 |
|
CADJ STORE obnvice,obnvice0,obnvice1 = tapelev4, key = ilev_4 |
30 |
|
# endif |
31 |
|
# ifdef ALLOW_OBCS_SOUTH |
32 |
|
CADJ STORE obsuice,obsuice0,obsuice1 = tapelev4, key = ilev_4 |
33 |
|
CADJ STORE obsvice,obsvice0,obsvice1 = tapelev4, key = ilev_4 |
34 |
|
# endif |
35 |
|
# ifdef ALLOW_OBCS_WEST |
36 |
|
CADJ STORE obwuice,obwuice0,obwuice1 = tapelev4, key = ilev_4 |
37 |
|
CADJ STORE obwvice,obwvice0,obwvice1 = tapelev4, key = ilev_4 |
38 |
|
# endif |
39 |
|
#endif |
40 |
|
|
41 |
|
#ifdef ALLOW_SITRACER |
42 |
|
CADJ STORE sitracer = tapelev4, key = ilev_4 |
43 |
|
CADJ STORE sitrarea = tapelev4, key = ilev_4 |
44 |
|
CADJ STORE sitrheff = tapelev4, key = ilev_4 |
45 |
|
#endif |
46 |
|
|