UPP (develop)
Loading...
Searching...
No Matches
LOOKUP.f
Go to the documentation of this file.
1
3 module lookup_mod
4!
5 implicit none
6!
7 integer,parameter :: itb=076, & !< Table horizontal size (i index)
8 jtb=134, &
9 itbq=152, &
10 jtbq=440
11
12
13 real :: pl & !< Lower bound of pressure range
14 ,thl & !< Lower bound of potential temperature range
15 ,rdq & !< Scaling factor for specific humidity
16 ,rdth & !< Scaling factor for potential temperature
17 ,rdp & !< Scaling factor for pressure
18 ,rdthe & !< Scaling factor for equivalent potential temperature
19 ,plq & !< Lower bound of pressure range for specific humidity _____?
20 ,rdpq & !< Scaling factor for pressure and specific humidity _____?
21 ,rdtheq
22
23 real,dimension(JTB) :: qs0, & !< Base for specific humidity
24 sqs
25 real,dimension(ITB) :: the0, & !< Base for equivalent potential temperature
26 sthe
27 real,dimension(ITBQ) :: the0q, & !< _____?
28 stheq
29 real,dimension(ITB,JTB) :: ptbl
30 real,dimension(JTB,ITB) :: ttbl
31 real,dimension(JTBQ,ITBQ) :: ttblq
32!
33 end module lookup_mod