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) |
93 |
|
C when SEAICE_VECTORIZE_LSR is defined, but this is a bit of a hack |
94 |
|
# define SEAICE_VECTORIZE_LSR |
95 |
|
# define SEAICE_LSR_ADJOINT_ITER |
96 |
#else /* not SEAICE_CGRID, but old B-grid */ |
#else /* not SEAICE_CGRID, but old B-grid */ |
97 |
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 |
98 |
C set to the same value as it would be if there was no sea-ice. |
C set to the same value as it would be if there was no sea-ice. |