source: LMDZ6/branches/SETHET_DECOUPLE/libf/phymar/yoeclop.F90 @ 5412

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.6 KB
Line 
1MODULE YOECLOP
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11!     * YOECLOP* PARAMETERS FOR CLOUD OPTICAL PROPERTIES
12!     ------------------------------------------------------------------
13
14REAL_B :: RYFWCA(4)
15REAL_B :: RYFWCB(4)
16REAL_B :: RYFWCC(4)
17REAL_B :: RYFWCD(4)
18REAL_B :: RYFWCE(4)
19REAL_B :: RYFWCF(4)
20REAL_B :: REBCUA(4)
21REAL_B :: REBCUB(4)
22REAL_B :: REBCUC(4)
23REAL_B :: REBCUD(4)
24REAL_B :: REBCUE(4)
25REAL_B :: REBCUF(4)
26REAL_B :: RASWCA(4)
27REAL_B :: RASWCB(4)
28REAL_B :: RASWCC(4)
29REAL_B :: RASWCD(4)
30REAL_B :: RASWCE(4)
31REAL_B :: RASWCF(4)
32REAL_B :: REBCUG
33REAL_B :: REBCUH
34REAL_B :: REBCUI(6)
35REAL_B :: REBCUJ(6)
36REAL_B :: REFFIA
37REAL_B :: REFFIB
38REAL_B :: RTIW
39REAL_B :: RRIW
40
41
42!        * E.C.M.W.F. PHYSICS PACKAGE *
43
44!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
45
46!  NAME     TYPE     PURPOSE
47!  ----  :  ----   : ---------------------------------------------------
48!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
49
50! RYFWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
51! RYFWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
52! RYFWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
53! RYFWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
54! RYFWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
55! RYFWCF :  REAL   : ASSYMETRY FACTOR
56
57!*    SLINGO (1989) WATER CLOUD OPTICAL PROPERTIES
58
59! RASWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
60! RASWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
61! RASWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
62! RASWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
63! RASWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
64! RASWCF :  REAL   : ASSYMETRY FACTOR
65
66!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
67
68! REBCUA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
69! REBCUB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
70! REBCUC :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
71! REBCUD :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
72! REBCUE :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
73! REBCUF :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
74! REBCUG :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
75! REBCUH :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
76! REBCUI :  REAL   : C7 IN LW MASS ABSORPTION COEFFICIENT FORMULA
77! REBCUJ :  REAL   : C8 IN LW MASS ABSORPTION COEFFICIENT FORMULA
78
79! REFFIA :  REAL   : C9  IN EFFECTIVE RADIUS FORMULA
80! REFFIB :  REAL   : C10 IN EFFECTIVE RADIUS FORMULA
81
82!*    TRANSITION BETWEEN LIQUID AND SOLID WATER
83
84! RTIW   :  REAL   : TEMPERATURE THRESHOLD
85! RRIW   :  REAL   : TRANSITION RANGE
86!     -----------------------------------------------------------------
87END MODULE YOECLOP
Note: See TracBrowser for help on using the repository browser.