1 |
C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_ad_check_lev4_dir.h,v 1.17 2012/04/19 16:06:42 heimbach Exp $ |
2 |
C $Name: $ |
3 |
|
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 |
15 |
CADJ STORE objf_ice = tapelev4, key = ilev_4 |
16 |
#endif |
17 |
#ifdef ALLOW_SEAICE_COST_EXPORT |
18 |
CADJ STORE uHeffExportCell = tapelev4, key = ilev_4 |
19 |
CADJ STORE vHeffExportCell = tapelev4, key = ilev_4 |
20 |
CADJ STORE icevolMeanCell = tapelev4, key = ilev_4 |
21 |
#endif |
22 |
#if (defined (ALLOW_MEAN_SFLUX_COST_CONTRIBUTION) || defined (ALLOW_SSH_GLOBMEAN_COST_CONTRIBUTION)) |
23 |
CADJ STORE AREAforAtmFW = tapelev4, key = ilev_4 |
24 |
#endif |
25 |
|
26 |
#ifdef ALLOW_OBCS |
27 |
# ifdef ALLOW_OBCS_EAST |
28 |
CADJ STORE obeuice,obeuice0,obeuice1 = tapelev4, key = ilev_4 |
29 |
CADJ STORE obevice,obevice0,obevice1 = tapelev4, key = ilev_4 |
30 |
# endif |
31 |
# ifdef ALLOW_OBCS_NORTH |
32 |
CADJ STORE obnuice,obnuice0,obnuice1 = tapelev4, key = ilev_4 |
33 |
CADJ STORE obnvice,obnvice0,obnvice1 = tapelev4, key = ilev_4 |
34 |
# endif |
35 |
# ifdef ALLOW_OBCS_SOUTH |
36 |
CADJ STORE obsuice,obsuice0,obsuice1 = tapelev4, key = ilev_4 |
37 |
CADJ STORE obsvice,obsvice0,obsvice1 = tapelev4, key = ilev_4 |
38 |
# endif |
39 |
# ifdef ALLOW_OBCS_WEST |
40 |
CADJ STORE obwuice,obwuice0,obwuice1 = tapelev4, key = ilev_4 |
41 |
CADJ STORE obwvice,obwvice0,obwvice1 = tapelev4, key = ilev_4 |
42 |
# endif |
43 |
#endif |
44 |
|
45 |
#ifdef ALLOW_SITRACER |
46 |
CADJ STORE sitracer = tapelev4, key = ilev_4 |
47 |
CADJ STORE sitrarea = tapelev4, key = ilev_4 |
48 |
CADJ STORE sitrheff = tapelev4, key = ilev_4 |
49 |
#endif |
50 |
|