1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
|
#include "PACKAGES_CONFIG.h" |
5 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
6 |
|
|
7 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
25 |
#include "SIZE.h" |
#include "SIZE.h" |
26 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
27 |
#include "PARAMS.h" |
#include "PARAMS.h" |
|
#ifdef ALLOW_MNC |
|
|
#include "MNC_PARAMS.h" |
|
|
#endif |
|
28 |
#include "EOS.h" |
#include "EOS.h" |
29 |
#include "GRID.h" |
#include "GRID.h" |
30 |
#include "DYNVARS.h" |
#include "DYNVARS.h" |
31 |
|
#ifdef ALLOW_MNC |
32 |
|
#include "MNC_PARAMS.h" |
33 |
|
#endif |
34 |
|
|
35 |
C !INPUT/OUTPUT PARAMETERS: |
C !INPUT/OUTPUT PARAMETERS: |
36 |
C myThid :: Number of this instance of CONFIG_SUMMARY |
C myThid :: Number of this instance of CONFIG_SUMMARY |
106 |
&' /* Maximum lateral eddy viscosity ( m^2/s ) */') |
&' /* Maximum lateral eddy viscosity ( m^2/s ) */') |
107 |
CALL WRITE_0D_R8( viscAhGrid, INDEX_NONE,'viscAhGrid =', |
CALL WRITE_0D_R8( viscAhGrid, INDEX_NONE,'viscAhGrid =', |
108 |
&' /* Grid dependent lateral eddy viscosity ( non-dim. ) */') |
&' /* Grid dependent lateral eddy viscosity ( non-dim. ) */') |
109 |
|
CALL WRITE_0D_L( useFullLeith, INDEX_NONE, |
110 |
|
&'useFullLeith =', |
111 |
|
&' /* Use Full Form of Leith Viscosity on/off flag*/') |
112 |
CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =', |
CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =', |
113 |
&' /* Leith harmonic viscosity factor ( non-dom. ) */') |
&' /* Leith harmonic viscosity factor ( on grad(vort), non-dim. ) */') |
114 |
|
CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =', |
115 |
|
&' /* Leith harmonic viscosity factor ( on grad(div), non-dim. ) */') |
116 |
|
CALL WRITE_0D_R8( viscC2smag, INDEX_NONE,'viscC2smag =', |
117 |
|
&' /* Smagorinsky harmonic viscosity factor (non-dim.) */') |
118 |
CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =', |
CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =', |
119 |
&' /* Lateral biharmonic viscosity ( m^4/s ) */') |
&' /* Lateral biharmonic viscosity ( m^4/s ) */') |
120 |
IF ( viscA4D.NE.viscA4 ) |
IF ( viscA4D.NE.viscA4 ) |
128 |
CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =', |
CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =', |
129 |
&' /* Grid dependent biharmonic viscosity ( non-dim. ) */') |
&' /* Grid dependent biharmonic viscosity ( non-dim. ) */') |
130 |
CALL WRITE_0D_R8( viscC4leith, INDEX_NONE,'viscC4leith =', |
CALL WRITE_0D_R8( viscC4leith, INDEX_NONE,'viscC4leith =', |
131 |
&' /* Leith biharmonic viscosity factor ( non-dom. ) */') |
&' /* Leith biharmonic viscosity factor ( on grad(vort), non-dom. ) */') |
132 |
|
CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =', |
133 |
|
&' /* Leith biharmonic viscosity factor ( on grad(div), non-dom. ) */') |
134 |
CALL WRITE_0D_L( no_slip_sides, INDEX_NONE, |
CALL WRITE_0D_L( no_slip_sides, INDEX_NONE, |
135 |
& 'no_slip_sides =', ' /* Viscous BCs: No-slip sides */') |
& 'no_slip_sides =', ' /* Viscous BCs: No-slip sides */') |
136 |
CALL WRITE_0D_R8( viscAr, INDEX_NONE,'viscAr =', |
CALL WRITE_0D_R8( viscAr, INDEX_NONE,'viscAr =', |