GCC Code Coverage Report


Directory: ./
File: rad/suclop15.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 39 0.0%
Branches: 0 4 0.0%

Line Branch Exec Source
1 !OPTIONS XOPT(NOEVAL)
2 SUBROUTINE SUCLOP15
3
4 !**** *SUCLOP15* - INITIALIZE COMMON YOMCLOP15
5 !**** FROZEN VERSION (CYCLE 15) OF SUCLOP
6
7 ! PURPOSE.
8 ! --------
9 ! INITIALIZE YOMCLOP15, WITH CLOUD OPTICAL PARAMETERS
10
11 !** INTERFACE.
12 ! ----------
13 ! *CALL* SUCLOP15
14 ! FROM *SUPHEC*
15
16 ! EXPLICIT ARGUMENTS :
17 ! --------------------
18 ! NONE
19
20 ! IMPLICIT ARGUMENTS :
21 ! --------------------
22 ! COMMON YOMCLOP15
23
24 ! METHOD.
25 ! -------
26 ! SEE DOCUMENTATION
27
28 ! EXTERNALS.
29 ! ----------
30 ! NONE
31
32 ! REFERENCE.
33 ! ----------
34 ! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
35 ! "INTEGRATED FORECASTING SYSTEM"
36
37 ! AUTHOR.
38 ! -------
39 ! 96-11: Ph. Dandin. Meteo-France
40 ! ORIGINAL : J.-J. MORCRETTE *ECMWF*
41
42 ! MODIFICATIONS.
43 ! --------------
44 ! M.Hamrud 01-Oct-2003 CY28 Cleaning
45 ! P. Marquet 14-Feb-2006 REFFWIA15 + NAMCLOP15 introduced
46
47 ! ------------------------------------------------------------------
48
49 USE PARKIND1 ,ONLY : JPIM ,JPRB
50 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
51
52 ! Ce qui concerne NULNAM commente par MPL le 15.04.09
53 !USE YOMLUN , ONLY : NULNAM, NULOUT
54 USE YOMLUN , ONLY : NULOUT
55 USE YOMCLOP15, ONLY : RYFWCA15 ,RYFWCB15 ,RYFWCC15 ,RYFWCD15 ,&
56 & RYFWCE15 ,RYFWCF15 ,REBCUA15 ,REBCUB15 ,REBCUC15 ,&
57 & REBCUD15 ,REBCUE15 ,REBCUF15 ,REBCUG15 ,REBCUH15 ,&
58 & REFFIA15 ,REFFIB15 ,RTIW15 ,RRIW15 ,REFFWIA15
59
60 IMPLICIT NONE
61
62 INTERFACE
63 SUBROUTINE POSNAM(KULNAM,CDNAML)
64 USE PARKIND1 ,ONLY : JPIM ,JPRB
65 INTEGER(KIND=JPIM),INTENT(IN) :: KULNAM
66 CHARACTER(LEN=*) ,INTENT(IN) :: CDNAML
67 END SUBROUTINE POSNAM
68 END INTERFACE
69 ! ------------------------------------------------------------------
70 NAMELIST/NAMCLOP15/ REFFWIA15
71 ! ------------------------------------------------------------------
72
73
74 !* 1. Set default values.
75 ! -------------------
76
77 !* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
78
79 ! SW : 2 spectral intervals
80
81 REAL(KIND=JPRB) :: ZHOOK_HANDLE
82 IF (LHOOK) CALL DR_HOOK('SUCLOP15',0,ZHOOK_HANDLE)
83 REBCUA15(1)= 3.448E-03_JPRB
84 REBCUA15(2)= 3.448E-03_JPRB
85 REBCUB15(1)= 2.431_JPRB
86 REBCUB15(2)= 2.431_JPRB
87 REBCUC15(1)= 0.99999_JPRB
88 REBCUC15(2)= 0.975634_JPRB
89 REBCUD15(1)= 0._JPRB
90 REBCUD15(2)= 2.487E-04_JPRB
91 REBCUE15(1)= 0.7661_JPRB
92 REBCUE15(2)= 0.7866_JPRB
93 REBCUF15(1)= 5.851E-04_JPRB
94 REBCUF15(2)= 5.937E-04_JPRB
95
96 ! LW : spectrally averaged with reference Planck function at 257 K
97
98 REBCUG15= 1.07677_JPRB
99 REBCUH15= 0.00267_JPRB
100
101 ! Ice particle Effective Radius as a function of LWC
102
103 REFFIA15= 40._JPRB
104 REFFIB15= 0._JPRB
105
106 ! Water and Ice particle Effective Radius in the RADLSW15 formulae
107
108 REFFWIA15= 10._JPRB
109
110 !* Water cloud properties - from Fouquart (1987)
111
112 ! SW : 2 spectral intervals: parameters as a function of Reff
113
114 RYFWCA15(1)= 0._JPRB
115 RYFWCA15(2)= 0._JPRB
116 RYFWCB15(1)= 1.5_JPRB
117 RYFWCB15(2)= 1.5_JPRB
118 RYFWCC15(1)= 0.9999_JPRB
119 RYFWCC15(2)= 0.9988_JPRB
120 RYFWCD15(1)= 5.000E-04_JPRB
121 RYFWCD15(2)= 2.500E-03_JPRB
122 RYFWCE15(1)= 0.5_JPRB
123 RYFWCE15(2)= 0.05_JPRB
124 RYFWCF15(1)= 0.865_JPRB
125 RYFWCF15(2)= 0.910_JPRB
126
127 !* Liquid/Solid water transition
128
129 RTIW15= 263._JPRB
130 RRIW15= 20._JPRB
131
132
133 !* 2. Modify default values.
134 ! ----------------------
135
136 ! Ce qui concerne NAMCLOP15 commente par MPL le 15.04.09
137 !CALL POSNAM(NULNAM,'NAMCLOP15')
138 !READ (NULNAM, NAMCLOP15)
139
140
141 !* 3. Print final values.
142 ! -------------------
143
144 WRITE(UNIT=NULOUT,FMT='('' - - - - - - - - -'')')
145 WRITE(UNIT=NULOUT,FMT='('' COMMON YOMCLOP15 '')')
146 WRITE(UNIT=NULOUT,FMT='('' - - - - - - - - -'')')
147 WRITE(UNIT=NULOUT,FMT='( '' REFFWIA15 = '',E11.4 )') &
148 & REFFWIA15
149
150 IF (LHOOK) CALL DR_HOOK('SUCLOP15',1,ZHOOK_HANDLE)
151
152 ! ------------------------------------------------------------------
153
154 END SUBROUTINE SUCLOP15
155