28 |
C SEAICE_EXTERNAL_FORCING is defined, the above forcing variables |
C SEAICE_EXTERNAL_FORCING is defined, the above forcing variables |
29 |
C are defined and provided by an external package. At present this |
C are defined and provided by an external package. At present this |
30 |
C option is hardwired for pkg/exf and the variables are passed using |
C option is hardwired for pkg/exf and the variables are passed using |
31 |
C include file exf_fields.h. |
C include file EXF_FIELDS.h (=> cannot be defined without pkg/EXF ) |
32 |
#define SEAICE_EXTERNAL_FORCING |
#define SEAICE_EXTERNAL_FORCING |
33 |
#ifdef SEAICE_EXTERNAL_FORCING |
#ifndef ALLOW_EXF |
34 |
#include "EXF_OPTIONS.h" |
# undef SEAICE_EXTERNAL_FORCING |
35 |
#endif /* SEAICE_EXTERNAL_FORCING */ |
#endif |
36 |
|
|
37 |
|
#ifdef SEAICE_EXTERNAL_FORCING |
38 |
|
# include "EXF_OPTIONS.h" |
39 |
C-- By default, the sea-ice package uses its own integrated bulk |
C-- By default, the sea-ice package uses its own integrated bulk |
40 |
C formulae to compute fluxes (fu, fv, EmPmR, Qnet, and Qsw) over |
C formulae to compute fluxes (fu, fv, EmPmR, Qnet, and Qsw) over |
41 |
C open-ocean. When this flag is set, these variables are computed |
C open-ocean. When this flag is set, these variables are computed |
42 |
C in a separate external package, for example, pkg/exf, and then |
C in a separate external package, for example, pkg/exf, and then |
43 |
C modified for sea-ice effects by pkg/seaice. |
C modified for sea-ice effects by pkg/seaice. |
44 |
#define SEAICE_EXTERNAL_FLUXES |
# define SEAICE_EXTERNAL_FLUXES |
45 |
|
|
46 |
|
#else /* SEAICE_EXTERNAL_FORCING */ |
47 |
|
C- current implementation requires those options to be set: |
48 |
|
# undef SEAICE_EXTERNAL_FLUXES |
49 |
|
# define ALLOW_ATM_TEMP |
50 |
|
# define ALLOW_DOWNWARD_RADIATION |
51 |
|
# define ALLOW_RUNOFF |
52 |
|
|
53 |
|
#endif /* SEAICE_EXTERNAL_FORCING */ |
54 |
|
|
55 |
|
|
56 |
C-- By default, the sea-ice package uses 2-category thermodynamics. |
C-- By default, the sea-ice package uses 2-category thermodynamics. |
57 |
C When this flag is set, an 8-category calculation of ice |
C When this flag is set, an 8-category calculation of ice |
80 |
C set the following flag (pressure is assumed to have no effect, |
C set the following flag (pressure is assumed to have no effect, |
81 |
C which is a good assumption for the top 20 meters). With this |
C which is a good assumption for the top 20 meters). With this |
82 |
C option defined the parameter SEAICE_freeze has no effect. |
C option defined the parameter SEAICE_freeze has no effect. |
83 |
#undef SEAICE_VARIABLE_FREEZING_POINT |
#define SEAICE_VARIABLE_FREEZING_POINT |
84 |
|
|
85 |
C-- Allow SEAICEuseFlooding, which converts snow to ice if submerged. |
C-- Allow SEAICEuseFlooding, which converts snow to ice if submerged. |
86 |
#define ALLOW_SEAICE_FLOODING |
#define ALLOW_SEAICE_FLOODING |