31 |
C so that d/dt(eta) is exactly equal to - Div.Transport |
C so that d/dt(eta) is exactly equal to - Div.Transport |
32 |
#define EXACT_CONSERV |
#define EXACT_CONSERV |
33 |
|
|
34 |
|
C------------------------------------------------------------------ |
35 |
|
C |
36 |
C o Allow the use of Non-Linear Free-Surface formulation |
C o Allow the use of Non-Linear Free-Surface formulation |
37 |
C this implies that surface thickness (hFactors) vary with time |
C this implies that surface thickness (hFactors) vary with time |
38 |
#define NONLIN_FRSURF |
cph#undef NONLIN_FRSURF |
39 |
|
|
40 |
C o NEW OPTION to disable rStar (z*) code |
C o NEW OPTION to disable rStar (z*) code |
41 |
#define DISABLE_RSTAR_CODE |
cph#define DISABLE_RSTAR_CODE |
42 |
|
C |
43 |
|
C------------------------------------------------------------------ |
44 |
|
|
45 |
C o Use "OLD" UV discretisation near boundaries (*not* recommended) |
C o Use "OLD" UV discretisation near boundaries (*not* recommended) |
46 |
C Note - only works with #undef NO_SLIP_LATERAL in calc_mom_rhs.F |
C Note - only works with #undef NO_SLIP_LATERAL in calc_mom_rhs.F |
47 |
C because the old code did not have no-slip BCs |
C because the old code did not have no-slip BCs |