source: LMDZ6/trunk/libf/phylmd/Ocean_skin/therm_expans_m.f90 @ 5408

Last change on this file since 5408 was 5268, checked in by abarral, 8 weeks ago

.f90 <-> .F90 depending on cpp key use

File size: 374 bytes
Line 
1module therm_expans_m
2
3  implicit none
4
5contains
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
19end module therm_expans_m
Note: See TracBrowser for help on using the repository browser.