source: LMDZ5/trunk/libf/phymar/sucldp.F90 @ 3847

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.5 KB
RevLine 
[2089]1SUBROUTINE SUCLDP
2
3
4!**** *SUCLDP*   - INITIALIZE COMMON YOECLD CONTROLLING *CLOUDSC*
5
6!     PURPOSE.
7!     --------
8!           INITIALIZE YOECLDP
9
10!**   INTERFACE.
11!     ----------
12!        CALL *SUCLDP* FROM *SUPHEC*
13!              ------        ------
14
15!        EXPLICIT ARGUMENTS :
16!        --------------------
17!        NONE
18
19!        IMPLICIT ARGUMENTS :
20!        --------------------
21!        COMMON YOECLDP
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!        C.JAKOB   *ECMWF*
39
40!     MODIFICATIONS.
41!     --------------
42!        ORIGINAL : 94-02-07
43!     ------------------------------------------------------------------
44
45
46#include "tsmbkind.h"
47
48USE YOMCST   , ONLY : RG
49USE YOECLDP  , ONLY : RAMID    ,RCLDIFF  ,RCLCRIT  ,RKCONV   ,&
50            &RPRC1    ,RPRC2    ,RCLDMAX  ,RPECONS  ,RTAUMEL  ,&
51            &RENTRTU  ,RENTRRA  ,RAMIN    ,RLMIN    ,RASMICE  ,&
52            &RBSMICE
53
54
55
56!*       1.    SET VALUES
57!              ----------
58
59
60
61IMPLICIT NONE
62RAMID=0.8_JPRB
63RCLDIFF=1.E-6_JPRB
64
65RCLCRIT=0.3E-3_JPRB
66RKCONV=1.E-4_JPRB
67RPRC1=100._JPRB
68RPRC2=0.5_JPRB
69RCLDMAX=5.E-3_JPRB
70
71RPECONS=5.44E-4_JPRB/RG
72RTAUMEL=5._JPRB*3.6E3_JPRB
73
74RENTRTU=0.5_JPRB
75RENTRRA=0.5_JPRB
76
77RAMIN=1.E-8_JPRB
78RLMIN=1.E-8_JPRB
79
80RASMICE=0.252_JPRB
81RBSMICE=0.837_JPRB
82
83
84!     -----------------------------------------------------------------
85
86RETURN
87END SUBROUTINE SUCLDP
88
89
Note: See TracBrowser for help on using the repository browser.