saturation_mod Module Reference

Saturation physics functionality which is used throughout the code. More...

Functions/Subroutines
real(kind=default_precision) function, public	qsaturation (temperature, pressure)
	Function to return the saturation mixing ratio over water based on tetans formular QS=3.8/(P*EXP(-17.2693882*(T-273.15)/(T-35.86))-6.109) More...
real(kind=default_precision) function, public	dqwsatdt (saturation_mixing_ratio, temperature)
	Calculated the rate of change with temperature of saturation mixing ratio over liquid water. Based on tetans formular QS=3.8/(P*EXP(-17.2693882*(T-273.15)/(T-35.86))-6.109) More...

Variables
real(kind=default_precision), parameter	tk0c = 273.15_DEFAULT_PRECISION
real(kind=default_precision), parameter	qsa1 = 3.8_DEFAULT_PRECISION
real(kind=default_precision), parameter	qsa2 = -17.2693882_DEFAULT_PRECISION
real(kind=default_precision), parameter	qsa3 = 35.86_DEFAULT_PRECISION
real(kind=default_precision), parameter	qsa4 = 6.109_DEFAULT_PRECISION

Detailed Description

Saturation physics functionality which is used throughout the code.

Function/Subroutine Documentation

dqwsatdt()

real(kind=default_precision) function, public saturation_mod::dqwsatdt	(	real(kind=default_precision), intent(in)	saturation_mixing_ratio,
		real(kind=default_precision), intent(in)	temperature
	)

Calculated the rate of change with temperature of saturation mixing ratio over liquid water. Based on tetans formular QS=3.8/(P*EXP(-17.2693882*(T-273.15)/(T-35.86))-6.109)

Parameters

saturation_mixing_ratio	The saturation mixing ratio
temperature	The temperature

Returns

The mixing ratio

Definition at line 32 of file saturation.F90.

    real(kind=default_precision), intent(in) :: saturation_mixing_ratio, temperature
    
    dqwsatdt = -qsa2*(tk0c-qsa3)*(1.0_default_precision+qsa4*saturation_mixing_ratio/qsa1)*&
         saturation_mixing_ratio*(temperature-qsa3)**(-2.0_default_precision)

Here is the caller graph for this function:

qsaturation()

real(kind=default_precision) function, public saturation_mod::qsaturation	(	real(kind=default_precision), intent(in)	temperature,
		real(kind=default_precision), intent(in)	pressure
	)

Function to return the saturation mixing ratio over water based on tetans formular QS=3.8/(P*EXP(-17.2693882*(T-273.15)/(T-35.86))-6.109)

Parameters

temperature	The temperature
pressure	The pressure

Returns

The mixing ratio

Definition at line 21 of file saturation.F90.

    real(kind=default_precision), intent(in) :: temperature, pressure
 
    qsaturation = qsa1/(pressure*exp(qsa2*(temperature - tk0c)/(temperature - qsa3)) - qsa4)

Here is the caller graph for this function:

Variable Documentation

qsa1

real(kind=default_precision), parameter saturation_mod::qsa1 = 3.8_DEFAULT_PRECISION

Definition at line 6 of file saturation.F90.

qsa2

real(kind=default_precision), parameter saturation_mod::qsa2 = -17.2693882_DEFAULT_PRECISION

Definition at line 6 of file saturation.F90.

qsa3

real(kind=default_precision), parameter saturation_mod::qsa3 = 35.86_DEFAULT_PRECISION

Definition at line 6 of file saturation.F90.

qsa4

real(kind=default_precision), parameter saturation_mod::qsa4 = 6.109_DEFAULT_PRECISION

Definition at line 6 of file saturation.F90.

tk0c

real(kind=default_precision), parameter saturation_mod::tk0c = 273.15_DEFAULT_PRECISION

Definition at line 6 of file saturation.F90.

   real(kind=default_precision), parameter :: &
        tk0c = 273.15_default_precision,      &! Temperature of freezing in Kelvin
        qsa1 = 3.8_default_precision,         &! Top in equation to calculate qsat
        qsa2 = -17.2693882_default_precision, &! Constant in qsat equation
        qsa3 = 35.86_default_precision,       &! Constant in qsat equation
        qsa4 = 6.109_default_precision       ! Constant in qsat equation