source: LMDZ6/branches/SETHET_DECOUPLE/libf/phymar/yoecldp.F90 @ 5420

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.0 KB
Line 
1MODULE YOECLDP
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10
11!     -----------------------------------------------------------------
12!     ** YOECLDP - CONTROL PARAMETERS FOR PROGNOSTIC CLOUD SCHEME
13!     -----------------------------------------------------------------
14
15!     * E.C.M.W.F. PHYSICS PACKAGE *
16
17!     C. JAKOB        E.C.M.W.F.          94/02/07
18
19
20!      NAME     TYPE      PURPOSE
21!      ----     ----      -------
22
23!     *RAMID*   REAL      BASE VALUE FOR CALCULATION OF RELATIVE
24!                         HUMIDITY THRESHOLD FOR ONSET OF STRATIFORM
25!                         CONDENSATION (TIEDTKE, 1993, EQUATION 24)
26!     *RCLDIFF* REAL      DIFFUSION-COEFFICIENT FOR EVAPORATION BY
27!                         TURBULENT MIXING (IBID., EQU. 30)
28!     *RCLCRIT* REAL      BASE VALUE OF CRITICAL CLOUD WATER CONTENT
29!                         FOR CONVERSION TO RAIN (SUNDQUIST, 1988)
30!     *RKCONV*  REAL      BASE VALUE FOR CONVERSION COEFFICIENT (IBID.)
31!     *RPRC1*   REAL      COALESCENCE CONSTANT (IBID.)
32!     *RPRC2*   REAL      BERGERON-FINDEISEN CONSTANT (IBID.)
33!     *RCLDMAX* REAL      MAXIMUM CLOUD WATER CONTENT
34!     *RPECONS* REAL      EVAPORATION CONSTANT AFTER KESSLER
35!                         (TIEDTKE, 1993, EQU.35)
36!     *RTAUMEL* REAL      RELAXATION TIME FOR MELTING OF SNOW
37!     *RENTRTU* REAL      ENTRAINMENT PARAMETER (DEARDOFF, 1976)
38!     *RENTRRA* REAL      ENTRAINMENT PARAMETER FOR RADIATION EFFECT
39!     *RAMIN*   REAL      LIMIT FOR A
40!     *RLMIN*   REAL      LIMIT FOR L
41!     *RASMICE*   REAL    COEFFICIENT FOR "SMALL ICE" CALCULATION
42!                         (MACFARQUHAR AND HEYMSFIELD, JAS, 1997)
43!     *RBSMICE*   REAL    COEFFICIENT FOR "SMALL ICE" CALCULATION
44!                         (MACFARQUHAR AND HEYMSFIELD, JAS, 1997)
45REAL_B :: RAMID
46REAL_B :: RCLDIFF
47REAL_B :: RCLCRIT
48REAL_B :: RKCONV
49REAL_B :: RPRC1
50REAL_B :: RPRC2
51REAL_B :: RCLDMAX
52REAL_B :: RPECONS
53REAL_B :: RTAUMEL
54REAL_B :: RENTRTU
55REAL_B :: RENTRRA
56REAL_B :: RAMIN
57REAL_B :: RLMIN
58REAL_B :: RASMICE
59REAL_B :: RBSMICE
60END MODULE YOECLDP
Note: See TracBrowser for help on using the repository browser.