source: LMDZ5/trunk/libf/phymar/yoecld.F90 @ 3605

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.5 KB
Line 
1MODULE YOECLD
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     -----------------------------------------------------------------
11!*    ** *YOECLD* - CONTROL PARAMETERS FOR DIAGNOSTIC CLOUDS
12!     -----------------------------------------------------------------
13
14!REAL_B,ALLOCATABLE:: CETA(:)
15REAL_B :: CETA(600)
16
17REAL_B :: RANVA
18REAL_B :: RANVB
19REAL_B :: RANVH
20REAL_B :: RCCA
21REAL_B :: RCCB
22REAL_B :: RCCC
23REAL_B :: RCFCT
24REAL_B :: RCLWMR
25REAL_B :: RCSCAL
26REAL_B :: RETAHB
27REAL_B :: RETAMB
28REAL_B :: RLOIA
29REAL_B :: RLOIB
30REAL_B :: RLOIC
31REAL_B :: RLOID
32REAL_B :: RLONIA
33REAL_B :: RLONIB
34REAL_B :: RRHH
35REAL_B :: RRHL
36REAL_B :: RRHM
37REAL_B :: RGAMMAS
38REAL_B :: REPSCR
39REAL_B :: REPSEC
40LOGICAL LOMEGA
41
42
43
44!        * E.C.M.W.F. PHYSICS PACKAGE *
45
46!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
47
48!  NAME     TYPE     PURPOSE
49!  ----  :  ----   : ---------------------------------------------------
50!  RANVA :  REAL     COEFFICIENT FOR ANVIL CLOUDS
51!  RANVB :  REAL     COEFFICIENT FOR ANVIL CLOUDS
52!  RANVH :  REAL     MINIMUM HIGH CLOUD COVER FOR ANVIL CLOUDS
53!  RCCA  :  REAL     COEFFICIENT FOR DIAGNOSTIC OF CONVECTIVE CLOUD
54!  RCCB  :  REAL     COEFFICIENT FOR DIAGNOSTIC OF CONVECTIVE CLOUD
55!  RCCC  :  REAL     MAXIMUM COVER BY CONVECTIVE CLOUD
56!  RCFCT :  REAL     WEIGHTING FACTOR FOR CONVECTIVE CLOUD TOWER
57!  RCLWMR:  REAL     LIQUID WATER MIXING RATIO FOR CONVECTIVE CLOUD
58!  RCSCAL:  REAL     SCALING FACTOR FOR CONVECTIVE RAIN
59!  CETA(NFLEV) REAL  MODEL REFERENCE ETA-LEVEL
60!  RETAHB:  REAL     ETA-LEVEL LIMIT FOR HIGH CLOUDS
61!  RETAMB:  REAL     ETA-LEVEL LIMIT FOR MEDIUM CLOUDS
62!  RLOIA :  REAL     COEFFICIENT FOR LOW CLOUD WHEN NO INVERSION
63!  RLOIB :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
64!  RLOIC :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
65!  RLOID :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
66!  RLONIA:  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
67!  RLONIB:  REAL     COEFFICIENT FOR LOW CLOUD WHEN NO INVERSION
68!  RRHH  :  REAL     CRITICAL RELATIVE HUMIDITY FOR HIGH CLOUDS
69!  RRHL  :  REAL     CRITICAL RELATIVE HUMIDITY FOR LOW CLOUDS
70!  RRHM  :  REAL     CRITICAL RELATIVE HUMIDITY FOR MEDIUM CLOUDS
71!  GAMMAS:  REAL     PROPORTIONALITY FACTOR FOR LIQUID WATER CONTENT
72!  REPSCR:  REAL     MINIMUM CONVECTIVE PRECIPITATION (SECURITY FACTOR)
73!  REPSEC:  REAL     MINIMUM HORIZONTAL CLOUD COVER (SECURITY FACTOR)
74!  LOMEGA:  LOGICAL  SWITCH FOR OMEGA-FILTER ON MIDDLE CLOUD
75!     ------------------------------------------------------------------
76END MODULE YOECLD
Note: See TracBrowser for help on using the repository browser.