153 |
& 'no_slip_bottom =', ' /* Viscous BCs: No-slip bottom */') |
& 'no_slip_bottom =', ' /* Viscous BCs: No-slip bottom */') |
154 |
CALL WRITE_0D_R8( bottomDragLinear, INDEX_NONE, |
CALL WRITE_0D_R8( bottomDragLinear, INDEX_NONE, |
155 |
& 'bottomDragLinear =', |
& 'bottomDragLinear =', |
156 |
& ' /* linear bottom-drag coefficient ('//rUnits//'/s ) */') |
& ' /* linear bottom-drag coefficient ( m/s ) */') |
157 |
CALL WRITE_0D_R8( bottomDragQuadratic, INDEX_NONE, |
CALL WRITE_0D_R8( bottomDragQuadratic, INDEX_NONE, |
158 |
& 'bottomDragQuadratic =', |
& 'bottomDragQuadratic =', |
159 |
& ' /* quadratic bottom-drag coeff. ('//rUnits//'/m ) */') |
& ' /* quadratic bottom-drag coefficient (-) */') |
160 |
CALL WRITE_0D_R8( diffKhT, INDEX_NONE,'diffKhT =', |
CALL WRITE_0D_R8( diffKhT, INDEX_NONE,'diffKhT =', |
161 |
&' /* Laplacian diffusion of heat laterally ( m^2/s ) */') |
&' /* Laplacian diffusion of heat laterally ( m^2/s ) */') |
162 |
CALL WRITE_0D_R8( diffK4T, INDEX_NONE,'diffK4T =', |
CALL WRITE_0D_R8( diffK4T, INDEX_NONE,'diffK4T =', |