110 |
&'useFullLeith =', |
&'useFullLeith =', |
111 |
&' /* Use Full Form of Leith Viscosity on/off flag*/') |
&' /* 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 |
&' /* Leith harmonic viscosity factor (on grad(vort),non-dim.) */') |
|
& (on grad(vort),non-dim.) */') |
|
114 |
CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =', |
CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =', |
115 |
&' /* Leith harmonic viscosity factor |
&' /* Leith harmonic viscosity factor (on grad(div),non-dim.) */') |
|
& (on grad(div),non-dim.) */') |
|
116 |
CALL WRITE_0D_R8( viscC2smag, INDEX_NONE,'viscC2smag =', |
CALL WRITE_0D_R8( viscC2smag, INDEX_NONE,'viscC2smag =', |
117 |
&' /* Smagorinsky harmonic viscosity factor (non-dim.) */') |
&' /* Smagorinsky harmonic viscosity factor (non-dim.) */') |
118 |
CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =', |
CALL WRITE_0D_R8( viscA4, INDEX_NONE,'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 |
&' /* Leith biharm viscosity factor (on grad(vort), non-dim.) */') |
|
& ( on grad(vort), non-dom. ) */') |
|
132 |
CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =', |
CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =', |
133 |
&' /* Leith biharmonic viscosity factor |
&' /* Leith biharm viscosity factor (on grad(div), non-dim.) */') |
|
& ( 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 =', |