1 |
|
1 |
SUBROUTINE 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 |
|
|
! M.Hamrud 01-Oct-2003 CY28 Cleaning |
43 |
|
|
! ------------------------------------------------------------------ |
44 |
|
|
|
45 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
46 |
|
|
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
47 |
|
|
|
48 |
|
|
USE YOECLOP , ONLY : RYFWCA ,RYFWCB ,RYFWCC ,RYFWCD ,& |
49 |
|
|
& RYFWCE ,RYFWCF ,REBCUA ,REBCUB ,REBCUC ,& |
50 |
|
|
& REBCUD ,REBCUE ,REBCUF ,REBCUG ,REBCUH ,& |
51 |
|
|
& REFFIA ,REFFIB ,RTIW ,RRIW |
52 |
|
|
|
53 |
|
|
IMPLICIT NONE |
54 |
|
|
|
55 |
|
|
! ---------------------------------------------------------------- |
56 |
|
|
|
57 |
|
|
!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992 |
58 |
|
|
|
59 |
|
|
! SW : 2 spectral intervals |
60 |
|
|
|
61 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
62 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('SUCLOP',0,ZHOOK_HANDLE) |
63 |
|
1 |
REBCUA(1)= 3.448E-03_JPRB |
64 |
|
1 |
REBCUA(2)= 3.448E-03_JPRB |
65 |
|
1 |
REBCUB(1)= 2.431_JPRB |
66 |
|
1 |
REBCUB(2)= 2.431_JPRB |
67 |
|
1 |
REBCUC(1)= 0.99999_JPRB |
68 |
|
1 |
REBCUC(2)= 0.975634_JPRB |
69 |
|
1 |
REBCUD(1)= 0._JPRB |
70 |
|
1 |
REBCUD(2)= 2.487E-04_JPRB |
71 |
|
1 |
REBCUE(1)= 0.7661_JPRB |
72 |
|
1 |
REBCUE(2)= 0.7866_JPRB |
73 |
|
1 |
REBCUF(1)= 5.851E-04_JPRB |
74 |
|
1 |
REBCUF(2)= 5.937E-04_JPRB |
75 |
|
|
|
76 |
|
|
! LW : spectrally averaged with reference Planck function at 257 K |
77 |
|
|
|
78 |
|
1 |
REBCUG= 1.07677_JPRB |
79 |
|
1 |
REBCUH= 0.00267_JPRB |
80 |
|
|
|
81 |
|
|
! Ice particle Effective Radius as a function of LWC |
82 |
|
|
|
83 |
|
1 |
REFFIA= 40._JPRB |
84 |
|
1 |
REFFIB= 0._JPRB |
85 |
|
|
|
86 |
|
|
!* Water cloud properties - from Fouquart (1987) |
87 |
|
|
|
88 |
|
|
! SW : 2 spectral intervals: parameters as a function of Reff |
89 |
|
|
|
90 |
|
1 |
RYFWCA(1)= 0._JPRB |
91 |
|
1 |
RYFWCA(2)= 0._JPRB |
92 |
|
1 |
RYFWCB(1)= 1.5_JPRB |
93 |
|
1 |
RYFWCB(2)= 1.5_JPRB |
94 |
|
1 |
RYFWCC(1)= 0.9999_JPRB |
95 |
|
1 |
RYFWCC(2)= 0.9988_JPRB |
96 |
|
1 |
RYFWCD(1)= 5.000E-04_JPRB |
97 |
|
1 |
RYFWCD(2)= 2.500E-03_JPRB |
98 |
|
1 |
RYFWCE(1)= 0.5_JPRB |
99 |
|
1 |
RYFWCE(2)= 0.05_JPRB |
100 |
|
1 |
RYFWCF(1)= 0.865_JPRB |
101 |
|
1 |
RYFWCF(2)= 0.910_JPRB |
102 |
|
|
|
103 |
|
|
!* Liquid/Solid water transition |
104 |
|
|
|
105 |
|
1 |
RTIW= 263._JPRB |
106 |
|
1 |
RRIW= 20._JPRB |
107 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('SUCLOP',1,ZHOOK_HANDLE) |
108 |
|
|
|
109 |
|
|
! ------------------------------------------------------------------ |
110 |
|
|
|
111 |
|
1 |
END SUBROUTINE SUCLOP |