175 |
&' /* Depth scale for Bryan and Lewis 1979 ( m ) */') |
&' /* Depth scale for Bryan and Lewis 1979 ( m ) */') |
176 |
CALL WRITE_0D_R8( diffKrBL79Ho, INDEX_NONE,'diffKrBL79Ho =', |
CALL WRITE_0D_R8( diffKrBL79Ho, INDEX_NONE,'diffKrBL79Ho =', |
177 |
&' /* Turning depth for Bryan and Lewis 1979 ( m ) */') |
&' /* Turning depth for Bryan and Lewis 1979 ( m ) */') |
178 |
|
CALL WRITE_0D_R8( ivdc_kappa, INDEX_NONE,'ivdc_kappa =', |
179 |
|
& ' /* Implicit Vertical Diffusivity for Convection ( m^2/s ) */') |
180 |
|
CALL WRITE_0D_R8( hMixCriteria, INDEX_NONE,'hMixCriteria=', |
181 |
|
& ' /* Criteria for mixed-layer diagnostic */') |
182 |
CALL WRITE_0D_C( eosType, 0, INDEX_NONE, 'eosType =', |
CALL WRITE_0D_C( eosType, 0, INDEX_NONE, 'eosType =', |
183 |
& ' /* Type of Equation of State */') |
& ' /* Type of Equation of State */') |
184 |
CALL WRITE_0D_R8( tAlpha, INDEX_NONE,'tAlpha =', |
CALL WRITE_0D_R8( tAlpha, INDEX_NONE,'tAlpha =', |