47 |
C otherwise, use the merged version (with some of Ian Fenty s code) |
C otherwise, use the merged version (with some of Ian Fenty s code) |
48 |
#define SEAICE_GROWTH_LEGACY |
#define SEAICE_GROWTH_LEGACY |
49 |
|
|
50 |
|
C-- Since the missing sublimation term is now included |
51 |
|
C this flag is needed for backward compatibility |
52 |
|
#undef SEAICE_DISABLE_SUBLIM |
53 |
|
|
54 |
C-- options only available in the merged version |
C-- options only available in the merged version |
55 |
#ifndef SEAICE_GROWTH_LEGACY |
#ifndef SEAICE_GROWTH_LEGACY |
56 |
C- to ensure heat conservation in the coupled ocean-seaice system |
C- to ensure heat conservation in the coupled ocean-seaice system |
59 |
# undef ALLOW_PRECLUDE_INFINITESIMAL_AREA |
# undef ALLOW_PRECLUDE_INFINITESIMAL_AREA |
60 |
#endif |
#endif |
61 |
|
|
62 |
C-- By default the freezing point of water is set to the value of |
C-- The freezing point of water is a simple linear dependence to salinity. |
63 |
C the parameter SEAICE_freeze (=-1.96 by default). To use a |
C The flag below is now obsolete, but kept to ease the transition |
64 |
C simple linear dependence of the freezing point on salinity, |
C from the old constant freezing point default (see seaice_check.F). |
65 |
C set the following flag (pressure is assumed to have no effect, |
#define SEAICE_VARIABLE_FREEZING_POINT |
|
C which is a good assumption for the top 20 meters). With this |
|
|
C option defined the parameter SEAICE_freeze has no effect. |
|
|
#undef SEAICE_VARIABLE_FREEZING_POINT |
|
|
|
|
|
C-- Allow SEAICEuseFlooding, which converts snow to ice if submerged. |
|
|
#define ALLOW_SEAICE_FLOODING |
|
66 |
|
|
67 |
C-- By default sea ice is fresh. Set following flag for salty ice. |
C-- By default sea ice is fresh. Set following flag for salty ice. |
68 |
#undef SEAICE_VARIABLE_SALINITY |
#undef SEAICE_VARIABLE_SALINITY |
115 |
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, |
116 |
C-- not recommended |
C-- not recommended |
117 |
#undef SEAICE_ALLOW_CLIPVELS |
#undef SEAICE_ALLOW_CLIPVELS |
118 |
|
C-- When set cap the sublimation latent heat flux in solve4temp |
119 |
|
C according to the available amount of ice+snow. Otherwise this |
120 |
|
C term is treated like all of the others -- residuals heat and |
121 |
|
C fw stocks are passed to the ocean at the end of seaice_growth |
122 |
|
C in a conservative manner. SEAICE_CAP_SUBLIM is not needed |
123 |
|
C as of now, but kept just in case. |
124 |
|
#undef SEAICE_CAP_SUBLIM |
125 |
|
|
126 |
C enable free drift code |
C enable free drift code |
127 |
#undef SEAICE_ALLOW_FREEDRIFT |
#undef SEAICE_ALLOW_FREEDRIFT |