| Directory: | ./ |
|---|---|
| File: | Ocean_skin/therm_expans_m.f90 |
| Date: | 2022-01-11 19:19:34 |
| Exec | Total | Coverage | |
|---|---|---|---|
| Lines: | 0 | 3 | 0.0% |
| Branches: | 0 | 0 | -% |
| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | module therm_expans_m | ||
| 2 | |||
| 3 | implicit none | ||
| 4 | |||
| 5 | contains | ||
| 6 | |||
| 7 | ✗ | elemental real function therm_expans(t) | |
| 8 | |||
| 9 | ! Compute the thermal expansion coefficient of sea water. | ||
| 10 | |||
| 11 | real, intent(in):: t ! temperature, in K | ||
| 12 | |||
| 13 | !-------------------------------------------------------------- | ||
| 14 | |||
| 15 | ✗ | therm_expans = 2.1e-5 * (t - 269.95)**0.79 | |
| 16 | |||
| 17 | ✗ | end function therm_expans | |
| 18 | |||
| 19 | end module therm_expans_m | ||
| 20 |