34 |
C modified for sea-ice effects by pkg/seaice. |
C modified for sea-ice effects by pkg/seaice. |
35 |
#define SEAICE_EXTERNAL_FLUXES |
#define SEAICE_EXTERNAL_FLUXES |
36 |
|
|
37 |
C-- The actual number of ice categories used to solve for seaice flux is |
C-- This CPP flag has been retired. The number of ice categories |
38 |
C now a run-time parameter (SEAICE_multDim). |
C used to solve for seaice flux is now specified by run-time |
39 |
C This CPP-flag will be completely removed soon (no longer in main code); |
C parameter SEAICE_multDim. |
40 |
C it is just used to set default number of categories, i.e., =1 if undef, |
C Note: be aware of pickup_seaice.* compatibility issues when |
41 |
C or =MULTDIM if defined (MULTDIM=7 in default SEAICE_SIZE.h). |
C restarting a simulation with a different number of categories. |
42 |
C Note: be aware of pickup_seaice.* compatibility issues when restarting |
c#define SEAICE_MULTICATEGORY |
43 |
C a simulation with a different number of categories. |
|
44 |
#undef SEAICE_MULTICATEGORY |
C-- run with sea Ice Thickness Distribution (ITD); |
45 |
|
C set number of categories (nITD) in SEAICE_SIZE.h |
46 |
C-- Use the Old version of seaice_growth (close to cvs version 1.70) |
#undef SEAICE_ITD |
47 |
C otherwise, use the merged version (with some of Ian Fenty s code) |
|
|
#undef SEAICE_GROWTH_LEGACY |
|
48 |
#undef SEAICE_MODIFY_GROWTH_ADJ |
#undef SEAICE_MODIFY_GROWTH_ADJ |
49 |
|
|
50 |
C-- Since the missing sublimation term is now included |
C-- Since the missing sublimation term is now included |
76 |
#ifdef SEAICE_CGRID |
#ifdef SEAICE_CGRID |
77 |
C enable JFNK code by defining the following flag |
C enable JFNK code by defining the following flag |
78 |
# define SEAICE_ALLOW_JFNK |
# define SEAICE_ALLOW_JFNK |
79 |
|
C enable LSR to use global (multi-tile) tri-diagonal solver |
80 |
|
# undef SEAICE_GLOBAL_3DIAG_SOLVER |
81 |
C enable EVP code by defining the following flag |
C enable EVP code by defining the following flag |
82 |
# define SEAICE_ALLOW_EVP |
# define SEAICE_ALLOW_EVP |
83 |
# ifdef SEAICE_ALLOW_EVP |
# ifdef SEAICE_ALLOW_EVP |
84 |
C-- When set use SEAICE_zetaMin and SEAICE_evpDampC to limit viscosities |
C-- When set use SEAICE_zetaMin and SEAICE_evpDampC to limit viscosities |
85 |
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 |
86 |
# undef SEAICE_ALLOW_CLIPZETA |
# undef SEAICE_ALLOW_CLIPZETA |
87 |
# else /* not EVP */ |
# endif /* SEAICE_ALLOW_EVP */ |
88 |
C regularize zeta to zmax with a smooth tanh-function instead |
C regularize zeta to zmax with a smooth tanh-function instead |
89 |
C of a min(zeta,zmax). This improves convergence of iterative |
C of a min(zeta,zmax). This improves convergence of iterative |
90 |
C solvers (Lemieux and Tremblay 2009, JGR). No effect on EVP |
C solvers (Lemieux and Tremblay 2009, JGR). No effect on EVP |
91 |
# undef SEAICE_ZETA_SMOOTHREG |
# undef SEAICE_ZETA_SMOOTHREG |
|
# endif /* SEAICE_ALLOW_EVP */ |
|
92 |
C allow the truncated ellipse rheology (runtime flag SEAICEuseTEM) |
C allow the truncated ellipse rheology (runtime flag SEAICEuseTEM) |
93 |
# undef SEAICE_ALLOW_TEM |
# undef SEAICE_ALLOW_TEM |
94 |
#else /* not SEAICE_CGRID, but old B-grid */ |
#else /* not SEAICE_CGRID, but old B-grid */ |
107 |
# undef SEAICE_LSRBNEW |
# undef SEAICE_LSRBNEW |
108 |
#endif /* SEAICE_CGRID */ |
#endif /* SEAICE_CGRID */ |
109 |
|
|
|
C-- When set use MAX_HEFF to cap seaice thickness in seaice_growth; |
|
|
C currently only relevant for SEAICE_GROWTH_LEGACY |
|
|
#undef SEAICE_CAP_HEFF |
|
110 |
C-- When set limit the Ice-Loading to mass of 1/5 of Surface ocean grid-box |
C-- When set limit the Ice-Loading to mass of 1/5 of Surface ocean grid-box |
111 |
#undef SEAICE_CAP_ICELOAD |
#undef SEAICE_CAP_ICELOAD |
112 |
C-- When set use SEAICE_clipVelocties = .true., to clip U/VICE at 40cm/s, |
C-- When set use SEAICE_clipVelocties = .true., to clip U/VICE at 40cm/s, |
122 |
C-- Enable free drift code |
C-- Enable free drift code |
123 |
#undef SEAICE_ALLOW_FREEDRIFT |
#undef SEAICE_ALLOW_FREEDRIFT |
124 |
|
|
|
C-- run with sea ice thickness distribution; |
|
|
C set number of categories (nITD) in SEAICE_SIZE.h |
|
|
#undef SEAICE_ITD |
|
|
C |
|
|
C-- SEAICE_ITD replaces SEAICE_MULTICATEGORY |
|
|
#ifdef SEAICE_ITD |
|
|
#undef SEAICE_MULTICATEGORY |
|
|
#endif |
|
|
|
|
125 |
#endif /* ALLOW_SEAICE */ |
#endif /* ALLOW_SEAICE */ |
126 |
#endif /* SEAICE_OPTIONS_H */ |
#endif /* SEAICE_OPTIONS_H */ |
127 |
|
|