source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yomrdu15.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: 2.2 KB
Line 
1MODULE YOMRDU15
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    ** *YOMRDU15* - CONTROL, PARAM. AND SECURITY IN RADIATION
11!*                          FROZEN VERSION (CYCLE 15) OF YOERDU
12!     ------------------------------------------------------------------
13
14INTEGER(KIND=JPIM) :: NUAER15
15INTEGER(KIND=JPIM) :: NTRAER15
16INTEGER(KIND=JPIM) :: NIMP15
17INTEGER(KIND=JPIM) :: NOUT15
18REAL(KIND=JPRB) :: RCDAY15
19REAL(KIND=JPRB) :: R10E15
20REAL(KIND=JPRB) :: REELOG15
21REAL(KIND=JPRB) :: REPSC15
22REAL(KIND=JPRB) :: REPSCO15
23REAL(KIND=JPRB) :: REPSCQ15
24REAL(KIND=JPRB) :: REPSCT15
25REAL(KIND=JPRB) :: REPSCW15
26REAL(KIND=JPRB) :: REPSEC15
27REAL(KIND=JPRB) :: DIFF15
28
29!        * E.C.M.W.F. PHYSICS PACKAGE *
30
31!        96-11: Ph. Dandin. Meteo-France
32!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
33
34!  NAME        TYPE     PURPOSE
35!  ----     :  ----   : ------------------------------------------------
36! NUAER15   : INTEGER   # OF ABSORBER AMOUNTS        W OR W/O AEROSOLS
37! NTRAER15  : INTEGER   # OF TRANSMISSION FUNCTIONS  W OR W/O AEROSOLS
38! NIMP15    : INTEGER   INDEX FOR EXTRA PRINTS WITHIN RADIATION CODE
39! NOUT15    : INTEGER   UNIT NUMBER FOR THE EXTRA PRINTS
40! RCDAY15   : REAL
41! CCO215    : REAL      CONVERSION COEFFICIENT FOR CO2 IN S.W. CODE
42! CH2O15    : REAL      CONVERSION COEFFICIENT FOR H2O IN S.W. CODE
43! R10E15    : REAL      DECIMAL/NATURAL LOG.FACTOR
44! DIFF15    : REAL      DIFFUSIVITY FACTOR
45!-SECURITY THRESHOLDS
46! REELOG15  : REAL      SEC. EPSILON FOR ABS.AMOUNT IN LAPLACE TRANSFORM
47! REPSC15   : REAL      SEC. EPSILON FOR CLOUD COVER
48! REPSEC15  : REAL      SEC. EPSILON FOR CLOUD COVER (was in YOECLD)
49! REPSCO15  : REAL      SEC. EPSILON FOR OZONE AMOUNT
50! REPSCQ15  : REAL      SEC. EPSILON FOR WATER VAPOR
51! REPSCT15  : REAL      SEC. EPSILON FOR SHORTWAVE OPTICAL THICKNESS
52! REPSCW15  : REAL      SEC. EPSILON FOR CLOUD LIQUID WATER PATH
53!     -----------------------------------------------------------------
54!$OMP THREADPRIVATE(diff15,nimp15,nout15,ntraer15,nuaer15,r10e15,rcday15,reelog15)
55!$OMP THREADPRIVATE(repsc15,repsco15,repscq15,repsct15,repscw15,repsec15)
56END MODULE YOMRDU15
Note: See TracBrowser for help on using the repository browser.