89 |
# undef SEAICE_ZETA_SMOOTHREG |
# undef SEAICE_ZETA_SMOOTHREG |
90 |
C allow the truncated ellipse rheology (runtime flag SEAICEuseTEM) |
C allow the truncated ellipse rheology (runtime flag SEAICEuseTEM) |
91 |
# undef SEAICE_ALLOW_TEM |
# undef SEAICE_ALLOW_TEM |
92 |
C The adjoint compiler TAF complains the least (and gives the best code) |
C Either SEAICE_VECTORIZE_LSR or SEAICE_LSR_ZEBRA |
93 |
C when SEAICE_VECTORIZE_LSR is defined, but this is a bit of a hack |
C need to be defined to have an actual adjoint of the |
94 |
# define SEAICE_VECTORIZE_LSR |
C seaice_lsr solver; not that this solution works, but at least TAF |
95 |
|
C complains the least (and gives the best code) |
96 |
|
# undef SEAICE_VECTORIZE_LSR |
97 |
|
# define SEAICE_LSR_ZEBRA |
98 |
|
C This flag is also required for an actual adjoint of seaice_lsr; |
99 |
|
C increases memory requirements a lot. |
100 |
# define SEAICE_LSR_ADJOINT_ITER |
# define SEAICE_LSR_ADJOINT_ITER |
101 |
#else /* not SEAICE_CGRID, but old B-grid */ |
#else /* not SEAICE_CGRID, but old B-grid */ |
102 |
C-- By default for B-grid dynamics solver wind stress under sea-ice is |
C-- By default for B-grid dynamics solver wind stress under sea-ice is |
129 |
C-- Enable free drift code |
C-- Enable free drift code |
130 |
#define SEAICE_ALLOW_FREEDRIFT |
#define SEAICE_ALLOW_FREEDRIFT |
131 |
|
|
132 |
|
C-- pkg/seaice cost functions compile flags |
133 |
|
c >>> Sea-ice volume (requires pkg/cost) |
134 |
|
#undef ALLOW_COST_ICE |
135 |
|
c >>> Sea-ice misfit to obs (requires pkg/cost and ecco) |
136 |
|
#define ALLOW_SEAICE_COST_SMR_AREA |
137 |
|
|
138 |
#endif /* ALLOW_SEAICE */ |
#endif /* ALLOW_SEAICE */ |
139 |
#endif /* SEAICE_OPTIONS_H */ |
#endif /* SEAICE_OPTIONS_H */ |
140 |
|
|