source: LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/yoevdf.F90 @ 5134

Last change on this file since 5134 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: 1.6 KB
Line 
1MODULE YOEVDF
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    ** *YOEVDF* CONTAINS CONSTANTS NEEDED BY *VDF....*
11!     ------------------------------------------------------------------
12
13INTEGER(KIND=JPIM) :: NVTYPES
14REAL(KIND=JPRB) :: RLAM
15REAL(KIND=JPRB) :: RKAP
16REAL(KIND=JPRB) :: RVDIFTS
17REAL(KIND=JPRB) :: REPDU2
18REAL(KIND=JPRB) :: RENTR
19REAL(KIND=JPRB) :: RPAR
20REAL(KIND=JPRB) :: RPAR1
21REAL(KIND=JPRB) :: RPARSRF
22
23!*     *YOEVDF* CONTAINS CONSTANTS NEEDED BY *VDF....*
24!     FOR THE COMPUTATION OF VERTICAL DIFFUSION
25
26!     A.C.M. BELJAARS      E.C.M.W.F.    14/12/89
27
28!     OBUKHOV-L UPDATE     ACMB          26/03/90.   
29
30!     NAME        TYPE     DESCRIPTION
31!     ----        ----     -----------
32
33!     *NVTYPES*   INTEGER  Number of vegetation (surface cover) types
34!     *RLAM*      REAL     *ASYMPTOTIC MIXING LENGTH FOR MOMENTUM
35!     *RKAP*      REAL     *VONKARMAN CONSTANT
36!     *RVDIFTS*   REAL     *FACTOR FOR TIME STEP WEIGHTING IN *VDF....*
37!     *REPDU2*    REAL     *MINIMUM VELOCITY DIFFERENCE IN RI-NUMBER
38!     *RENTR*     REAL     *ENTRAINMENT CONSTANT         
39!     *RPAR*      REAL     *PARAMETER FOR TEMPERATURE EXCESS IN THERMAL
40!                           AT BOUNDARY LAYER TOP     
41!     *RPAR1*     REAL     *COEFFICIENT OF (W*)**3 IN WS         
42!     *RPARSRF*   REAL     *DEPTH OF SURFACE LAYER AS FRACTION OF PBL-H
43!     ------------------------------------------------------------------
44!$OMP THREADPRIVATE(nvtypes,rentr,repdu2,rkap,rlam,rpar,rpar1,rparsrf,rvdifts)
45END MODULE YOEVDF
Note: See TracBrowser for help on using the repository browser.