source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/yoethf.F90

Last change on this file 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: 2.2 KB
Line 
1MODULE YOETHF
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*     *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
11!     ------------------------------------------------------------------
12
13REAL(KIND=JPRB) :: R2ES
14REAL(KIND=JPRB) :: R3LES
15REAL(KIND=JPRB) :: R3IES
16REAL(KIND=JPRB) :: R4LES
17REAL(KIND=JPRB) :: R4IES
18REAL(KIND=JPRB) :: R5LES
19REAL(KIND=JPRB) :: R5IES
20REAL(KIND=JPRB) :: RVTMP2
21REAL(KIND=JPRB) :: RHOH2O
22REAL(KIND=JPRB) :: R5ALVCP
23REAL(KIND=JPRB) :: R5ALSCP
24REAL(KIND=JPRB) :: RALVDCP
25REAL(KIND=JPRB) :: RALSDCP
26REAL(KIND=JPRB) :: RALFDCP
27REAL(KIND=JPRB) :: RTWAT
28REAL(KIND=JPRB) :: RTBER
29REAL(KIND=JPRB) :: RTBERCU
30REAL(KIND=JPRB) :: RTICE
31REAL(KIND=JPRB) :: RTICECU
32REAL(KIND=JPRB) :: RTWAT_RTICE_R
33REAL(KIND=JPRB) :: RTWAT_RTICECU_R
34REAL(KIND=JPRB) :: RKOOP1
35REAL(KIND=JPRB) :: RKOOP2
36
37!     J.-J. MORCRETTE                   91/07/14  ADAPTED TO I.F.S.
38
39!      NAME     TYPE      PURPOSE
40!      ----     ----      -------
41
42!     *R__ES*   REAL      *CONSTANTS USED FOR COMPUTATION OF SATURATION
43!                         MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
44!                         ICE(*R_IES*).
45!     *RVTMP2*  REAL      *RVTMP2=RCPV/RCPD-1.
46!     *RHOH2O*  REAL      *DENSITY OF LIQUID WATER.   (RATM/100.)
47!     *R5ALVCP* REAL      *R5LES*RLVTT/RCPD
48!     *R5ALSCP* REAL      *R5IES*RLSTT/RCPD
49!     *RALVDCP* REAL      *RLVTT/RCPD
50!     *RALSDCP* REAL      *RLSTT/RCPD
51!     *RALFDCP* REAL      *RLMLT/RCPD
52!     *RTWAT*   REAL      *RTWAT=RTT
53!     *RTBER*   REAL      *RTBER=RTT-0.05
54!     *RTBERCU  REAL      *RTBERCU=RTT-5.0
55!     *RTICE*   REAL      *RTICE=RTT-0.1
56!     *RTICECU* REAL      *RTICECU=RTT-23.0
57!     *RKOOP?   REAL      *CONSTANTS TO DESCRIBE KOOP FORM FOR NUCLEATION
58!     *RTWAT_RTICE_R*   REAL      *RTWAT_RTICE_R=1./(RTWAT-RTICE)
59!     *RTWAT_RTICECU_R* REAL      *RTWAT_RTICECU_R=1./(RTWAT-RTICECU)
60
61!       ----------------------------------------------------------------
62!$OMP THREADPRIVATE(r2es,r3ies,r3les,r4ies,r4les,r5alscp,r5alvcp,r5ies,r5les)
63!$OMP THREADPRIVATE(ralfdcp,ralsdcp,ralvdcp,rhoh2o,rkoop1,rkoop2,rtber,rtbercu)
64!$OMP THREADPRIVATE(rtice,rticecu,rtwat,rtwat_rtice_r,rtwat_rticecu_r,rvtmp2)
65END MODULE YOETHF
Note: See TracBrowser for help on using the repository browser.