91 |
&' /* Reference salinity profile ( ppt ) */') |
&' /* Reference salinity profile ( ppt ) */') |
92 |
CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =', |
CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =', |
93 |
&' /* Lateral eddy viscosity ( m^2/s ) */') |
&' /* Lateral eddy viscosity ( m^2/s ) */') |
94 |
CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscAh =', |
CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =', |
95 |
&' /* Lateral biharmonic viscosity ( m^4/s ) */') |
&' /* Lateral biharmonic viscosity ( m^4/s ) */') |
96 |
CALL WRITE_0D_L( no_slip_sides, INDEX_NONE, |
CALL WRITE_0D_L( no_slip_sides, INDEX_NONE, |
97 |
& 'no_slip_sides =', ' /* Viscous BCs: No-slip sides */') |
& 'no_slip_sides =', ' /* Viscous BCs: No-slip sides */') |