source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yomsta.F90 @ 3847

Last change on this file since 3847 was 2010, checked in by Laurent Fairhead, 11 years ago

Modifications pour OpenMP


OpenMP modifications

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 4.4 KB
Line 
1MODULE YOMSTA
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    Description of standard atmosphere (prefix R)
11!*    and of reference atm. used in post-processing (prefix V)
12
13!    Suffixe    for RZ, RT and RP (VZ, VT AND VP)            |      RDTDZ
14!                                                            |
15!  1:(SUR)   Soil Surface                                    | 1: Troposphere
16!  2:(TROP)  Bottom of tropopause                            | 2: Tropopause
17!  3:(STRA)  Top of tropopause - Bottom of stratosphere      | 3: Stratosphere
18!  4:(STR2)  Modification of temperature gradient            | 4:      "
19!  5:(STPO)  Top of stratosphere - Bottom of stratopause     | 5: Stratopause
20!  6:(MESO)  Top of stratopause - Bottom of mesosphere       | 6: Mesosphere
21!  7:(MES2)  Modification of temperature gradient            | 7:      "
22!  8:(MEPO)  Top of mesosphere - Bottom of mesopause         | 8: Mesopause
23!  9:(ABOV)  Top of mesopause                                | 9: Above
24
25!  and we have for exemple :
26!     RDTDZ1: DT/DZ below tropopause (-6.5 K/KM)
27!     RZTROP: Top of troposphere (Height of tropopause : 11000 M)
28!     RTSUR : Surface temperature (288.15)
29
30!     STPREH(0:NFLEVG) : PRESSURE OF THE HALF LEVELS
31!     STPRE   (NFLEVG) : PRESSURE OF THE LEVELS
32!     STPHI   (NFLEVG) : GEOPOTENTIAL
33!     STTEM   (NFLEVG) : TEMPERATURE
34!     STDEN   (NFLEVG) : DENSITY
35!     STZ     (NFLEVG) : GEOPOTENTIAL
36
37! === OTHER QUANTITIES ===
38
39! NLEXTRAP: LEVEL (CLOSE TO THE SURFACE)
40!          FROM WHERE THE TEMPERATURE IS EXTRAPOLATED
41! HEXTRAP : height from where the temperature is extrapolated.
42
43REAL(KIND=JPRB),ALLOCATABLE:: STPREH(:)
44REAL(KIND=JPRB),ALLOCATABLE:: STPRE(:)
45REAL(KIND=JPRB),ALLOCATABLE:: STPHI(:)
46REAL(KIND=JPRB),ALLOCATABLE:: STTEM(:)
47REAL(KIND=JPRB),ALLOCATABLE:: STDEN(:)
48REAL(KIND=JPRB),ALLOCATABLE:: STZ(:)
49REAL(KIND=JPRB) :: RZTROP
50REAL(KIND=JPRB) :: RZSTRA
51REAL(KIND=JPRB) :: RZSTR2
52REAL(KIND=JPRB) :: RZSTPO
53REAL(KIND=JPRB) :: RZMESO
54REAL(KIND=JPRB) :: RZMES2
55REAL(KIND=JPRB) :: RZMEPO
56REAL(KIND=JPRB) :: RZABOV
57REAL(KIND=JPRB) :: RTSUR
58REAL(KIND=JPRB) :: RTTROP
59REAL(KIND=JPRB) :: RTSTRA
60REAL(KIND=JPRB) :: RTSTR2
61REAL(KIND=JPRB) :: RTSTPO
62REAL(KIND=JPRB) :: RTMESO
63REAL(KIND=JPRB) :: RTMES2
64REAL(KIND=JPRB) :: RTMEPO
65REAL(KIND=JPRB) :: RTABOV
66REAL(KIND=JPRB) :: RPTROP
67REAL(KIND=JPRB) :: RPSTRA
68REAL(KIND=JPRB) :: RPSTR2
69REAL(KIND=JPRB) :: RPSTPO
70REAL(KIND=JPRB) :: RPMESO
71REAL(KIND=JPRB) :: RPMES2
72REAL(KIND=JPRB) :: RPMEPO
73REAL(KIND=JPRB) :: RPABOV
74REAL(KIND=JPRB) :: RDTDZ1
75REAL(KIND=JPRB) :: RDTDZ2
76REAL(KIND=JPRB) :: RDTDZ3
77REAL(KIND=JPRB) :: RDTDZ4
78REAL(KIND=JPRB) :: RDTDZ5
79REAL(KIND=JPRB) :: RDTDZ6
80REAL(KIND=JPRB) :: RDTDZ7
81REAL(KIND=JPRB) :: RDTDZ8
82REAL(KIND=JPRB) :: RDTDZ9
83REAL(KIND=JPRB) :: VZTROP
84REAL(KIND=JPRB) :: VZSTRA
85REAL(KIND=JPRB) :: VZSTR2
86REAL(KIND=JPRB) :: VZSTPO
87REAL(KIND=JPRB) :: VZMESO
88REAL(KIND=JPRB) :: VZMES2
89REAL(KIND=JPRB) :: VZMEPO
90REAL(KIND=JPRB) :: VZABOV
91REAL(KIND=JPRB) :: VTSUR
92REAL(KIND=JPRB) :: VTTROP
93REAL(KIND=JPRB) :: VTSTRA
94REAL(KIND=JPRB) :: VTSTR2
95REAL(KIND=JPRB) :: VTSTPO
96REAL(KIND=JPRB) :: VTMESO
97REAL(KIND=JPRB) :: VTMES2
98REAL(KIND=JPRB) :: VTMEPO
99REAL(KIND=JPRB) :: VTABOV
100REAL(KIND=JPRB) :: VPTROP
101REAL(KIND=JPRB) :: VPSTRA
102REAL(KIND=JPRB) :: VPSTR2
103REAL(KIND=JPRB) :: VPSTPO
104REAL(KIND=JPRB) :: VPMESO
105REAL(KIND=JPRB) :: VPMES2
106REAL(KIND=JPRB) :: VPMEPO
107REAL(KIND=JPRB) :: VPABOV
108REAL(KIND=JPRB) :: VDTDZ1
109REAL(KIND=JPRB) :: VDTDZ2
110REAL(KIND=JPRB) :: VDTDZ3
111REAL(KIND=JPRB) :: VDTDZ4
112REAL(KIND=JPRB) :: VDTDZ5
113REAL(KIND=JPRB) :: VDTDZ6
114REAL(KIND=JPRB) :: VDTDZ7
115REAL(KIND=JPRB) :: VDTDZ8
116REAL(KIND=JPRB) :: VDTDZ9
117REAL(KIND=JPRB) :: HEXTRAP
118INTEGER(KIND=JPIM) :: NLEXTRAP
119
120!     ------------------------------------------------------------------
121!$OMP THREADPRIVATE(hextrap,nlextrap,rdtdz1,rdtdz2,rdtdz3,rdtdz4,rdtdz5,rdtdz6,rdtdz7,rdtdz8,rdtdz9)
122!$OMP THREADPRIVATE(rpabov,rpmepo,rpmes2,rpmeso,rpstpo,rpstr2,rpstra,rptrop,rtabov,rtmepo,rtmes2,rtmeso)
123!$OMP THREADPRIVATE(rtstpo,rtstr2,rtstra,rtsur,rttrop,rzabov,rzmepo,rzmes2,rzmeso,rzstpo,rzstr2,rzstra)
124!$OMP THREADPRIVATE(rztrop,vdtdz1,vdtdz2,vdtdz3,vdtdz4,vdtdz5,vdtdz6,vdtdz7,vdtdz8,vdtdz9,vpabov,vpmepo)
125!$OMP THREADPRIVATE(vpmes2,vpmeso,vpstpo,vpstr2,vpstra,vptrop,vtabov,vtmepo,vtmes2,vtmeso,vtstpo,vtstr2)
126!$OMP THREADPRIVATE(vtstra,vtsur,vttrop,vzabov,vzmepo,vzmes2,vzmeso,vzstpo,vzstr2,vzstra,vztrop)
127!$OMP THREADPRIVATE(stden,stphi,stpre,stpreh,sttem,stz)
128END MODULE YOMSTA
Note: See TracBrowser for help on using the repository browser.