Context Navigation

read_cosp_output_nl.F90 @ 5451

Last change on this file since 5451 was 2428, checked in by idelkadi, 9 years ago

Mise a jour du simulateur COSP (passage de la version v3.2 a la version v1.4) :

mise a jour des sources pour ISCCP, CALIPSO et PARASOL
prise en compte des changements de phases pour les nuages (Calipso)
rajout de plusieurs diagnostiques (fraction nuageuse en fonction de la temperature, ...)

http://lmdz.lmd.jussieu.fr/Members/aidelkadi/cosp

Property copyright set to
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

File size: 14.9 KB

Line
1	!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2	!--------------- SUBROUTINE READ_COSP_OUTPUT_NL -------------------------
3	!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4	SUBROUTINE READ_COSP_OUTPUT_NL(cosp_nl,cfg)
5	USE MOD_COSP_CONSTANTS
6	USE MOD_COSP_TYPES
7	USE mod_phys_lmdz_para
8	character(len=*),intent(in) :: cosp_nl
9	type(cosp_config),intent(out) :: cfg
10	! Local variables
11	integer :: i
12
13	!! AI
14	! logical, save :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim, &
15	! Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,Lcfad_dbze94, &
16	! Lcfad_lidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp2,Lcllcalipso, &
17	! Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lctpisccp,Ldbze94,Ltauisccp,Ltclisccp, &
18	! Llongitude,Llatitude,Lparasol_refl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
19	! Lfrac_out,Lbeta_mol532,Ltbrttov
20
21	! namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim, &
22	! Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,Lcfad_dbze94, &
23	! Lcfad_lidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp2, &
24	! Lcllcalipso,Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lctpisccp,Ldbze94,Ltauisccp, &
25	! Ltclisccp,Llongitude,Llatitude,Lparasol_refl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
26	! Lfrac_out,Lbeta_mol532,Ltbrttov
27	!!
28
29	logical, save :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
30	Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
31	LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
32	Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp,Lcltisccp, &
33	Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun, &
34	Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun, &
35	Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun, &
36	Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun, &
37	Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun, &
38	Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun, &
39	Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
40	Lfracout,LlidarBetaMol532,Ltbrttov, &
41	Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
42	Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
43	Liwpmodis,Lclmodis
44
45	namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
46	Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
47	LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp, &
48	Lcllcalipso,Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp, &
49	Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun, &
50	Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun, &
51	Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun, &
52	Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun, &
53	Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun, &
54	Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun, &
55	Lcltisccp,Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
56	Lfracout,LlidarBetaMol532,Ltbrttov, &
57	Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
58	Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
59	Liwpmodis,Lclmodis
60
61	do i=1,N_OUT_LIST
62	cfg%out_list(i)=''
63	enddo
64
65	IF (is_master) THEN
66	open(10,file=cosp_nl,status='old')
67	read(10,nml=cosp_output)
68	close(10)
69	ENDIF
70
71	CALL bcast(Lradar_sim)
72	CALL bcast(Llidar_sim)
73	CALL bcast(Lisccp_sim)
74	CALL bcast(Lmodis_sim)
75	CALL bcast(Lmisr_sim)
76	CALL bcast(Lrttov_sim)
77	CALL bcast(Lalbisccp)
78	CALL bcast(Latb532)
79	CALL bcast(Lboxptopisccp)
80	CALL bcast(Lboxtauisccp)
81	CALL bcast(Lcfad_dbze94)
82	CALL bcast(Lcfad_lidarsr532)
83	CALL bcast(Lclcalipso2)
84	CALL bcast(Lclcalipso)
85	CALL bcast(Lclhcalipso)
86	CALL bcast(Lclcalipsoliq)
87	CALL bcast(Lclcalipsoice)
88	CALL bcast(Lclcalipsoun)
89	CALL bcast(Lclcalipsotmp)
90	CALL bcast(Lclcalipsotmpliq)
91	CALL bcast(Lclcalipsotmpice)
92	CALL bcast(Lclcalipsotmpun)
93	CALL bcast(Lcltcalipsoliq)
94	CALL bcast(Lcltcalipsoice)
95	CALL bcast(Lcltcalipsoun)
96	CALL bcast(Lclhcalipsoliq)
97	CALL bcast(Lclhcalipsoice)
98	CALL bcast(Lclhcalipsoun)
99	CALL bcast(Lclmcalipsoliq)
100	CALL bcast(Lclmcalipsoice)
101	CALL bcast(Lclmcalipsoun)
102	CALL bcast(Lcllcalipsoliq)
103	CALL bcast(Lcllcalipsoice)
104	CALL bcast(Lcllcalipsoun)
105	CALL bcast(Lclisccp2)
106	CALL bcast(Lcllcalipso)
107	CALL bcast(Lclmcalipso)
108	CALL bcast(Lcltcalipso)
109	CALL bcast(Lcltlidarradar)
110	CALL bcast(Lctpisccp)
111	CALL bcast(Ldbze94)
112	CALL bcast(Ltauisccp)
113	CALL bcast(Lcltisccp)
114	CALL bcast(Lparasol_refl)
115	CALL bcast(LclMISR)
116	CALL bcast(Lmeantbisccp)
117	CALL bcast(Lmeantbclrisccp)
118	CALL bcast(Lfrac_out)
119	CALL bcast(Lbeta_mol532)
120	CALL bcast(Lcltmodis)
121	CALL bcast(Lclwmodis)
122	CALL bcast(Lclimodis)
123	CALL bcast(Lclhmodis)
124	CALL bcast(Lclmmodis)
125	CALL bcast(Lcllmodis)
126	CALL bcast(Ltautmodis)
127	CALL bcast(Ltauwmodis)
128	CALL bcast(Ltauimodis)
129	CALL bcast(Ltautlogmodis)
130	CALL bcast(Ltauwlogmodis)
131	CALL bcast(Ltauilogmodis)
132	CALL bcast(Lreffclwmodis)
133	CALL bcast(Lreffclimodis)
134	CALL bcast(Lpctmodis)
135	CALL bcast(Llwpmodis)
136	CALL bcast(Liwpmodis)
137	CALL bcast(Lclmodis)
138	CALL bcast(Ltbrttov)
139	!$OMP BARRIER
140
141	! print*,' Cles sorties cosp :'
142	! print*,' Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim', &
143	! Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim
144
145	! Deal with dependencies
146	if (.not.Lradar_sim) then
147	Lcfad_dbze94 = .false.
148	Lclcalipso2 = .false.
149	Lcltlidarradar = .false.
150	Ldbze94 = .false.
151	endif
152	if (.not.Llidar_sim) then
153	Latb532 = .false.
154	Lcfad_lidarsr532 = .false.
155	Lclcalipso2 = .false.
156	Lclcalipso = .false.
157	Lclhcalipso = .false.
158	Lcllcalipso = .false.
159	Lclmcalipso = .false.
160	Lcltcalipso = .false.
161	Lcltlidarradar = .false.
162	Lparasol_refl = .false.
163	Lbeta_mol532 = .false.
164	!! AI
165	Lclcalipsoliq = .false.
166	Lclcalipsoice = .false.
167	Lclcalipsoun = .false.
168	Lclcalipsotmp = .false.
169	Lclcalipsotmpun = .false.
170	Lclcalipsotmpliq = .false.
171	Lclcalipsotmpice = .false.
172	Lclhcalipsoliq = .false.
173	Lcllcalipsoliq = .false.
174	Lclmcalipsoliq = .false.
175	Lcltcalipsoliq = .false.
176	Lclhcalipsoice = .false.
177	Lcllcalipsoice = .false.
178	Lclmcalipsoice = .false.
179	Lcltcalipsoice = .false.
180	Lclhcalipsoun = .false.
181	Lcllcalipsoun = .false.
182	Lclmcalipsoun = .false.
183	Lcltcalipsoun = .false.
184	endif
185	if (.not.Lisccp_sim) then
186	Lalbisccp = .false.
187	Lboxptopisccp = .false.
188	Lboxtauisccp = .false.
189	Lclisccp2 = .false.
190	Lctpisccp = .false.
191	Ltauisccp = .false.
192	Ltclisccp = .false.
193	Lmeantbisccp = .false.
194	Lmeantbclrisccp = .false.
195	endif
196	if (.not.Lmisr_sim) then
197	LclMISR = .false.
198	endif
199	if (.not.Lrttov_sim) then
200	Ltbrttov = .false.
201	endif
202	if ((.not.Lradar_sim).and.(.not.Llidar_sim).and. &
203	(.not.Lisccp_sim).and.(.not.Lmisr_sim)) then
204	Lfrac_out = .false.
205	endif
206	if (.not.Lmodis_sim) then
207	Lcltmodis=.false.
208	Lclwmodis=.false.
209	Lclimodis=.false.
210	Lclhmodis=.false.
211	Lclmmodis=.false.
212	Lcllmodis=.false.
213	Ltautmodis=.false.
214	Ltauwmodis=.false.
215	Ltauimodis=.false.
216	Ltautlogmodis=.false.
217	Ltauwlogmodis=.false.
218	Ltauilogmodis=.false.
219	Lreffclwmodis=.false.
220	Lreffclimodis=.false.
221	Lpctmodis=.false.
222	Llwpmodis=.false.
223	Liwpmodis=.false.
224	Lclmodis=.false.
225	endif
226	if (Lmodis_sim) Lisccp_sim = .true.
227
228	! Diagnostics that use Radar and Lidar
229	if (((Lclcalipso2).or.(Lcltlidarradar)).and.((Lradar_sim).or.(Llidar_sim))) then
230	Lclcalipso2 = .true.
231	Lcltlidarradar = .true.
232	Llidar_sim = .true.
233	Lradar_sim = .true.
234	endif
235
236	cfg%Lstats = .false.
237	if ((Lradar_sim).or.(Llidar_sim).or.(Lisccp_sim)) cfg%Lstats = .true.
238
239	! Copy instrument flags to cfg structure
240	cfg%Lradar_sim = Lradar_sim
241	cfg%Llidar_sim = Llidar_sim
242	cfg%Lisccp_sim = Lisccp_sim
243	cfg%Lmodis_sim = Lmodis_sim
244	cfg%Lmisr_sim = Lmisr_sim
245	cfg%Lrttov_sim = Lrttov_sim
246
247	! Flag to control output to file
248	cfg%Lwrite_output = .false.
249	if (cfg%Lstats.or.cfg%Lmisr_sim.or.cfg%Lrttov_sim) then
250	cfg%Lwrite_output = .true.
251	endif
252
253	! Output diagnostics
254	i = 1
255	if (Lalbisccp) cfg%out_list(i) = 'albisccp'
256	i = i+1
257	if (Latb532) cfg%out_list(i) = 'atb532'
258	i = i+1
259	if (Lboxptopisccp) cfg%out_list(i) = 'boxptopisccp'
260	i = i+1
261	if (Lboxtauisccp) cfg%out_list(i) = 'boxtauisccp'
262	i = i+1
263	if (LcfadDbze94) cfg%out_list(i) = 'cfadDbze94'
264	i = i+1
265	if (LcfadLidarsr532) cfg%out_list(i) = 'cfadLidarsr532'
266	i = i+1
267	if (Lclcalipso2) cfg%out_list(i) = 'clcalipso2'
268	i = i+1
269	if (Lclcalipso) cfg%out_list(i) = 'clcalipso'
270	i = i+1
271	if (Lclhcalipso) cfg%out_list(i) = 'clhcalipso'
272	i = i+1
273	if (Lclisccp) cfg%out_list(i) = 'clisccp'
274	i = i+1
275	if (Lcllcalipso) cfg%out_list(i) = 'cllcalipso'
276	i = i+1
277	if (Lclmcalipso) cfg%out_list(i) = 'clmcalipso'
278	i = i+1
279	if (Lcltcalipso) cfg%out_list(i) = 'cltcalipso'
280	i = i+1
281
282	if (Lcllcalipsoice) cfg%out_list(i) = 'cllcalipsoice'
283	i = i+1
284	if (Lclmcalipsoice) cfg%out_list(i) = 'clmcalipsoice'
285	i = i+1
286	if (Lclhcalipsoice) cfg%out_list(i) = 'clhcalipsoice'
287	i = i+1
288	if (Lcltcalipsoice) cfg%out_list(i) = 'cltcalipsoice'
289	i = i+1
290	if (Lcllcalipsoliq) cfg%out_list(i) = 'cllcalipsoliq'
291	i = i+1
292	if (Lclmcalipsoliq) cfg%out_list(i) = 'clmcalipsoliq'
293	i = i+1
294	if (Lclhcalipsoliq) cfg%out_list(i) = 'clhcalipsoliq'
295	i = i+1
296	if (Lcltcalipsoliq) cfg%out_list(i) = 'cltcalipsoliq'
297	i = i+1
298	if (Lcllcalipsoun) cfg%out_list(i) = 'cllcalipsoun'
299	i = i+1
300	if (Lclmcalipsoun) cfg%out_list(i) = 'clmcalipsoun'
301	i = i+1
302	if (Lclhcalipsoun) cfg%out_list(i) = 'clhcalipsoun'
303	i = i+1
304	if (Lcltcalipsoun) cfg%out_list(i) = 'cltcalipsoun'
305	i = i+1
306
307	if (Lclcalipsoice) cfg%out_list(i) = 'clcalipsoice'
308	i = i+1
309	if (Lclcalipsoliq) cfg%out_list(i) = 'clcalipsoliq'
310	i = i+1
311	if (Lclcalipsoun) cfg%out_list(i) = 'clcalipsoun'
312	i = i+1
313
314	if (Lclcalipsotmp) cfg%out_list(i) = 'clcalipsotmp'
315	i = i+1
316	if (Lclcalipsotmpice) cfg%out_list(i) = 'clcalipsotmpice'
317	i = i+1
318	if (Lclcalipsotmpliq) cfg%out_list(i) = 'clcalipsotmpliq'
319	i = i+1
320	if (Lclcalipsotmpun) cfg%out_list(i) = 'clcalipsotmpun'
321	i = i+1
322	if (Lcltlidarradar) cfg%out_list(i) = 'cltlidarradar'
323	i = i+1
324	if (Lpctisccp) cfg%out_list(i) = 'pctisccp'
325	i = i+1
326	if (Ldbze94) cfg%out_list(i) = 'dbze94'
327	i = i+1
328	if (Ltauisccp) cfg%out_list(i) = 'tauisccp'
329	i = i+1
330	if (Lcltisccp) cfg%out_list(i) = 'cltisccp'
331	i = i+1
332	if (Ltoffset) cfg%out_list(i) = 'toffset'
333	i = i+1
334	if (LparasolRefl) cfg%out_list(i) = 'parasolRefl'
335	i = i+1
336	if (LclMISR) cfg%out_list(i) = 'clMISR'
337	i = i+1
338	if (Lmeantbisccp) cfg%out_list(i) = 'meantbisccp'
339	i = i+1
340	if (Lmeantbclrisccp) cfg%out_list(i) = 'meantbclrisccp'
341	i = i+1
342	if (Lfracout) cfg%out_list(i) = 'fracout'
343	i = i+1
344	if (LlidarBetaMol532) cfg%out_list(i) = 'lidarBetaMol532'
345	i = i+1
346	if (Ltbrttov) cfg%out_list(i) = 'tbrttov'
347	i = i+1
348	if (Lcltmodis) cfg%out_list(i) = 'cltmodis'
349	i = i+1
350	if (Lclwmodis) cfg%out_list(i) = 'clwmodis'
351	i = i+1
352	if (Lclimodis) cfg%out_list(i) = 'climodis'
353	i = i+1
354	if (Lclhmodis) cfg%out_list(i) = 'clhmodis'
355	i = i+1
356	if (Lclmmodis) cfg%out_list(i) = 'clmmodis'
357	i = i+1
358	if (Lcllmodis) cfg%out_list(i) = 'cllmodis'
359	i = i+1
360	if (Ltautmodis) cfg%out_list(i) = 'tautmodis'
361	i = i+1
362	if (Ltauwmodis) cfg%out_list(i) = 'tauwmodis'
363	i = i+1
364	if (Ltauimodis) cfg%out_list(i) = 'tauimodis'
365	i = i+1
366	if (Ltautlogmodis) cfg%out_list(i) = 'tautlogmodis'
367	i = i+1
368	if (Ltauwlogmodis) cfg%out_list(i) = 'tauwlogmodis'
369	i = i+1
370	if (Ltauilogmodis) cfg%out_list(i) = 'tauilogmodis'
371	i = i+1
372	if (Lreffclwmodis) cfg%out_list(i) = 'reffclwmodis'
373	i = i+1
374	if (Lreffclimodis) cfg%out_list(i) = 'reffclimodis'
375	i = i+1
376	if (Lpctmodis) cfg%out_list(i) = 'pctmodis'
377	i = i+1
378	if (Llwpmodis) cfg%out_list(i) = 'lwpmodis'
379	i = i+1
380	if (Liwpmodis) cfg%out_list(i) = 'iwpmodis'
381	i = i+1
382	if (Lclmodis) cfg%out_list(i) = 'clmodis'
383
384	if (i /= N_OUT_LIST) then
385	print *, 'COSP_IO: wrong number of output diagnostics'
386	print *, i,N_OUT_LIST
387	stop
388	endif
389
390	! Copy diagnostic flags to cfg structure
391	! ISCCP simulator
392	cfg%Lalbisccp = Lalbisccp
393	cfg%Latb532 = Latb532
394	cfg%Lboxptopisccp = Lboxptopisccp
395	cfg%Lboxtauisccp = Lboxtauisccp
396	cfg%Lmeantbisccp = Lmeantbisccp
397	cfg%Lmeantbclrisccp = Lmeantbclrisccp
398	cfg%Lclisccp = Lclisccp
399	cfg%Lpctisccp = Lpctisccp
400	cfg%Ltauisccp = Ltauisccp
401	cfg%Lcltisccp = Lcltisccp
402	! CloudSat simulator
403	cfg%Ldbze94 = Ldbze94
404	cfg%LcfadDbze94 = LcfadDbze94
405	! CALIPSO/PARASOL simulator
406	cfg%LcfadLidarsr532 = LcfadLidarsr532
407	cfg%Lclcalipso2 = Lclcalipso2
408	cfg%Lclcalipso = Lclcalipso
409	cfg%Lclhcalipso = Lclhcalipso
410	cfg%Lcllcalipso = Lcllcalipso
411	cfg%Lclmcalipso = Lclmcalipso
412	cfg%Lcltcalipso = Lcltcalipso
413	cfg%Lclhcalipsoice = Lclhcalipsoice
414	cfg%Lcllcalipsoice = Lcllcalipsoice
415	cfg%Lclmcalipsoice = Lclmcalipsoice
416	cfg%Lcltcalipsoice = Lcltcalipsoice
417	cfg%Lclhcalipsoliq = Lclhcalipsoliq
418	cfg%Lcllcalipsoliq = Lcllcalipsoliq
419	cfg%Lclmcalipsoliq = Lclmcalipsoliq
420	cfg%Lcltcalipsoliq = Lcltcalipsoliq
421	cfg%Lclhcalipsoun = Lclhcalipsoun
422	cfg%Lcllcalipsoun = Lcllcalipsoun
423	cfg%Lclmcalipsoun = Lclmcalipsoun
424	cfg%Lcltcalipsoun = Lcltcalipsoun
425	cfg%Lclcalipsoice = Lclcalipsoice
426	cfg%Lclcalipsoliq = Lclcalipsoliq
427	cfg%Lclcalipsoun = Lclcalipsoun
428	cfg%Lclcalipsotmp = Lclcalipsotmp
429	cfg%Lclcalipsotmpice = Lclcalipsotmpice
430	cfg%Lclcalipsotmpliq = Lclcalipsotmpliq
431	cfg%Lclcalipsotmpun = Lclcalipsotmpun
432	cfg%Lcltlidarradar = Lcltlidarradar
433	cfg%LparasolRefl = LparasolRefl
434	! MISR simulator
435	cfg%LclMISR = LclMISR
436	! Other
437	cfg%Ltoffset = Ltoffset
438	cfg%Lfracout = Lfracout
439	cfg%LlidarBetaMol532 = LlidarBetaMol532
440	! RTTOV
441	cfg%Ltbrttov = Ltbrttov
442	! MODIS simulator
443	cfg%Lcltmodis=Lcltmodis
444	cfg%Lclwmodis=Lclwmodis
445	cfg%Lclimodis=Lclimodis
446	cfg%Lclhmodis=Lclhmodis
447	cfg%Lclmmodis=Lclmmodis
448	cfg%Lcllmodis=Lcllmodis
449	cfg%Ltautmodis=Ltautmodis
450	cfg%Ltauwmodis=Ltauwmodis
451	cfg%Ltauimodis=Ltauimodis
452	cfg%Ltautlogmodis=Ltautlogmodis
453	cfg%Ltauwlogmodis=Ltauwlogmodis
454	cfg%Ltauilogmodis=Ltauilogmodis
455	cfg%Lreffclwmodis=Lreffclwmodis
456	cfg%Lreffclimodis=Lreffclimodis
457	cfg%Lpctmodis=Lpctmodis
458	cfg%Llwpmodis=Llwpmodis
459	cfg%Liwpmodis=Liwpmodis
460	cfg%Lclmodis=Lclmodis
461
462	END SUBROUTINE READ_COSP_OUTPUT_NL
463

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format