82 |
C-- When set use SEAICE_zetaMin and SEAICE_evpDampC to limit viscosities |
C-- When set use SEAICE_zetaMin and SEAICE_evpDampC to limit viscosities |
83 |
C from below and above in seaice_evp: not necessary, and not recommended |
C from below and above in seaice_evp: not necessary, and not recommended |
84 |
# undef SEAICE_ALLOW_CLIPZETA |
# undef SEAICE_ALLOW_CLIPZETA |
85 |
# else /* not EVP */ |
# endif /* SEAICE_ALLOW_EVP */ |
86 |
C regularize zeta to zmax with a smooth tanh-function instead |
C regularize zeta to zmax with a smooth tanh-function instead |
87 |
C of a min(zeta,zmax). This improves convergence of iterative |
C of a min(zeta,zmax). This improves convergence of iterative |
88 |
C solvers (Lemieux and Tremblay 2009, JGR). No effect on EVP |
C solvers (Lemieux and Tremblay 2009, JGR). No effect on EVP |
89 |
# undef SEAICE_ZETA_SMOOTHREG |
# undef SEAICE_ZETA_SMOOTHREG |
|
# endif /* SEAICE_ALLOW_EVP */ |
|
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 |
#else /* not SEAICE_CGRID, but old B-grid */ |
#else /* not SEAICE_CGRID, but old B-grid */ |