Directory: | ./ |
---|---|
File: | rad/suphy3.f90 |
Date: | 2022-01-11 19:19:34 |
Exec | Total | Coverage | |
---|---|---|---|
Lines: | 218 | 267 | 81.6% |
Branches: | 3 | 6 | 50.0% |
Line | Branch | Exec | Source |
---|---|---|---|
1 | !OPTIONS XOPT(NOEVAL) | ||
2 | 1 | SUBROUTINE SUPHY3(KULOUT) | |
3 | |||
4 | !**** *SUPHY3* - Initialize common YOMPHY3 physics radiative | ||
5 | ! constants | ||
6 | |||
7 | ! Purpose. | ||
8 | ! -------- | ||
9 | ! Initialize YOMPHY3, the common that contains the parameters | ||
10 | ! for the radiation part of the physics of the model. | ||
11 | |||
12 | !** Interface. | ||
13 | ! ---------- | ||
14 | ! *CALL* *SUPHY3(KULOUT) | ||
15 | |||
16 | ! Explicit arguments : | ||
17 | ! -------------------- | ||
18 | ! KULOUT : Logical unit for the output | ||
19 | |||
20 | ! Implicit arguments : | ||
21 | ! -------------------- | ||
22 | ! COMMON YOMPHY3 | ||
23 | |||
24 | ! Method. | ||
25 | ! ------- | ||
26 | ! See documentation | ||
27 | |||
28 | ! Externals. | ||
29 | ! ---------- | ||
30 | |||
31 | ! Reference. | ||
32 | ! ---------- | ||
33 | ! Documentation ARPEGE | ||
34 | |||
35 | ! Author. | ||
36 | ! ------- | ||
37 | ! J.-F. Geleyn . | ||
38 | |||
39 | ! Modifications. | ||
40 | ! -------------- | ||
41 | ! Original : 90-9-1 | ||
42 | ! Ajout de GCE4 et | ||
43 | ! modification de toutes les constantes optiques : 91-2-1 | ||
44 | ! Ajout des nuages de glace : 92-04, L. Labbe. | ||
45 | ! Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF | ||
46 | ! Modified 97-04-17 J.M. Piriou: radiative coefficients default values, and new QSUSX default. | ||
47 | ! Modified 2000-08 R. Randriamampianina, J.F. Geleyn et J.M. Piriou: change infra-red interaction between layers (GIREC*). | ||
48 | ! Modified 2000-12-12 by E. Bazile: CYCORA's default value. | ||
49 | ! M.Hamrud 01-Oct-2003 CY28 Cleaning | ||
50 | ! R.Brozkova 24-Sep-2006 ALARO-0 (new cloud model) | ||
51 | ! ------------------------------------------------------------------ | ||
52 | |||
53 | USE PARKIND1 ,ONLY : JPIM ,JPRB | ||
54 | USE YOMHOOK ,ONLY : LHOOK, DR_HOOK | ||
55 | |||
56 | ! Ce qui concerne NULNAM commente par MPL le 15.04.09 | ||
57 | !USE YOMLUN , ONLY : NULNAM | ||
58 | USE YOMCT0B , ONLY : LECMWF | ||
59 | USE YOMPHY , ONLY : LCLSATUR | ||
60 | USE YOMPHY3 , ONLY : GCA ,GCB ,GCC ,VDP ,& | ||
61 | & VNP ,BSFSA ,BSFSI ,BSFSN ,BSFTA ,& | ||
62 | & BSFTI ,BSFTN ,EARRT ,EOASA ,EOASI ,& | ||
63 | & EOASN ,EOATA ,EOATI ,EOATN ,EODSA ,& | ||
64 | & EODSI ,EODSN ,EODTA ,EODTI ,EODTN ,& | ||
65 | & EORAY ,GCD4 ,GCE4 ,QCO2 ,QLIMI ,& | ||
66 | & QLIP0 ,RII0 ,USAA ,USAI ,& | ||
67 | & USAN ,USBA ,USBI ,USBN ,& | ||
68 | & GIREC1 ,GIREC2 ,GIREC3 ,GIREC4 ,& | ||
69 | & FCM_DEL_A,FCM_DEL_D,FCM_MU_A ,FCM_MU_D ,FCM_N_I ,& | ||
70 | & FCM_N_L ,FCM_P_AI ,FCM_P_AL ,FCM_P_DI ,FCM_P_DL ,& | ||
71 | & FCM_P_GI ,FCM_P_GL ,FCM_Q_AI ,FCM_Q_AL ,FCM_Q_DI ,& | ||
72 | & FCM_Q_DL ,FCM_Q_GI ,FCM_Q_GL ,N_SPBAND ,REXP_NEB | ||
73 | |||
74 | IMPLICIT NONE | ||
75 | |||
76 | INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT | ||
77 | REAL(KIND=JPRB) :: ZHOOK_HANDLE | ||
78 | |||
79 | INTERFACE | ||
80 | SUBROUTINE POSNAM(KULNAM,CDNAML) | ||
81 | USE PARKIND1 ,ONLY : JPIM ,JPRB | ||
82 | INTEGER(KIND=JPIM),INTENT(IN) :: KULNAM | ||
83 | CHARACTER(LEN=*) ,INTENT(IN) :: CDNAML | ||
84 | END SUBROUTINE POSNAM | ||
85 | END INTERFACE | ||
86 | |||
87 | ! ------------------------------------------------------------------ | ||
88 | NAMELIST/NAMPHY3/& | ||
89 | &BSFSA,BSFSI,BSFSN,BSFTA,BSFTI,BSFTN,EARRT,EOASA,EOASI,EOASN & | ||
90 | &,EOATA,EOATI,EOATN,EODSA,EODSI,EODSN,EODTA,EODTI,EODTN,EORAY & | ||
91 | &,GCA,GCB,GCC,GCD4,GCE4,GIREC1,GIREC2,GIREC3,GIREC4 & | ||
92 | &,QCO2,QLIMI,QLIP0,RII0,USAA,USAI,USAN,USBA,USBI,USBN,VDP,VNP & | ||
93 | &,FCM_DEL_A,FCM_DEL_D,FCM_MU_A,FCM_MU_D,FCM_N_I,FCM_N_L & | ||
94 | &,FCM_P_AI,FCM_P_AL,FCM_P_DI,FCM_P_DL,FCM_P_GI,FCM_P_GL & | ||
95 | &,FCM_Q_AI,FCM_Q_AL,FCM_Q_DI,FCM_Q_DL,FCM_Q_GI,FCM_Q_GL & | ||
96 | &,REXP_NEB | ||
97 | ! ------------------------------------------------------------------ | ||
98 | |||
99 | ! ------------------------------------------------------------------ | ||
100 | |||
101 | !* 1. Set default values. | ||
102 | ! ------------------- | ||
103 | |||
104 | ! 1.1 Set implicit default values | ||
105 | |||
106 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('SUPHY3',0,ZHOOK_HANDLE) |
107 | 1 | BSFSA=.3490_JPRB | |
108 | 1 | BSFSI=.3238_JPRB | |
109 | 1 | BSFSN=.3300_JPRB | |
110 | 1 | BSFTA=.3471_JPRB | |
111 | 1 | BSFTI=.3231_JPRB | |
112 | 1 | BSFTN=.3584_JPRB | |
113 | 1 | EARRT=0.001324_JPRB | |
114 | 1 | EOASA=.6727E-01_JPRB | |
115 | 1 | EOASI=.1692E-01_JPRB | |
116 | 1 | EOASN=.3353E-01_JPRB | |
117 | 1 | EOATA=.5037E-01_JPRB | |
118 | 1 | EOATI=.3455E+01_JPRB | |
119 | 1 | EOATN=.9077E+01_JPRB | |
120 | 1 | EODSA=.3665E+00_JPRB | |
121 | 1 | EODSI=.1406E+01_JPRB | |
122 | 1 | EODSN=.6558E+01_JPRB | |
123 | 1 | EODTA=.1766E-01_JPRB | |
124 | 1 | EODTI=.8435E+00_JPRB | |
125 | 1 | EODTN=.4319E+01_JPRB | |
126 | 1 | EORAY=.8606E-06_JPRB | |
127 | 1 | GCA(1)=.8041E-01_JPRB | |
128 | 1 | GCA(2)=.1456E+00_JPRB | |
129 | 1 | GCA(3)=.4787E+01_JPRB | |
130 | 1 | GCA(4)=.2102E+04_JPRB | |
131 | 1 | GCA(5)=.1334E+01_JPRB | |
132 | 1 | GCA(6)=.1551E-04_JPRB | |
133 | 1 | GCB(1)=.8968E+07_JPRB | |
134 | 1 | GCB(2)=.2413E+10_JPRB | |
135 | 1 | GCB(3)=.3548E+05_JPRB | |
136 | 1 | GCB(4)=.6370E+10_JPRB | |
137 | 1 | GCB(5)=.8499E+11_JPRB | |
138 | 1 | GCB(6)=.1012E+06_JPRB | |
139 | 1 | GCC(1)=.5925E-10_JPRB | |
140 | 1 | GCC(2)=.1842E-10_JPRB | |
141 | 1 | GCC(3)=.2532E-07_JPRB | |
142 | 1 | GCC(4)=.1953E+07_JPRB | |
143 | 1 | GCC(5)=.1734E-11_JPRB | |
144 | 1 | GCC(6)=.1225E-16_JPRB | |
145 | 1 | GCD4=.3608E-69_JPRB | |
146 | 1 | GCE4=.7563E+04_JPRB | |
147 | 1 | GIREC1=0.0_JPRB | |
148 | 1 | GIREC2=0.0_JPRB | |
149 | 1 | GIREC3=0.0_JPRB | |
150 | 1 | GIREC4=0.0_JPRB | |
151 | 1 | QCO2=.5366E-03_JPRB | |
152 | 1 | QLIMI=15000._JPRB | |
153 | 1 | QLIP0=8.E+06_JPRB | |
154 | 1 | USAA=-.3020_JPRB | |
155 | 1 | USAI=-.3524_JPRB | |
156 | 1 | USAN=-.3400_JPRB | |
157 | 1 | USBA=0._JPRB | |
158 | 1 | USBI=0._JPRB | |
159 | 1 | USBN=0._JPRB | |
160 | 1 | VDP(1,1)=.21868E+02_JPRB | |
161 | 1 | VDP(2,1)=.17453E+02_JPRB | |
162 | 1 | VDP(3,1)=.68918E+00_JPRB | |
163 | 1 | VDP(4,1)=.23456E-03_JPRB | |
164 | 1 | VDP(5,1)=.22317E-09_JPRB | |
165 | 1 | VDP(1,2)=.48401E+02_JPRB | |
166 | 1 | VDP(2,2)=.18648E+02_JPRB | |
167 | 1 | VDP(3,2)=.35199E-01_JPRB | |
168 | 1 | VDP(4,2)=.63691E-06_JPRB | |
169 | 1 | VDP(5,2)=.86395E-13_JPRB | |
170 | 1 | VDP(1,3)=.76948E+02_JPRB | |
171 | 1 | VDP(2,3)=.41056E+01_JPRB | |
172 | 1 | VDP(3,3)=.42667E-03_JPRB | |
173 | 1 | VDP(4,3)=0._JPRB | |
174 | 1 | VDP(5,3)=0._JPRB | |
175 | 1 | VDP(1,4)=.27241E+03_JPRB | |
176 | 1 | VDP(2,4)=.57091E+04_JPRB | |
177 | 1 | VDP(3,4)=.14393E+05_JPRB | |
178 | 1 | VDP(4,4)=.29879E+04_JPRB | |
179 | 1 | VDP(5,4)=.25382E+02_JPRB | |
180 | 1 | VDP(1,5)=.86942E+02_JPRB | |
181 | 1 | VDP(2,5)=.32186E+03_JPRB | |
182 | 1 | VDP(3,5)=.10775E+03_JPRB | |
183 | 1 | VDP(4,5)=.21261E+01_JPRB | |
184 | 1 | VDP(5,5)=.40003E-02_JPRB | |
185 | 1 | VDP(1,6)=.24408E+02_JPRB | |
186 | 1 | VDP(2,6)=.81919E+01_JPRB | |
187 | 1 | VDP(3,6)=.72193E+01_JPRB | |
188 | 1 | VDP(4,6)=.56230E+00_JPRB | |
189 | 1 | VDP(5,6)=.25384E-02_JPRB | |
190 | 1 | VNP(1,1)=.69926E+01_JPRB | |
191 | 1 | VNP(2,1)=.63915E+00_JPRB | |
192 | 1 | VNP(3,1)=.28896E-03_JPRB | |
193 | 1 | VNP(4,1)=.10050E-08_JPRB | |
194 | 1 | VNP(5,1)=.99037E-16_JPRB | |
195 | 1 | VNP(1,2)=.31105E+01_JPRB | |
196 | 1 | VNP(2,2)=.14225E-01_JPRB | |
197 | 1 | VNP(3,2)=.69355E-06_JPRB | |
198 | 1 | VNP(4,2)=.36087E-12_JPRB | |
199 | 1 | VNP(5,2)=.44113E-20_JPRB | |
200 | 1 | VNP(1,3)=.23659E+01_JPRB | |
201 | 1 | VNP(2,3)=.11139E-02_JPRB | |
202 | 1 | VNP(3,3)=.10618E-05_JPRB | |
203 | 1 | VNP(4,3)=0._JPRB | |
204 | 1 | VNP(5,3)=0._JPRB | |
205 | 1 | VNP(1,4)=.19810E+03_JPRB | |
206 | 1 | VNP(2,4)=.46954E+04_JPRB | |
207 | 1 | VNP(3,4)=.22512E+04_JPRB | |
208 | 1 | VNP(4,4)=.52461E+02_JPRB | |
209 | 1 | VNP(5,4)=.11645E+00_JPRB | |
210 | 1 | VNP(1,5)=.46348E+02_JPRB | |
211 | 1 | VNP(2,5)=.35630E+02_JPRB | |
212 | 1 | VNP(3,5)=.33005E+01_JPRB | |
213 | 1 | VNP(4,5)=.18045E-01_JPRB | |
214 | 1 | VNP(5,5)=.88667E-05_JPRB | |
215 | 1 | VNP(1,6)=.47413E+01_JPRB | |
216 | 1 | VNP(2,6)=.16334E+01_JPRB | |
217 | 1 | VNP(3,6)=.48164E+00_JPRB | |
218 | 1 | VNP(4,6)=.56140E-02_JPRB | |
219 | 1 | VNP(5,6)=.67790E-04_JPRB | |
220 | |||
221 | ! Default values for cloud model - first index denotes spectral band: | ||
222 | ! 1 - solar | ||
223 | ! 2 - thermal | ||
224 | 1 | FCM_DEL_A(1) = 9.55496e-01_JPRB | |
225 | 1 | FCM_DEL_A(2) = 1.79152e+02_JPRB | |
226 | 1 | FCM_DEL_D(1) = 5.72959e+01_JPRB | |
227 | 1 | FCM_DEL_D(2) = 2.00159e+02_JPRB | |
228 | 1 | FCM_MU_A(1) = 8.66200e-01_JPRB | |
229 | 1 | FCM_MU_A(2) = 6.65532e-01_JPRB | |
230 | 1 | FCM_MU_D(1) = 1.00000e+00_JPRB | |
231 | 1 | FCM_MU_D(2) = 6.70517e-01_JPRB | |
232 | 1 | FCM_N_I = 1.00000e-01_JPRB | |
233 | 1 | FCM_N_L = 1.00000e-01_JPRB | |
234 | 1 | FCM_P_AI(1,0) = 1.48920e+01_JPRB | |
235 | 1 | FCM_P_AI(1,1) = -3.71379e+01_JPRB | |
236 | 1 | FCM_P_AI(1,2) = 0.00000e+00_JPRB | |
237 | 1 | FCM_P_AI(1,3) = 0.00000e+00_JPRB | |
238 | 1 | FCM_P_AI(2,0) = 9.76920e+00_JPRB | |
239 | 1 | FCM_P_AI(2,1) = -7.54840e+00_JPRB | |
240 | 1 | FCM_P_AI(2,2) = 0.00000e+00_JPRB | |
241 | 1 | FCM_P_AI(2,3) = 0.00000e+00_JPRB | |
242 | 1 | FCM_P_AL(1,0) = 1.42062e+00_JPRB | |
243 | 1 | FCM_P_AL(1,1) = -3.54037e+00_JPRB | |
244 | 1 | FCM_P_AL(1,2) = 1.73535e+00_JPRB | |
245 | 1 | FCM_P_AL(1,3) = 0.00000e+00_JPRB | |
246 | 1 | FCM_P_AL(2,0) = 5.08522e+00_JPRB | |
247 | 1 | FCM_P_AL(2,1) = -1.08144e+01_JPRB | |
248 | 1 | FCM_P_AL(2,2) = 5.16331e+00_JPRB | |
249 | 1 | FCM_P_AL(2,3) = 0.00000e+00_JPRB | |
250 | 1 | FCM_P_DI(1,0) = 1.30487e+01_JPRB | |
251 | 1 | FCM_P_DI(1,1) = 1.98670e+01_JPRB | |
252 | 1 | FCM_P_DI(1,2) = -5.08578e+01_JPRB | |
253 | 1 | FCM_P_DI(1,3) = 0.00000e+00_JPRB | |
254 | 1 | FCM_P_DI(2,0) = 1.23173e+01_JPRB | |
255 | 1 | FCM_P_DI(2,1) = -3.32808e+01_JPRB | |
256 | 1 | FCM_P_DI(2,2) = 5.77295e+01_JPRB | |
257 | 1 | FCM_P_DI(2,3) = -7.35728e+01_JPRB | |
258 | 1 | FCM_P_DL(1,0) = 4.68646e+00_JPRB | |
259 | 1 | FCM_P_DL(1,1) = -8.77652e+00_JPRB | |
260 | 1 | FCM_P_DL(1,2) = 2.12789e+00_JPRB | |
261 | 1 | FCM_P_DL(1,3) = 0.00000e+00_JPRB | |
262 | 1 | FCM_P_DL(2,0) = 4.52292e+00_JPRB | |
263 | 1 | FCM_P_DL(2,1) = -1.43327e+01_JPRB | |
264 | 1 | FCM_P_DL(2,2) = 1.16650e+01_JPRB | |
265 | 1 | FCM_P_DL(2,3) = 0.00000e+00_JPRB | |
266 | 1 | FCM_P_GI(1,0) = -2.01472e+00_JPRB | |
267 | 1 | FCM_P_GI(1,1) = 9.16284e+01_JPRB | |
268 | 1 | FCM_P_GI(1,2) = 7.82275e+01_JPRB | |
269 | 1 | FCM_P_GI(1,3) = 0.00000e+00_JPRB | |
270 | 1 | FCM_P_GI(2,0) = -7.55124e-01_JPRB | |
271 | 1 | FCM_P_GI(2,1) = -4.68837e+00_JPRB | |
272 | 1 | FCM_P_GI(2,2) = 6.72877e+01_JPRB | |
273 | 1 | FCM_P_GI(2,3) = 0.00000e+00_JPRB | |
274 | 1 | FCM_P_GL(1,0) = 8.82686e-01_JPRB | |
275 | 1 | FCM_P_GL(1,1) = -2.02445e+00_JPRB | |
276 | 1 | FCM_P_GL(1,2) = 1.45259e+00_JPRB | |
277 | 1 | FCM_P_GL(1,3) = 0.00000e+00_JPRB | |
278 | 1 | FCM_P_GL(2,0) = 1.93784e-01_JPRB | |
279 | 1 | FCM_P_GL(2,1) = -6.07676e-01_JPRB | |
280 | 1 | FCM_P_GL(2,2) = 5.37734e-01_JPRB | |
281 | 1 | FCM_P_GL(2,3) = 0.00000e+00_JPRB | |
282 | 1 | FCM_Q_AI(1,1) = 1.86588e+01_JPRB | |
283 | 1 | FCM_Q_AI(1,2) = 0.00000e+00_JPRB | |
284 | 1 | FCM_Q_AI(1,3) = 0.00000e+00_JPRB | |
285 | 1 | FCM_Q_AI(2,1) = 2.78063e+00_JPRB | |
286 | 1 | FCM_Q_AI(2,2) = 0.00000e+00_JPRB | |
287 | 1 | FCM_Q_AI(2,3) = 0.00000e+00_JPRB | |
288 | 1 | FCM_Q_AL(1,1) = -2.81210e+00_JPRB | |
289 | 1 | FCM_Q_AL(1,2) = 2.35758e+00_JPRB | |
290 | 1 | FCM_Q_AL(1,3) = 0.00000e+00_JPRB | |
291 | 1 | FCM_Q_AL(2,1) = -2.31252e+00_JPRB | |
292 | 1 | FCM_Q_AL(2,2) = 1.56848e+00_JPRB | |
293 | 1 | FCM_Q_AL(2,3) = 0.00000e+00_JPRB | |
294 | 1 | FCM_Q_DI(1,1) = 1.04582e+01_JPRB | |
295 | 1 | FCM_Q_DI(1,2) = 6.15641e+00_JPRB | |
296 | 1 | FCM_Q_DI(1,3) = 0.00000e+00_JPRB | |
297 | 1 | FCM_Q_DI(2,1) = 1.18370e+00_JPRB | |
298 | 1 | FCM_Q_DI(2,2) = 2.23187e+00_JPRB | |
299 | 1 | FCM_Q_DI(2,3) = 7.00424e+00_JPRB | |
300 | 1 | FCM_Q_DL(1,1) = -2.18205e+00_JPRB | |
301 | 1 | FCM_Q_DL(1,2) = 1.34831e+00_JPRB | |
302 | 1 | FCM_Q_DL(1,3) = 0.00000e+00_JPRB | |
303 | 1 | FCM_Q_DL(2,1) = -3.12310e+00_JPRB | |
304 | 1 | FCM_Q_DL(2,2) = 2.57959e+00_JPRB | |
305 | 1 | FCM_Q_DL(2,3) = 0.00000e+00_JPRB | |
306 | 1 | FCM_Q_GI(1,1) = 7.89999e+01_JPRB | |
307 | 1 | FCM_Q_GI(1,2) = 5.24929e+01_JPRB | |
308 | 1 | FCM_Q_GI(1,3) = 0.00000e+00_JPRB | |
309 | 1 | FCM_Q_GI(2,1) = 4.93801e+00_JPRB | |
310 | 1 | FCM_Q_GI(2,2) = 2.38096e+01_JPRB | |
311 | 1 | FCM_Q_GI(2,3) = 0.00000e+00_JPRB | |
312 | 1 | FCM_Q_GL(1,1) = -2.20830e+00_JPRB | |
313 | 1 | FCM_Q_GL(1,2) = 1.39832e+00_JPRB | |
314 | 1 | FCM_Q_GL(1,3) = 0.00000e+00_JPRB | |
315 | 1 | FCM_Q_GL(2,1) = -3.27770e+00_JPRB | |
316 | 1 | FCM_Q_GL(2,2) = 2.78446e+00_JPRB | |
317 | 1 | FCM_Q_GL(2,3) = 0.00000e+00_JPRB | |
318 | 1 | REXP_NEB = 8.0_JPRB | |
319 | |||
320 | ! 1.2 Modify default values according to LECMWF | ||
321 | |||
322 | IF (LECMWF) THEN | ||
323 | ELSE | ||
324 | ENDIF | ||
325 | |||
326 | ! Remark : the values or RII0 is calculated and not set up | ||
327 | |||
328 | ! ------------------------------------------------------------------ | ||
329 | |||
330 | !* 2. Modify default values. | ||
331 | ! ---------------------- | ||
332 | |||
333 | ! Ce qui concerne NAMPHY3 commente par MPL le 15.04.09 | ||
334 | !CALL POSNAM(NULNAM,'NAMPHY3') | ||
335 | !READ(NULNAM,NAMPHY3) | ||
336 | ! ------------------------------------------------------------------ | ||
337 | |||
338 | !* 3. Print final values. | ||
339 | ! ------------------- | ||
340 | |||
341 | 1 | WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY3 '')') | |
342 | WRITE(UNIT=KULOUT,FMT='('' BSFSA = '',E10.4,'' BSFSI = '',E10.4 & | ||
343 | & ,'' BSFSN = '',E10.4,'' BSFTA = '',E10.4,'' BSFTI = '',E10.4,/& | ||
344 | & ,'' BSFTN = '',E10.4,'' EARRT = '',E10.4,'' EOASA = ''& | ||
345 | & ,E10.4,'' EOASI = '',E10.4,'' EOASN = '',E10.4 & | ||
346 | & ,'' EOATA = '',E10.4,/,'' EOATI = '',E10.4,'' EOATN = '',E10.4 & | ||
347 | & ,'' EODSA = '',E10.4,'' EODSI = '',E10.4,'' EODSN = '',E10.4 & | ||
348 | & ,'' EODTA = '',E10.4,/,'' EODTI = '',E10.4 & | ||
349 | & ,'' EODTN = '',E10.4,'' EORAY = '',E10.4,/& | ||
350 | & ,'' GCA(6) = '',6E11.4,/,'' GCB(6) = '',6E11.4,/,'' GCC(6) = ''& | ||
351 | & ,6E11.4,/,'' GCD4 = '',E11.4,'' GCE4 = '',E11.4,/& | ||
352 | & ,'' QCO2 = '',E10.4,'' QLIP0 = '',E10.4 & | ||
353 | & ,'' USAA = '',E10.4,'' USAI = '',E10.4,'' USAN = '',E10.4 & | ||
354 | & ,'' USBA = '',E10.4,/,'' USBI = '',E10.4,'' USBN = '',E10.4,/& | ||
355 | & ,'' VDP(5,6) = '',5E12.5,/,5(12X,5E12.5,/)& | ||
356 | & ,'' VNP(5,6) = '',5E12.5,/,5(12X,5E12.5,/)& | ||
357 | & ,'' QLIMI = '',E10.4 & | ||
358 | & ,'' GIREC1 = '',E10.4,'' GIREC2 = '',E10.4,'' GIREC3 = '',E10.4 & | ||
359 | & ,'' GIREC4 = '',E10.4 & | ||
360 | & )')& | ||
361 | 1 | & BSFSA,BSFSI,BSFSN,BSFTA,BSFTI,BSFTN,EARRT,EOASA,EOASI,EOASN,& | |
362 | 1 | & EOATA,EOATI,EOATN,EODSA,EODSI,EODSN,EODTA,EODTI,EODTN,EORAY,& | |
363 | 1 | & GCA,GCB,GCC,GCD4,GCE4,QCO2,QLIP0,USAA,USAI,USAN,USBA,USBI,USBN,& | |
364 | 2 | & VDP,VNP,QLIMI,GIREC1,GIREC2,GIREC3,GIREC4 | |
365 | |||
366 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
|
1 | IF (LCLSATUR) THEN |
367 | WRITE(KULOUT,'('' N_SPBAND = '',I2,'' REXP_NEB = '',F5.2)') & | ||
368 | ✗ | & N_SPBAND,REXP_NEB | |
369 | ✗ | WRITE(KULOUT,'('' FCM_DEL_A(:) ='',2(1X,ES12.5))') FCM_DEL_A(:) | |
370 | ✗ | WRITE(KULOUT,'('' FCM_DEL_D(:) ='',2(1X,ES12.5))') FCM_DEL_D(:) | |
371 | ✗ | WRITE(KULOUT,'('' FCM_MU_A (:) ='',2(1X,ES12.5))') FCM_MU_A (:) | |
372 | ✗ | WRITE(KULOUT,'('' FCM_MU_D (:) ='',2(1X,ES12.5))') FCM_MU_D (:) | |
373 | ✗ | WRITE(KULOUT,'('' FCM_N_I ='',1X,ES12.5)') FCM_N_I | |
374 | ✗ | WRITE(KULOUT,'('' FCM_N_L ='',1X,ES12.5)') FCM_N_L | |
375 | ✗ | WRITE(KULOUT,'('' FCM_P_AI (:,0) ='',2(1X,ES12.5))') FCM_P_AI (:,0) | |
376 | ✗ | WRITE(KULOUT,'('' FCM_P_AI (:,1) ='',2(1X,ES12.5))') FCM_P_AI (:,1) | |
377 | ✗ | WRITE(KULOUT,'('' FCM_P_AI (:,2) ='',2(1X,ES12.5))') FCM_P_AI (:,2) | |
378 | ✗ | WRITE(KULOUT,'('' FCM_P_AI (:,3) ='',2(1X,ES12.5))') FCM_P_AI (:,3) | |
379 | ✗ | WRITE(KULOUT,'('' FCM_P_AL (:,0) ='',2(1X,ES12.5))') FCM_P_AL (:,0) | |
380 | ✗ | WRITE(KULOUT,'('' FCM_P_AL (:,1) ='',2(1X,ES12.5))') FCM_P_AL (:,1) | |
381 | ✗ | WRITE(KULOUT,'('' FCM_P_AL (:,2) ='',2(1X,ES12.5))') FCM_P_AL (:,2) | |
382 | ✗ | WRITE(KULOUT,'('' FCM_P_AL (:,3) ='',2(1X,ES12.5))') FCM_P_AL (:,3) | |
383 | ✗ | WRITE(KULOUT,'('' FCM_P_DI (:,0) ='',2(1X,ES12.5))') FCM_P_DI (:,0) | |
384 | ✗ | WRITE(KULOUT,'('' FCM_P_DI (:,1) ='',2(1X,ES12.5))') FCM_P_DI (:,1) | |
385 | ✗ | WRITE(KULOUT,'('' FCM_P_DI (:,2) ='',2(1X,ES12.5))') FCM_P_DI (:,2) | |
386 | ✗ | WRITE(KULOUT,'('' FCM_P_DI (:,3) ='',2(1X,ES12.5))') FCM_P_DI (:,3) | |
387 | ✗ | WRITE(KULOUT,'('' FCM_P_DL (:,0) ='',2(1X,ES12.5))') FCM_P_DL (:,0) | |
388 | ✗ | WRITE(KULOUT,'('' FCM_P_DL (:,1) ='',2(1X,ES12.5))') FCM_P_DL (:,1) | |
389 | ✗ | WRITE(KULOUT,'('' FCM_P_DL (:,2) ='',2(1X,ES12.5))') FCM_P_DL (:,2) | |
390 | ✗ | WRITE(KULOUT,'('' FCM_P_DL (:,3) ='',2(1X,ES12.5))') FCM_P_DL (:,3) | |
391 | ✗ | WRITE(KULOUT,'('' FCM_P_GI (:,0) ='',2(1X,ES12.5))') FCM_P_GI (:,0) | |
392 | ✗ | WRITE(KULOUT,'('' FCM_P_GI (:,1) ='',2(1X,ES12.5))') FCM_P_GI (:,1) | |
393 | ✗ | WRITE(KULOUT,'('' FCM_P_GI (:,2) ='',2(1X,ES12.5))') FCM_P_GI (:,2) | |
394 | ✗ | WRITE(KULOUT,'('' FCM_P_GI (:,3) ='',2(1X,ES12.5))') FCM_P_GI (:,3) | |
395 | ✗ | WRITE(KULOUT,'('' FCM_P_GL (:,0) ='',2(1X,ES12.5))') FCM_P_GL (:,0) | |
396 | ✗ | WRITE(KULOUT,'('' FCM_P_GL (:,1) ='',2(1X,ES12.5))') FCM_P_GL (:,1) | |
397 | ✗ | WRITE(KULOUT,'('' FCM_P_GL (:,2) ='',2(1X,ES12.5))') FCM_P_GL (:,2) | |
398 | ✗ | WRITE(KULOUT,'('' FCM_P_GL (:,3) ='',2(1X,ES12.5))') FCM_P_GL (:,3) | |
399 | ✗ | WRITE(KULOUT,'('' FCM_Q_AI (:,1) ='',2(1X,ES12.5))') FCM_Q_AI (:,1) | |
400 | ✗ | WRITE(KULOUT,'('' FCM_Q_AI (:,2) ='',2(1X,ES12.5))') FCM_Q_AI (:,2) | |
401 | ✗ | WRITE(KULOUT,'('' FCM_Q_AI (:,3) ='',2(1X,ES12.5))') FCM_Q_AI (:,3) | |
402 | ✗ | WRITE(KULOUT,'('' FCM_Q_AL (:,1) ='',2(1X,ES12.5))') FCM_Q_AL (:,1) | |
403 | ✗ | WRITE(KULOUT,'('' FCM_Q_AL (:,2) ='',2(1X,ES12.5))') FCM_Q_AL (:,2) | |
404 | ✗ | WRITE(KULOUT,'('' FCM_Q_AL (:,3) ='',2(1X,ES12.5))') FCM_Q_AL (:,3) | |
405 | ✗ | WRITE(KULOUT,'('' FCM_Q_DI (:,1) ='',2(1X,ES12.5))') FCM_Q_DI (:,1) | |
406 | ✗ | WRITE(KULOUT,'('' FCM_Q_DI (:,2) ='',2(1X,ES12.5))') FCM_Q_DI (:,2) | |
407 | ✗ | WRITE(KULOUT,'('' FCM_Q_DI (:,3) ='',2(1X,ES12.5))') FCM_Q_DI (:,3) | |
408 | ✗ | WRITE(KULOUT,'('' FCM_Q_DL (:,1) ='',2(1X,ES12.5))') FCM_Q_DL (:,1) | |
409 | ✗ | WRITE(KULOUT,'('' FCM_Q_DL (:,2) ='',2(1X,ES12.5))') FCM_Q_DL (:,2) | |
410 | ✗ | WRITE(KULOUT,'('' FCM_Q_DL (:,3) ='',2(1X,ES12.5))') FCM_Q_DL (:,3) | |
411 | ✗ | WRITE(KULOUT,'('' FCM_Q_GI (:,1) ='',2(1X,ES12.5))') FCM_Q_GI (:,1) | |
412 | ✗ | WRITE(KULOUT,'('' FCM_Q_GI (:,2) ='',2(1X,ES12.5))') FCM_Q_GI (:,2) | |
413 | ✗ | WRITE(KULOUT,'('' FCM_Q_GI (:,3) ='',2(1X,ES12.5))') FCM_Q_GI (:,3) | |
414 | ✗ | WRITE(KULOUT,'('' FCM_Q_GL (:,1) ='',2(1X,ES12.5))') FCM_Q_GL (:,1) | |
415 | ✗ | WRITE(KULOUT,'('' FCM_Q_GL (:,2) ='',2(1X,ES12.5))') FCM_Q_GL (:,2) | |
416 | ✗ | WRITE(KULOUT,'('' FCM_Q_GL (:,3) ='',2(1X,ES12.5))') FCM_Q_GL (:,3) | |
417 | ENDIF | ||
418 | ! ------------------------------------------------------------------ | ||
419 | |||
420 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('SUPHY3',1,ZHOOK_HANDLE) |
421 | 1 | END SUBROUTINE SUPHY3 | |
422 |