1 |
C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_ad_check_lev1_dir.h,v 1.30 2012/03/05 15:21:44 gforget Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
CADJ STORE hsnow = comlev1, key=ikey_dynamics, kind=isbyte |
5 |
CADJ STORE tice = comlev1, key=ikey_dynamics, kind=isbyte |
6 |
CADJ STORE tices = comlev1, key=ikey_dynamics, kind=isbyte |
7 |
|
8 |
CADJ STORE area = comlev1, key=ikey_dynamics, kind=isbyte |
9 |
CADJ STORE heff = comlev1, key=ikey_dynamics, kind=isbyte |
10 |
CADJ STORE uice = comlev1, key=ikey_dynamics, kind=isbyte |
11 |
CADJ STORE vice = comlev1, key=ikey_dynamics, kind=isbyte |
12 |
|
13 |
#ifdef AUTODIFF_SOMETIMES_NEEDED |
14 |
# ifdef EXACT_CONSERV |
15 |
CADJ STORE pmepr = comlev1, key = ikey_dynamics |
16 |
# endif |
17 |
cphCADJ STORE uvel = comlev1, key=ikey_dynamics, kind=isbyte |
18 |
cphCADJ STORE vvel = comlev1, key=ikey_dynamics, kind=isbyte |
19 |
CADJ STORE salt = comlev1, key=ikey_dynamics, kind=isbyte |
20 |
CADJ STORE totphihyd = comlev1, key=ikey_dynamics, kind=isbyte |
21 |
cphCADJ STORE runoff = comlev1, key=ikey_dynamics, kind=isbyte |
22 |
|
23 |
CADJ STORE area = comlev1, key=ikey_dynamics, kind=isbyte |
24 |
cphCADJ STORE heff = comlev1, key=ikey_dynamics, kind=isbyte |
25 |
cphCADJ STORE heffm = comlev1, key=ikey_dynamics, kind=isbyte |
26 |
cphCADJ STORE hsnow = comlev1, key=ikey_dynamics, kind=isbyte |
27 |
# ifdef SEAICE_ALLOW_DYNAMICS |
28 |
CADJ STORE uice = comlev1, key=ikey_dynamics, kind=isbyte |
29 |
CADJ STORE vice = comlev1, key=ikey_dynamics, kind=isbyte |
30 |
cphCADJ STORE zeta = comlev1, key=ikey_dynamics, kind=isbyte |
31 |
cphCADJ STORE eta = comlev1, key=ikey_dynamics, kind=isbyte |
32 |
# endif |
33 |
#endif /* AUTODIFF_SOMETIMES_NEEDED */ |
34 |
|
35 |
#ifdef SEAICE_CGRID |
36 |
CADJ STORE stressdivergencex = comlev1, key=ikey_dynamics, kind=isbyte |
37 |
CADJ STORE stressdivergencey = comlev1, key=ikey_dynamics, kind=isbyte |
38 |
#endif |
39 |
# ifdef SEAICE_ALLOW_DYNAMICS |
40 |
# ifdef SEAICE_CGRID |
41 |
CADJ STORE etan = comlev1, key=ikey_dynamics, kind=isbyte |
42 |
CADJ STORE dwatn = comlev1, key=ikey_dynamics, kind=isbyte |
43 |
CADJ STORE seaicemasku = comlev1, key=ikey_dynamics, kind=isbyte |
44 |
CADJ STORE seaicemaskv = comlev1, key=ikey_dynamics, kind=isbyte |
45 |
# endif |
46 |
# ifdef SEAICE_ALLOW_EVP |
47 |
CADJ STORE seaice_sigma1 = comlev1, key=ikey_dynamics, kind=isbyte |
48 |
CADJ STORE seaice_sigma2 = comlev1, key=ikey_dynamics, kind=isbyte |
49 |
CADJ STORE seaice_sigma12 = comlev1, key=ikey_dynamics, kind=isbyte |
50 |
# endif |
51 |
# endif |
52 |
# ifdef SEAICE_VARIABLE_SALINITY |
53 |
CADJ STORE hsalt = comlev1, key=ikey_dynamics, kind=isbyte |
54 |
# endif |
55 |
# ifdef ALLOW_COST_ICE |
56 |
CADJ STORE objf_ice = comlev1, key=ikey_dynamics, kind=isbyte |
57 |
# endif |
58 |
# ifdef ALLOW_SEAICE_COST_EXPORT |
59 |
CADJ STORE uHeffExportCell = comlev1, key=ikey_dynamics, kind=isbyte |
60 |
CADJ STORE vHeffExportCell = comlev1, key=ikey_dynamics, kind=isbyte |
61 |
CADJ STORE icevolMeanCell = comlev1, key=ikey_dynamics, kind=isbyte |
62 |
# endif |
63 |
|
64 |
#ifdef ALLOW_OBCS |
65 |
# ifdef ALLOW_OBCS_EAST |
66 |
CADJ STORE obeuice,obeuice0,obeuice1 = comlev1, |
67 |
CADJ & key=ikey_dynamics, kind=isbyte |
68 |
CADJ STORE obevice,obevice0,obevice1 = comlev1, |
69 |
CADJ & key=ikey_dynamics, kind=isbyte |
70 |
# endif |
71 |
# ifdef ALLOW_OBCS_NORTH |
72 |
CADJ STORE obnuice,obnuice0,obnuice1 = comlev1, |
73 |
CADJ & key=ikey_dynamics, kind=isbyte |
74 |
CADJ STORE obnvice,obnvice0,obnvice1 = comlev1, |
75 |
CADJ & key=ikey_dynamics, kind=isbyte |
76 |
# endif |
77 |
# ifdef ALLOW_OBCS_SOUTH |
78 |
CADJ STORE obsuice,obsuice0,obsuice1 = comlev1, |
79 |
CADJ & key=ikey_dynamics, kind=isbyte |
80 |
CADJ STORE obsvice,obsvice0,obsvice1 = comlev1, |
81 |
CADJ & key=ikey_dynamics, kind=isbyte |
82 |
# endif |
83 |
# ifdef ALLOW_OBCS_WEST |
84 |
CADJ STORE obwuice,obwuice0,obwuice1 = comlev1, |
85 |
CADJ & key=ikey_dynamics, kind=isbyte |
86 |
CADJ STORE obwvice,obwvice0,obwvice1 = comlev1, |
87 |
CADJ & key=ikey_dynamics, kind=isbyte |
88 |
# endif |
89 |
#endif |
90 |
|
91 |
#ifdef ALLOW_SITRACER |
92 |
CADJ STORE sitracer = comlev1, key=ikey_dynamics, kind=isbyte |
93 |
CADJ STORE sitrarea = comlev1, key=ikey_dynamics, kind=isbyte |
94 |
CADJ STORE sitrheff = comlev1, key=ikey_dynamics, kind=isbyte |
95 |
#endif |