76 |
#ifdef SEAICE_CGRID |
#ifdef SEAICE_CGRID |
77 |
C enable EVP code by defining the following flag |
C enable EVP code by defining the following flag |
78 |
#define SEAICE_ALLOW_EVP |
#define SEAICE_ALLOW_EVP |
79 |
|
#ifdef SEAICE_ALLOW_EVP |
80 |
|
C-- When set use SEAICE_zetaMin and SEAICE_evpDampC to limit |
81 |
|
C-- viscosities from below and above in seaice_evp |
82 |
|
C-- not necessary, and not recommended, but used here for backward |
83 |
|
C-- compatibility |
84 |
|
#define SEAICE_ALLOW_CLIPZETA |
85 |
|
#endif /* SEAICE_ALLOW_EVP */ |
86 |
C allow the truncated ellipse rheology (runtime flag SEAICEuseTEM) |
C allow the truncated ellipse rheology (runtime flag SEAICEuseTEM) |
87 |
#undef SEAICE_ALLOW_TEM |
#undef SEAICE_ALLOW_TEM |
88 |
#endif /* SEAICE_CGRID */ |
#endif /* SEAICE_CGRID */ |