133 |
& ' /* adiabatic lapse rate [?] */') |
& ' /* adiabatic lapse rate [?] */') |
134 |
CALL WRITE_0D_R8( saltsat, INDEX_NONE, 'saltsat =', |
CALL WRITE_0D_R8( saltsat, INDEX_NONE, 'saltsat =', |
135 |
& ' /* reduction of Qsat over salty water [-] */') |
& ' /* reduction of Qsat over salty water [-] */') |
136 |
|
CALL WRITE_0D_L( noNegativeEvap,INDEX_NONE,'noNegativeEvap =', |
137 |
|
& ' /* prevent negative Evaporation */') |
138 |
|
CALL WRITE_0D_R8( sstExtrapol, INDEX_NONE, 'sstExtrapol =', |
139 |
|
& ' /* extrapolation coeff from lev. 1 & 2 to surf [-] */') |
140 |
CALL WRITE_0D_R8( cdrag_1, INDEX_NONE, 'cDrag_1 =', |
CALL WRITE_0D_R8( cdrag_1, INDEX_NONE, 'cDrag_1 =', |
141 |
& ' /* coef used in drag calculation [?] */') |
& ' /* coef used in drag calculation [?] */') |
142 |
CALL WRITE_0D_R8( cdrag_2, INDEX_NONE, 'cDrag_2 =', |
CALL WRITE_0D_R8( cdrag_2, INDEX_NONE, 'cDrag_2 =', |