source: LMDZ5/branches/Cold_pool_death/libf/phylmd/cosp/read_cosp_output_nl.F90

Last change on this file was 2720, checked in by Laurent Fairhead, 8 years ago

Merged trunk changes r2664:2719 into testing branch

  • 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: 15.2 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,Lcrimodis,Lcrlmodis
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,Lcrimodis,Lcrlmodis
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  CALL bcast(Lcrimodis)
140  CALL bcast(Lcrlmodis)
141
142!$OMP BARRIER
143
144!  print*,' Cles sorties cosp :'
145!  print*,' Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim', &
146!           Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim
147
148  ! Deal with dependencies
149  if (.not.Lradar_sim) then
150    Lcfad_dbze94   = .false.
151    Lclcalipso2    = .false.
152    Lcltlidarradar = .false.
153    Ldbze94        = .false.
154  endif
155  if (.not.Llidar_sim) then
156    Latb532 = .false.
157    Lcfad_lidarsr532 = .false.
158    Lclcalipso2      = .false.
159    Lclcalipso       = .false.
160    Lclhcalipso      = .false.
161    Lcllcalipso      = .false.
162    Lclmcalipso      = .false.
163    Lcltcalipso      = .false.
164    Lcltlidarradar   = .false.
165    Lparasol_refl    = .false.
166    Lbeta_mol532     = .false.
167!! AI
168    Lclcalipsoliq    = .false.
169    Lclcalipsoice    = .false.
170    Lclcalipsoun    = .false.
171    Lclcalipsotmp    = .false.
172    Lclcalipsotmpun    = .false.
173    Lclcalipsotmpliq    = .false.
174    Lclcalipsotmpice    = .false.
175    Lclhcalipsoliq      = .false.
176    Lcllcalipsoliq      = .false.
177    Lclmcalipsoliq     = .false.
178    Lcltcalipsoliq      = .false.
179    Lclhcalipsoice      = .false.
180    Lcllcalipsoice      = .false.
181    Lclmcalipsoice      = .false.
182    Lcltcalipsoice      = .false.
183    Lclhcalipsoun      = .false.
184    Lcllcalipsoun      = .false.
185    Lclmcalipsoun      = .false.
186    Lcltcalipsoun      = .false.
187  endif
188  if (.not.Lisccp_sim) then
189    Lalbisccp       = .false.
190    Lboxptopisccp   = .false.
191    Lboxtauisccp    = .false.
192    Lclisccp2       = .false.
193    Lctpisccp       = .false.
194    Ltauisccp       = .false.
195    Ltclisccp       = .false.
196    Lmeantbisccp    = .false.
197    Lmeantbclrisccp = .false.
198  endif
199  if (.not.Lmisr_sim) then
200    LclMISR = .false.
201  endif
202  if (.not.Lrttov_sim) then
203    Ltbrttov = .false.
204  endif
205  if ((.not.Lradar_sim).and.(.not.Llidar_sim).and. &
206      (.not.Lisccp_sim).and.(.not.Lmisr_sim)) then
207    Lfrac_out = .false.
208  endif
209 if (.not.Lmodis_sim) then
210    Lcltmodis=.false.
211    Lclwmodis=.false.
212    Lclimodis=.false.
213    Lclhmodis=.false.
214    Lclmmodis=.false.
215    Lcllmodis=.false.
216    Ltautmodis=.false.
217    Ltauwmodis=.false.
218    Ltauimodis=.false.
219    Ltautlogmodis=.false.
220    Ltauwlogmodis=.false.
221    Ltauilogmodis=.false.
222    Lreffclwmodis=.false.
223    Lreffclimodis=.false.
224    Lpctmodis=.false.
225    Llwpmodis=.false.
226    Liwpmodis=.false.
227    Lclmodis=.false.
228    Lcrimodis=.false.
229    Lcrlmodis=.false.
230  endif
231  if (Lmodis_sim) Lisccp_sim = .true.
232
233  ! Diagnostics that use Radar and Lidar
234  if (((Lclcalipso2).or.(Lcltlidarradar)).and.((Lradar_sim).or.(Llidar_sim))) then
235    Lclcalipso2    = .true.
236    Lcltlidarradar = .true.
237    Llidar_sim     = .true.
238    Lradar_sim     = .true.
239  endif
240
241  cfg%Lstats = .false.
242  if ((Lradar_sim).or.(Llidar_sim).or.(Lisccp_sim)) cfg%Lstats = .true.
243
244  ! Copy instrument flags to cfg structure
245  cfg%Lradar_sim = Lradar_sim
246  cfg%Llidar_sim = Llidar_sim
247  cfg%Lisccp_sim = Lisccp_sim
248  cfg%Lmodis_sim = Lmodis_sim
249  cfg%Lmisr_sim  = Lmisr_sim
250  cfg%Lrttov_sim = Lrttov_sim
251
252  ! Flag to control output to file
253  cfg%Lwrite_output = .false.
254  if (cfg%Lstats.or.cfg%Lmisr_sim.or.cfg%Lrttov_sim) then
255    cfg%Lwrite_output = .true.
256  endif
257
258  ! Output diagnostics
259  i = 1
260  if (Lalbisccp)        cfg%out_list(i) = 'albisccp'
261  i = i+1
262  if (Latb532)          cfg%out_list(i) = 'atb532'
263  i = i+1
264  if (Lboxptopisccp)    cfg%out_list(i) = 'boxptopisccp'
265  i = i+1
266  if (Lboxtauisccp)     cfg%out_list(i) = 'boxtauisccp'
267  i = i+1
268  if (LcfadDbze94)      cfg%out_list(i) = 'cfadDbze94'
269  i = i+1
270  if (LcfadLidarsr532)  cfg%out_list(i) = 'cfadLidarsr532'
271  i = i+1
272  if (Lclcalipso2)      cfg%out_list(i) = 'clcalipso2'
273  i = i+1
274  if (Lclcalipso)       cfg%out_list(i) = 'clcalipso'
275  i = i+1
276  if (Lclhcalipso)      cfg%out_list(i) = 'clhcalipso'
277  i = i+1
278  if (Lclisccp)         cfg%out_list(i) = 'clisccp'
279  i = i+1
280  if (Lcllcalipso)      cfg%out_list(i) = 'cllcalipso'
281  i = i+1
282  if (Lclmcalipso)      cfg%out_list(i) = 'clmcalipso'
283  i = i+1
284  if (Lcltcalipso)      cfg%out_list(i) = 'cltcalipso'
285  i = i+1
286
287  if (Lcllcalipsoice)      cfg%out_list(i) = 'cllcalipsoice'
288  i = i+1
289  if (Lclmcalipsoice)      cfg%out_list(i) = 'clmcalipsoice'
290  i = i+1
291  if (Lclhcalipsoice)      cfg%out_list(i) = 'clhcalipsoice'
292  i = i+1
293  if (Lcltcalipsoice)      cfg%out_list(i) = 'cltcalipsoice'
294  i = i+1
295  if (Lcllcalipsoliq)      cfg%out_list(i) = 'cllcalipsoliq'
296  i = i+1
297  if (Lclmcalipsoliq)      cfg%out_list(i) = 'clmcalipsoliq'
298  i = i+1
299  if (Lclhcalipsoliq)      cfg%out_list(i) = 'clhcalipsoliq'
300  i = i+1
301  if (Lcltcalipsoliq)      cfg%out_list(i) = 'cltcalipsoliq'
302  i = i+1
303  if (Lcllcalipsoun)      cfg%out_list(i) = 'cllcalipsoun'
304  i = i+1
305  if (Lclmcalipsoun)      cfg%out_list(i) = 'clmcalipsoun'
306  i = i+1
307  if (Lclhcalipsoun)      cfg%out_list(i) = 'clhcalipsoun'
308  i = i+1
309  if (Lcltcalipsoun)      cfg%out_list(i) = 'cltcalipsoun'
310  i = i+1
311
312  if (Lclcalipsoice)       cfg%out_list(i) = 'clcalipsoice'
313  i = i+1
314  if (Lclcalipsoliq)       cfg%out_list(i) = 'clcalipsoliq'
315  i = i+1
316  if (Lclcalipsoun)       cfg%out_list(i) = 'clcalipsoun'
317  i = i+1
318
319  if (Lclcalipsotmp)       cfg%out_list(i) = 'clcalipsotmp'
320  i = i+1
321  if (Lclcalipsotmpice)       cfg%out_list(i) = 'clcalipsotmpice'
322  i = i+1
323  if (Lclcalipsotmpliq)       cfg%out_list(i) = 'clcalipsotmpliq'
324  i = i+1
325  if (Lclcalipsotmpun)       cfg%out_list(i) = 'clcalipsotmpun'
326  i = i+1
327  if (Lcltlidarradar)   cfg%out_list(i) = 'cltlidarradar'
328  i = i+1
329  if (Lpctisccp)        cfg%out_list(i) = 'pctisccp'
330  i = i+1
331  if (Ldbze94)          cfg%out_list(i) = 'dbze94'
332  i = i+1
333  if (Ltauisccp)        cfg%out_list(i) = 'tauisccp'
334  i = i+1
335  if (Lcltisccp)        cfg%out_list(i) = 'cltisccp'
336  i = i+1
337  if (Ltoffset)         cfg%out_list(i) = 'toffset'
338  i = i+1
339  if (LparasolRefl)     cfg%out_list(i) = 'parasolRefl'
340  i = i+1
341  if (LclMISR)          cfg%out_list(i) = 'clMISR'
342  i = i+1
343  if (Lmeantbisccp)     cfg%out_list(i) = 'meantbisccp'
344  i = i+1
345  if (Lmeantbclrisccp)  cfg%out_list(i) = 'meantbclrisccp'
346  i = i+1
347  if (Lfracout)         cfg%out_list(i) = 'fracout'
348  i = i+1
349  if (LlidarBetaMol532) cfg%out_list(i) = 'lidarBetaMol532'
350  i = i+1
351  if (Ltbrttov)         cfg%out_list(i) = 'tbrttov'
352  i = i+1
353  if (Lcltmodis)        cfg%out_list(i) = 'cltmodis'
354  i = i+1
355  if (Lclwmodis)        cfg%out_list(i) = 'clwmodis'
356  i = i+1
357  if (Lclimodis)        cfg%out_list(i) = 'climodis'
358  i = i+1
359  if (Lclhmodis)        cfg%out_list(i) = 'clhmodis'
360  i = i+1
361  if (Lclmmodis)        cfg%out_list(i) = 'clmmodis'
362  i = i+1
363  if (Lcllmodis)        cfg%out_list(i) = 'cllmodis'
364  i = i+1
365  if (Ltautmodis)       cfg%out_list(i) = 'tautmodis'
366  i = i+1
367  if (Ltauwmodis)       cfg%out_list(i) = 'tauwmodis'
368  i = i+1
369  if (Ltauimodis)       cfg%out_list(i) = 'tauimodis'
370  i = i+1
371  if (Ltautlogmodis)    cfg%out_list(i) = 'tautlogmodis'
372  i = i+1
373  if (Ltauwlogmodis)    cfg%out_list(i) = 'tauwlogmodis'
374  i = i+1
375  if (Ltauilogmodis)    cfg%out_list(i) = 'tauilogmodis'
376  i = i+1
377  if (Lreffclwmodis)    cfg%out_list(i) = 'reffclwmodis'
378  i = i+1
379  if (Lreffclimodis)    cfg%out_list(i) = 'reffclimodis'
380  i = i+1
381  if (Lpctmodis)        cfg%out_list(i) = 'pctmodis'
382  i = i+1
383  if (Llwpmodis)        cfg%out_list(i) = 'lwpmodis'
384  i = i+1
385  if (Liwpmodis)        cfg%out_list(i) = 'iwpmodis'
386  i = i+1
387  if (Lclmodis)         cfg%out_list(i) = 'clmodis'
388  i = i+1
389  if (Lcrimodis)         cfg%out_list(i) = 'crimodis'
390  i = i+1
391  if (Lcrlmodis)         cfg%out_list(i) = 'crlmodis'
392   
393  if (i /= N_OUT_LIST) then
394     print *, 'COSP_IO: wrong number of output diagnostics'
395     print *, i,N_OUT_LIST
396     stop
397  endif
398
399  ! Copy diagnostic flags to cfg structure
400  ! ISCCP simulator 
401  cfg%Lalbisccp = Lalbisccp
402  cfg%Latb532 = Latb532
403  cfg%Lboxptopisccp = Lboxptopisccp
404  cfg%Lboxtauisccp = Lboxtauisccp
405  cfg%Lmeantbisccp = Lmeantbisccp
406  cfg%Lmeantbclrisccp = Lmeantbclrisccp
407  cfg%Lclisccp = Lclisccp
408  cfg%Lpctisccp = Lpctisccp
409  cfg%Ltauisccp = Ltauisccp
410  cfg%Lcltisccp = Lcltisccp
411  ! CloudSat simulator 
412  cfg%Ldbze94 = Ldbze94
413  cfg%LcfadDbze94 = LcfadDbze94
414  ! CALIPSO/PARASOL simulator 
415  cfg%LcfadLidarsr532 = LcfadLidarsr532
416  cfg%Lclcalipso2 = Lclcalipso2
417  cfg%Lclcalipso = Lclcalipso
418  cfg%Lclhcalipso = Lclhcalipso
419  cfg%Lcllcalipso = Lcllcalipso
420  cfg%Lclmcalipso = Lclmcalipso
421  cfg%Lcltcalipso = Lcltcalipso
422  cfg%Lclhcalipsoice = Lclhcalipsoice
423  cfg%Lcllcalipsoice = Lcllcalipsoice
424  cfg%Lclmcalipsoice = Lclmcalipsoice
425  cfg%Lcltcalipsoice = Lcltcalipsoice
426  cfg%Lclhcalipsoliq = Lclhcalipsoliq
427  cfg%Lcllcalipsoliq = Lcllcalipsoliq
428  cfg%Lclmcalipsoliq = Lclmcalipsoliq
429  cfg%Lcltcalipsoliq = Lcltcalipsoliq
430  cfg%Lclhcalipsoun = Lclhcalipsoun
431  cfg%Lcllcalipsoun = Lcllcalipsoun
432  cfg%Lclmcalipsoun = Lclmcalipsoun
433  cfg%Lcltcalipsoun = Lcltcalipsoun
434  cfg%Lclcalipsoice = Lclcalipsoice
435  cfg%Lclcalipsoliq = Lclcalipsoliq
436  cfg%Lclcalipsoun = Lclcalipsoun
437  cfg%Lclcalipsotmp = Lclcalipsotmp
438  cfg%Lclcalipsotmpice = Lclcalipsotmpice
439  cfg%Lclcalipsotmpliq = Lclcalipsotmpliq
440  cfg%Lclcalipsotmpun = Lclcalipsotmpun
441  cfg%Lcltlidarradar = Lcltlidarradar
442  cfg%LparasolRefl = LparasolRefl
443  ! MISR simulator 
444  cfg%LclMISR = LclMISR
445  ! Other
446  cfg%Ltoffset = Ltoffset
447  cfg%Lfracout = Lfracout
448  cfg%LlidarBetaMol532 = LlidarBetaMol532
449  ! RTTOV
450  cfg%Ltbrttov = Ltbrttov
451  ! MODIS simulator 
452  cfg%Lcltmodis=Lcltmodis
453  cfg%Lclwmodis=Lclwmodis
454  cfg%Lclimodis=Lclimodis
455  cfg%Lclhmodis=Lclhmodis
456  cfg%Lclmmodis=Lclmmodis
457  cfg%Lcllmodis=Lcllmodis
458  cfg%Ltautmodis=Ltautmodis
459  cfg%Ltauwmodis=Ltauwmodis
460  cfg%Ltauimodis=Ltauimodis
461  cfg%Ltautlogmodis=Ltautlogmodis
462  cfg%Ltauwlogmodis=Ltauwlogmodis
463  cfg%Ltauilogmodis=Ltauilogmodis
464  cfg%Lreffclwmodis=Lreffclwmodis
465  cfg%Lreffclimodis=Lreffclimodis
466  cfg%Lpctmodis=Lpctmodis
467  cfg%Llwpmodis=Llwpmodis
468  cfg%Liwpmodis=Liwpmodis
469  cfg%Lclmodis=Lclmodis
470  cfg%Lcrimodis=Lcrimodis
471  cfg%Lcrlmodis=Lcrlmodis
472
473 END SUBROUTINE READ_COSP_OUTPUT_NL
474
Note: See TracBrowser for help on using the repository browser.