FLEXPART CTBTO WO8
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
git
ctbto
flexpart_code
scalev.f90
Go to the documentation of this file.
1
!**********************************************************************
2
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
3
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
4
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
5
! *
6
! This file is part of FLEXPART. *
7
! *
8
! FLEXPART is free software: you can redistribute it and/or modify *
9
! it under the terms of the GNU General Public License as published by*
10
! the Free Software Foundation, either version 3 of the License, or *
11
! (at your option) any later version. *
12
! *
13
! FLEXPART is distributed in the hope that it will be useful, *
14
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
15
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
16
! GNU General Public License for more details. *
17
! *
18
! You should have received a copy of the GNU General Public License *
19
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
20
!**********************************************************************
21
22
real
function
scalev
(ps,t,td,stress)
23
24
!********************************************************************
25
! *
26
! Author: G. WOTAWA *
27
! Date: 1994-06-27 *
28
! Update: 1996-05-21 A. Stohl *
29
! *
30
!********************************************************************
31
! *
32
! This Programm calculates scale velocity ustar from surface *
33
! stress and air density. *
34
! *
35
!********************************************************************
36
! *
37
! INPUT: *
38
! *
39
! ps surface pressure [Pa] *
40
! t surface temperature [K] *
41
! td surface dew point [K] *
42
! stress surface stress [N/m2] *
43
! *
44
!********************************************************************
45
46
use
par_mod
47
48
implicit none
49
50
real
:: ps,t,td,e,
ew
,tv,rhoa,stress
51
52
e=
ew
(td)
! vapor pressure
53
tv=t*(1.+0.378*e/ps)
! virtual temperature
54
rhoa=ps/(r_air*tv)
! air density
55
scalev
=sqrt(abs(stress)/rhoa)
56
57
end function
scalev
scalev
real function scalev(ps, t, td, stress)
Definition:
scalev.f90:22
ew
real function ew(x)
Definition:
ew.f90:22
par_mod
Definition:
par_mod.F90:34
Generated on Sun Mar 27 2016 01:00:33 for FLEXPART CTBTO WO8 by
1.8.6