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 |