source: LMDZ6/branches/LMDZ_DECOUPLE/libf/phymar/yoephli.F90 @ 5434

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

Inclusion de la physique de MAR

Integration of MAR physics
File size: 1.6 KB
Line 
1MODULE YOEPHLI
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11!*    ** *YOEPHLI* CONTAINS CONSTANTS FOR THE LINEARIZED PHYSICS
12!     ------------------------------------------------------------------
13
14LOGICAL LPHYLIN
15
16REAL_B :: RLPTRC
17REAL_B :: RLPAL1
18REAL_B :: RLPAL2
19REAL_B :: RLPBB
20REAL_B :: RLPCC
21REAL_B :: RLPDD
22REAL_B :: RLPMIXL
23REAL_B :: RLPBETA
24REAL_B :: RLPDRAG
25REAL_B :: RLPEVAP
26REAL_B :: RLPP00
27
28!*     *YOEPHLI* CONTAINS CONSTANTS NEEDED BY
29!     THE LINEARIZED PHYSICS
30
31
32!     J.F. MAHFOUF        E.C.M.W.F.    23/06/96
33
34
35!     NAME        TYPE     DESCRIPTION
36!     ----        ----     -----------
37
38!     *RLPTRC*    REAL     CRITICAL TEMPERATURE FOR MIXED PHASE PROPERTIES
39!                          OF WATER
40!     *RLPAL1*    REAL     SMOOTHING COEFFICIENT
41!     *RLPAL2*    REAL     SMOOTHING COEFFICIENT
42!     *RLPBB*     REAL     CONSTANT FROM THE LOUIS ET AL. FORMULATION
43!     *RLPCC*     REAL     CONSTANT FROM THE LOUIS ET AL. FORMULATION
44!     *RLPDD*     REAL     CONSTANT FROM THE LOUIS ET AL. FORMULATION
45!     *RLPMIXL*   REAL     PSEUDO DEPTH OF THE PLANETARY BOUNDARY LAYER
46!     *RLPBETA*   REAL     REDUCTION FACTOR OF THE ASYMPTOTIC MIXING LENGTH
47!     *RLPDRAG*   REAL     COEFFICIENT FOR THE ESTIMATION OF SURFACE DRAG
48!     *RLPEVAP*   REAL     FRACTION OF POSSIBLE RAINFALL EVAPORATION
49!     *RLPP00*    REAL     PRESSURE ABOVE WHICH RADIATION IS NOT APPLIED
50!     *LPHYLIN*   LOGICAL  TRUE WHEN LINEARIZED PHYSICS IS ACTIVATED
51
52!     ------------------------------------------------------------------
53END MODULE YOEPHLI
Note: See TracBrowser for help on using the repository browser.