source: LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/rrtm/sucld.F90 @ 3622

Last change on this file since 3622 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM

Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence
  • 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.3 KB
Line 
1SUBROUTINE SUCLD ( KLEV , PETA )
2
3!**** *SUCLD*   - INITIALIZE COMMON YOECLD CONTROLLING *CLOUD*
4
5!     PURPOSE.
6!     --------
7!           INITIALIZE YOECLD
8
9!**   INTERFACE.
10!     ----------
11!        CALL *SUCLD* FROM *SUPHEC*
12!              -----        ------
13
14!        EXPLICIT ARGUMENTS :
15!        --------------------
16!        NONE
17
18!        IMPLICIT ARGUMENTS :
19!        --------------------
20!        COMMON YOECLD
21
22!     METHOD.
23!     -------
24!        SEE DOCUMENTATION
25
26!     EXTERNALS.
27!     ----------
28!        NONE
29
30!     REFERENCE.
31!     ----------
32!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
33!     "INTEGRATED FORECASTING SYSTEM"
34
35!     AUTHOR.
36!     -------
37!        JEAN-JACQUES MORCRETTE  *ECMWF*
38
39!     MODIFICATIONS.
40!     --------------
41!        ORIGINAL : 89-12-15
42!        M.Hamrud      01-Oct-2003 CY28 Cleaning
43
44!     ------------------------------------------------------------------
45
46USE PARKIND1  ,ONLY : JPIM     ,JPRB
47USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
48
49USE YOECLD   , ONLY : CETA     ,RANVA    ,RANVB    ,RANVH    ,&
50 & RCCA     ,RCCB     ,RCCC     ,RCFCT    ,RCLWMR   ,&
51 & RCSCAL   ,RETAHB   ,RETAMB   ,RLOIA    ,RLOIB    ,&
52 & RLOIC    ,RLOID    ,RLONIA   ,RLONIB   ,RRHH     ,&
53 & RRHL     ,RRHM     ,RGAMMAS  ,REPSCR   ,REPSEC   ,&
54 & LOMEGA 
55
56IMPLICIT NONE
57
58INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV
59REAL(KIND=JPRB)   ,INTENT(IN)    :: PETA(KLEV)
60!      ----------------------------------------------------------------
61
62INTEGER(KIND=JPIM) :: JK
63REAL(KIND=JPRB) :: ZHOOK_HANDLE
64
65!      ----------------------------------------------------------------
66
67!*       1.    SET VALUES
68!              ----------
69
70IF (LHOOK) CALL DR_HOOK('SUCLD',0,ZHOOK_HANDLE)
71RANVA  = 2._JPRB
72RANVB  = 0.3_JPRB
73RANVH  = 0.4_JPRB
74RCCA   = 0.125_JPRB
75RCCB   = 1.5_JPRB
76RCCC   = 0.8_JPRB
77RCFCT  = 0.400_JPRB
78RCSCAL = 1.0E+11_JPRB
79
80RETAHB = 0.45_JPRB
81RETAMB = 0.80_JPRB
82
83RLOIA  = 1.0E+02_JPRB
84RLOIB  =-10.00_JPRB
85RLOIC  =-0.9_JPRB
86RLOID  = 5.0_JPRB
87
88RLONIA = -0.1_JPRB
89RLONIB = -10.0_JPRB
90
91RRHH   = 0.9_JPRB
92RRHM   = 0.8_JPRB
93RRHL   = 0.70_JPRB
94
95RGAMMAS= 0.05_JPRB
96RCLWMR = 1.E-04_JPRB
97LOMEGA =.TRUE.
98
99REPSEC = 1.0E-12_JPRB
100REPSCR = 1.0E-12_JPRB
101
102DO JK=1,KLEV
103  CETA(JK)=PETA(JK)
104ENDDO
105
106!     -----------------------------------------------------------------
107
108IF (LHOOK) CALL DR_HOOK('SUCLD',1,ZHOOK_HANDLE)
109END SUBROUTINE SUCLD
Note: See TracBrowser for help on using the repository browser.