source: LMDZ5/trunk/libf/phylmd/rrtm/yomphy2.F90 @ 4570

Last change on this file since 4570 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: 3.0 KB
Line 
1MODULE YOMPHY2
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!*
10!     ------------------------------------------------------------------
11!     CONSTANTES DEFINISSANT LE CONTEXTE DE L'EXPERIENCE POUR LA
12!     PHYSIQUE : DISCRETISATION TEMPORELLE, STRUCTURE VERTICALE,
13!     SORTIES.
14!       TSPHY     : PAS DE TEMPS DE LA PHYSIQUE.
15!                 : PHYSICS TIME STEP.
16!       XMUCVPP   : FACTEUR DE CVPP POUR "ANTI-FIBRIL.".
17!                 : "ANTI-FIBRIL." FACTOR FOR CVPP.
18!       XMULAF    : FACTEUR "ANTI-FIBRIL." (1. RECOMMANDE SI ACTIF).
19!                 : "ANTI-FIBRIL." FACTOR (1. RECOMMENDED IF ACTIVATED).
20!       XDAMP     : DAMPING FACTOR USED IN THE NEW TREATMENT OF
21!                   SHALLOW CONVECTION.
22!                   IF ZERO => OLD TREATMENT
23!                   IF /= 0 => XMUCVPP SHOULD BE ZERO
24!       LMULAF    : CONTROL DE l'ANTI-FIBRIL. SUR LA VERTICALE
25!                 : CONTROL "ANTI-FIBRIL." ON VERTICAL
26!       HCLP      : HAUTEUR MOYENNE DE LA CLP ( EN GENERAL 1500M ).
27!                 : MEAN PBL DEPTH ( IN GENERAL 1500M ).
28!       HTCLS     : HAUTEUR METEO POUR T ET Q ( EN GENERAL 2M ).
29!                 : SCREEN HEIGHT FOR T AND Q ( IN GENERAL 2M ).
30!       HVCLS     : HAUTEUR METEO POUR U ET V ( EN GENERAL 10M ).
31!                 : MEASURING HEIGHT FOR U AND V (IN GENERAL 10M ).
32
33!       HTSHM     : HAUTEUR DE TRANSITION EN "S" NUAGES HAUTS/MOYENS.
34!                 : TRANSITION HEIGHT IN "S" COORDINATE H/M CLOUDS.
35!       HTSML     : HAUTEUR DE TRANSITION EN "S" NUAGES MOYENS/BAS.
36!                 : TRANSITION HEIGHT IN "S" COORDINATE M/L CLOUDS.
37!       NTSHM     : INDICE DU NIVEAU DE TRANSITION NUAGES HAUTS/MOYENS.
38!                 : TRANSITION LEVEL BETWEEN HIGH/MEDIUM CLOUDS.
39!       NTSML     : INDICE DU NIVEAU DE TRANSITION NUAGES MOYENS/BAS.
40!                 : TRANSITION LEVEL BETWEEN MEDIUM/LOW CLOUDS.
41!       RIPBLC    : VALEUR CRITIQUE DU NOMBRE DE RICHARDSON POUR LE CALCUL DE LA HAUTEUR DE LA CLP
42!                 : CRITICAL VALUE OF RICHARDSON'S NUMBER TO COMPUTE THE HEIGHT OF PBL.
43!       LRAFTUR   : ACTIVATION DU DIAGNOSTIC DES RAFALES TURBULENTES
44!                   ACTIVATE DIAGNOSTIC OF TURBULENT GUSTS
45!       GZ0RAF    : Z0 FOIS G UTILISE POUR LE CALCUL DES RAFALES TURBULENTES
46!                   Z0 TIMES G USED TO COMPUTE TURBULENT GUSTS
47!       FACRAF    : COEFFICIENT DE CALCUL DES RAFALES TURBULENTES
48!                   COEFFICIENT FOR THE COMPUTATION OF TURBULENT GUSTS
49
50INTEGER(KIND=JPIM) :: NTSHM
51INTEGER(KIND=JPIM) :: NTSML
52REAL(KIND=JPRB) :: TSPHY
53REAL(KIND=JPRB) :: XMUCVPP
54REAL(KIND=JPRB) :: XMULAF
55REAL(KIND=JPRB) :: XDAMP
56REAL(KIND=JPRB) :: HCLP
57REAL(KIND=JPRB) :: HTCLS
58REAL(KIND=JPRB) :: HVCLS
59REAL(KIND=JPRB) :: HTSHM
60REAL(KIND=JPRB) :: HTSML
61REAL(KIND=JPRB) :: RIPBLC
62REAL(KIND=JPRB) :: GZ0RAF
63REAL(KIND=JPRB) :: FACRAF
64LOGICAL :: LRAFTUR
65LOGICAL :: LMULAF
66!     ------------------------------------------------------------------
67!$OMP THREADPRIVATE(facraf,gz0raf,hclp,htcls,htshm,htsml,hvcls,lmulaf,lraftur,ntshm,ntsml,ripblc,tsphy)
68!$OMP THREADPRIVATE(xdamp,xmucvpp,xmulaf)
69END MODULE YOMPHY2
Note: See TracBrowser for help on using the repository browser.