source: LMDZ6/branches/DYNAMICO-conv-GC/libf/phymar/suclop.F90 @ 5409

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.3 KB
Line 
1SUBROUTINE SUCLOP
2
3!**** *SUCLOP*  - INITIALIZE COMMON YOECLOP
4
5!     PURPOSE.
6!     --------
7!           INITIALIZE YOMCLOP, WITH CLOUD OPTICAL PARAMETERS
8
9!**   INTERFACE.
10!     ----------
11!        *CALL*  SUCLOP
12!     FROM *SUECRAD*
13
14!        EXPLICIT ARGUMENTS :
15!        --------------------
16!        NONE
17
18!        IMPLICIT ARGUMENTS :
19!        --------------------
20!        COMMON YOECLOP
21
22!     METHOD.
23!     -------
24!        SEE DOCUMENTATION
25
26!     EXTERNALS.
27!     ----------
28!        NONE
29
30!     REFERENCE.
31!     ----------
32!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
33!     "INTEGRATED FORECASTING SYSTEM"
34
35!     AUTHOR.
36!     -------
37!        JEAN-JACQUES MORCRETTE  *ECMWF*
38
39!     MODIFICATIONS.
40!     --------------
41!        ORIGINAL : 92-02-29
42!     ------------------------------------------------------------------
43
44#include "tsmbkind.h"
45
46USE YOECLOP  , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
47            &RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC   ,&
48            &REBCUD   ,REBCUE   ,REBCUF   ,REBCUG   ,REBCUH   ,&
49            &REFFIA   ,REFFIB   ,RTIW     ,RRIW
50
51
52IMPLICIT NONE
53
54
55!      ----------------------------------------------------------------
56
57!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
58
59! SW : 2 spectral intervals
60
61REBCUA(1)= 3.448E-03_JPRB
62REBCUA(2)= 3.448E-03_JPRB
63REBCUB(1)= 2.431_JPRB
64REBCUB(2)= 2.431_JPRB
65REBCUC(1)= 0.99999_JPRB
66REBCUC(2)= 0.975634_JPRB
67REBCUD(1)= 0._JPRB
68REBCUD(2)= 2.487E-04_JPRB
69REBCUE(1)= 0.7661_JPRB
70REBCUE(2)= 0.7866_JPRB
71REBCUF(1)= 5.851E-04_JPRB
72REBCUF(2)= 5.937E-04_JPRB
73
74! LW : spectrally averaged with reference Planck function at 257 K
75
76REBCUG= 1.07677_JPRB
77REBCUH= 0.00267_JPRB
78
79! Ice particle Effective Radius as a function of LWC
80
81REFFIA= 40._JPRB
82REFFIB=  0._JPRB
83
84!* Water cloud properties - from Fouquart (1987)
85
86! SW : 2 spectral intervals: parameters as a function of Reff
87
88RYFWCA(1)= 0._JPRB
89RYFWCA(2)= 0._JPRB
90RYFWCB(1)= 1.5_JPRB
91RYFWCB(2)= 1.5_JPRB
92RYFWCC(1)= 0.9999_JPRB
93RYFWCC(2)= 0.9988_JPRB
94RYFWCD(1)= 5.000E-04_JPRB
95RYFWCD(2)= 2.500E-03_JPRB
96RYFWCE(1)= 0.5_JPRB
97RYFWCE(2)= 0.05_JPRB
98RYFWCF(1)= 0.865_JPRB
99RYFWCF(2)= 0.910_JPRB
100
101!* Liquid/Solid water transition
102
103RTIW= 263._JPRB
104RRIW= 20._JPRB
105
106!     ------------------------------------------------------------------
107
108END SUBROUTINE SUCLOP
Note: See TracBrowser for help on using the repository browser.