source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/yoecld.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.9 KB
Line 
1MODULE YOECLD
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     -----------------------------------------------------------------
10!*    ** *YOECLD* - CONTROL PARAMETERS FOR DIAGNOSTIC CLOUDS
11!     -----------------------------------------------------------------
12
13REAL(KIND=JPRB),ALLOCATABLE:: CETA(:)
14
15REAL(KIND=JPRB) :: RANVA
16REAL(KIND=JPRB) :: RANVB
17REAL(KIND=JPRB) :: RANVH
18REAL(KIND=JPRB) :: RCCA
19REAL(KIND=JPRB) :: RCCB
20REAL(KIND=JPRB) :: RCCC
21REAL(KIND=JPRB) :: RCFCT
22REAL(KIND=JPRB) :: RCLWMR
23REAL(KIND=JPRB) :: RCSCAL
24REAL(KIND=JPRB) :: RETAHB
25REAL(KIND=JPRB) :: RETAMB
26REAL(KIND=JPRB) :: RLOIA
27REAL(KIND=JPRB) :: RLOIB
28REAL(KIND=JPRB) :: RLOIC
29REAL(KIND=JPRB) :: RLOID
30REAL(KIND=JPRB) :: RLONIA
31REAL(KIND=JPRB) :: RLONIB
32REAL(KIND=JPRB) :: RRHH
33REAL(KIND=JPRB) :: RRHL
34REAL(KIND=JPRB) :: RRHM
35REAL(KIND=JPRB) :: RGAMMAS
36REAL(KIND=JPRB) :: REPSCR
37REAL(KIND=JPRB) :: REPSEC
38LOGICAL :: LOMEGA
39
40!        * E.C.M.W.F. PHYSICS PACKAGE *
41
42!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
43
44!  NAME     TYPE     PURPOSE
45!  ----  :  ----   : ---------------------------------------------------
46!  RANVA :  REAL     COEFFICIENT FOR ANVIL CLOUDS
47!  RANVB :  REAL     COEFFICIENT FOR ANVIL CLOUDS
48!  RANVH :  REAL     MINIMUM HIGH CLOUD COVER FOR ANVIL CLOUDS
49!  RCCA  :  REAL     COEFFICIENT FOR DIAGNOSTIC OF CONVECTIVE CLOUD
50!  RCCB  :  REAL     COEFFICIENT FOR DIAGNOSTIC OF CONVECTIVE CLOUD
51!  RCCC  :  REAL     MAXIMUM COVER BY CONVECTIVE CLOUD
52!  RCFCT :  REAL     WEIGHTING FACTOR FOR CONVECTIVE CLOUD TOWER
53!  RCLWMR:  REAL     LIQUID WATER MIXING RATIO FOR CONVECTIVE CLOUD
54!  RCSCAL:  REAL     SCALING FACTOR FOR CONVECTIVE RAIN
55!  CETA(NFLEVG) REAL  MODEL REFERENCE ETA-LEVEL
56!  RETAHB:  REAL     ETA-LEVEL LIMIT FOR HIGH CLOUDS
57!  RETAMB:  REAL     ETA-LEVEL LIMIT FOR MEDIUM CLOUDS
58!  RLOIA :  REAL     COEFFICIENT FOR LOW CLOUD WHEN NO INVERSION
59!  RLOIB :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
60!  RLOIC :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
61!  RLOID :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
62!  RLONIA:  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
63!  RLONIB:  REAL     COEFFICIENT FOR LOW CLOUD WHEN NO INVERSION
64!  RRHH  :  REAL     CRITICAL RELATIVE HUMIDITY FOR HIGH CLOUDS
65!  RRHL  :  REAL     CRITICAL RELATIVE HUMIDITY FOR LOW CLOUDS
66!  RRHM  :  REAL     CRITICAL RELATIVE HUMIDITY FOR MEDIUM CLOUDS
67!  GAMMAS:  REAL     PROPORTIONALITY FACTOR FOR LIQUID WATER CONTENT
68!  REPSCR:  REAL     MINIMUM CONVECTIVE PRECIPITATION (SECURITY FACTOR)
69!  REPSEC:  REAL     MINIMUM HORIZONTAL CLOUD COVER (SECURITY FACTOR)
70!  LOMEGA:  LOGICAL  SWITCH FOR OMEGA-FILTER ON MIDDLE CLOUD
71!     ------------------------------------------------------------------
72
73!$OMP THREADPRIVATE(lomega,ranva,ranvb,ranvh,rcca,rccb,rccc,rcfct)
74!$OMP THREADPRIVATE(rclwmr,rcscal,repscr,repsec,retahb,retamb,rgammas)
75!$OMP THREADPRIVATE(rloia,rloib,rloic,rloid,rlonia,rlonib,rrhh,rrhl,rrhm)
76
77!$OMP THREADPRIVATE(ceta)
78
79END MODULE YOECLD
Note: See TracBrowser for help on using the repository browser.