00001
00002
00003
00004
00005 !> @file
00006 !!
00007 !! Computation of the water-vapour saturation pressure.
00008 !!
00009 !! @section Copyright
00010 !!
00011 !! Copyright 2010, 2011 Ralf Greve, Bjoern Grieger, Oliver J. Stenzel
00012 !!
00013 !! @section License
00014 !!
00015 !! This file is part of MAIC-2.
00016 !!
00017 !! MAIC-2 is free software: you can redistribute it and/or modify
00018 !! it under the terms of the GNU General Public License as published by
00019 !! the Free Software Foundation, either version 3 of the License, or
00020 !! (at your option) any later version.
00021 !!
00022 !! MAIC-2 is distributed in the hope that it will be useful,
00023 !! but WITHOUT ANY WARRANTY; without even the implied warranty of
00024 !! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
00025 !! GNU General Public License for more details.
00026 !!
00027 !! You should have received a copy of the GNU General Public License
00028 !! along with MAIC-2. If not, see <http://www.gnu.org/licenses/>.
00029 !<
00030 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00031
00032
00033 !> Computation of the water-vapour saturation pressure.
00034 !<------------------------------------------------------------------------------
00035 elemental function p_sat(temp_surf) result(psat)
00036
00037 use maic2_types
00038
00039 implicit none
00040
00041 real(dp), intent(in) :: temp_surf
00042
00043 real(dp) :: psat
00044
00045
00046
00047
00048
00049
00050
00051 psat = 610.66_dp * exp( 21.875_dp*(temp_surf-273.16_dp)/ &
00052 (temp_surf- 7.65_dp) )
00053
00054 end function p_sat
00055