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-dom. ) */') |
114 |
|
CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =', |
115 |
|
&' /* Leith harmonic viscosity factor ( on grad(div), non-dom. ) */') |
116 |
CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =', |
CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =', |
117 |
&' /* Lateral biharmonic viscosity ( m^4/s ) */') |
&' /* Lateral biharmonic viscosity ( m^4/s ) */') |
118 |
IF ( viscA4D.NE.viscA4 ) |
IF ( viscA4D.NE.viscA4 ) |
126 |
CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =', |
CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =', |
127 |
&' /* Grid dependent biharmonic viscosity ( non-dim. ) */') |
&' /* Grid dependent biharmonic viscosity ( non-dim. ) */') |
128 |
CALL WRITE_0D_R8( viscC4leith, INDEX_NONE,'viscC4leith =', |
CALL WRITE_0D_R8( viscC4leith, INDEX_NONE,'viscC4leith =', |
129 |
&' /* Leith biharmonic viscosity factor ( non-dom. ) */') |
&' /* Leith biharmonic viscosity factor ( on grad(vort), non-dom. ) */') |
130 |
|
CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =', |
131 |
|
&' /* Leith biharmonic viscosity factor ( on grad(div), non-dom. ) */') |
132 |
CALL WRITE_0D_L( no_slip_sides, INDEX_NONE, |
CALL WRITE_0D_L( no_slip_sides, INDEX_NONE, |
133 |
& 'no_slip_sides =', ' /* Viscous BCs: No-slip sides */') |
& 'no_slip_sides =', ' /* Viscous BCs: No-slip sides */') |
134 |
CALL WRITE_0D_R8( viscAr, INDEX_NONE,'viscAr =', |
CALL WRITE_0D_R8( viscAr, INDEX_NONE,'viscAr =', |