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 */ |
89 |
|
|
90 |
C-- When set use MAX_HEFF to cap sea ice thickness in seaice_growth |
C-- When set use MAX_HEFF to cap sea ice thickness in seaice_growth |
91 |
#undef SEAICE_CAP_HEFF |
#undef SEAICE_CAP_HEFF |
92 |
|
C-- When set use SEAICE_clipVelocties = .true., to clip U/VICE at 40cm/s, |
93 |
|
C-- not recommended, here enabled for backward compatibility |
94 |
|
#define SEAICE_ALLOW_CLIPVELS |
95 |
|
|
96 |
#endif /* SEAICE_OPTIONS_H */ |
#endif /* SEAICE_OPTIONS_H */ |
97 |
|
|