source: LMDZ5/branches/testing/libf/phymar/sucld.F90 @ 5405

Last change on this file since 5405 was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand
File size: 2.1 KB
RevLine 
[2089]1SUBROUTINE SUCLD ( KLEV , PETA )
2
3
4!**** *SUCLD*   - INITIALIZE COMMON YOECLD CONTROLLING *CLOUD*
5
6!     PURPOSE.
7!     --------
8!           INITIALIZE YOECLD
9
10!**   INTERFACE.
11!     ----------
12!        CALL *SUCLD* FROM *SUPHEC*
13!              -----        ------
14
15!        EXPLICIT ARGUMENTS :
16!        --------------------
17!        NONE
18
19!        IMPLICIT ARGUMENTS :
20!        --------------------
21!        COMMON YOECLD
22
23!     METHOD.
24!     -------
25!        SEE DOCUMENTATION
26
27!     EXTERNALS.
28!     ----------
29!        NONE
30
31!     REFERENCE.
32!     ----------
33!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
34!     "INTEGRATED FORECASTING SYSTEM"
35
36!     AUTHOR.
37!     -------
38!        JEAN-JACQUES MORCRETTE  *ECMWF*
39
40!     MODIFICATIONS.
41!     --------------
42!        ORIGINAL : 89-12-15
43
44!     ------------------------------------------------------------------
45
46#include "tsmbkind.h"
47
48USE YOECLD   , ONLY : CETA     ,RANVA    ,RANVB    ,RANVH    ,&
49            &RCCA     ,RCCB     ,RCCC     ,RCFCT    ,RCLWMR   ,&
50            &RCSCAL   ,RETAHB   ,RETAMB   ,RLOIA    ,RLOIB    ,&
51            &RLOIC    ,RLOID    ,RLONIA   ,RLONIB   ,RRHH     ,&
52            &RRHL     ,RRHM     ,RGAMMAS  ,REPSCR   ,REPSEC   ,&
53            &LOMEGA
54
55
56IMPLICIT NONE
57
58
59!     DUMMY INTEGER SCALARS
60INTEGER_M :: KLEV
61
62
63
64!      ----------------------------------------------------------------
65
66REAL_B :: PETA(KLEV)
67
68!     LOCAL INTEGER SCALARS
69INTEGER_M :: JK
70
71
72!      ----------------------------------------------------------------
73
74!*       1.    SET VALUES
75!              ----------
76
77
78RANVA  = 2._JPRB
79RANVB  = 0.3_JPRB
80RANVH  = 0.4_JPRB
81RCCA   = 0.125_JPRB
82RCCB   = 1.5_JPRB
83RCCC   = 0.8_JPRB
84RCFCT  = 0.400_JPRB
85RCSCAL = 1.0E+11_JPRB
86
87RETAHB = 0.45_JPRB
88RETAMB = 0.80_JPRB
89
90RLOIA  = 1.0E+02_JPRB
91RLOIB  =-10.00_JPRB
92RLOIC  =-0.9_JPRB
93RLOID  = 5.0_JPRB
94
95RLONIA = -0.1_JPRB
96RLONIB = -10.0_JPRB
97
98RRHH   = 0.9_JPRB
99RRHM   = 0.8_JPRB
100RRHL   = 0.70_JPRB
101
102RGAMMAS= 0.05_JPRB
103RCLWMR = 1.E-04_JPRB
104LOMEGA =.TRUE.
105
106REPSEC = 1.0E-12_JPRB
107REPSCR = 1.0E-12_JPRB
108
109DO JK=1,KLEV
110  CETA(JK)=PETA(JK)
111ENDDO
112
113!     -----------------------------------------------------------------
114
115RETURN
116END SUBROUTINE SUCLD
Note: See TracBrowser for help on using the repository browser.