Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	phylmd/Ocean_skin/therm_expans_m.F90	Lines:	0	3	0.0 %
Date:	2023-06-30 12:56:34	Branches:	0	0	- %


module therm_expans_m

  implicit none

contains

  elemental real function therm_expans(t)

    ! Compute the thermal expansion coefficient of sea water.

    real, intent(in):: t ! temperature, in K

    !--------------------------------------------------------------

    therm_expans = 2.1e-5 * (t - 269.95)**0.79

  end function therm_expans

end module therm_expans_m


Generated by: GCOVR (Version 4.2)

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