Home

Context Navigation

source: palm/trunk/SOURCE/netcdf.f90 @ 101

Last change on this file since 101 was 98, checked in by raasch, 17 years ago
updating comments and rc-file
Property svn:keywords set to `Id`
File size: 142.6 KB

Line
1	#if defined( __ibmy_special )
2	@PROCESS NOOPTimize
3	#endif
4	SUBROUTINE define_netcdf_header( callmode, extend, av )
5
6	!------------------------------------------------------------------------------!
7	! Current revisions:
8	! ------------------
9	!
10	!
11	! Former revisions:
12	! -----------------
13	! $Id: netcdf.f90 98 2007-06-21 09:36:33Z raasch $
14	!
15	! 97 2007-06-21 08:23:15Z raasch
16	! Grids defined for rho and sa
17	!
18	! 48 2007-03-06 12:28:36Z raasch
19	! Output topography height information (zu_s_inner, zw_s_inner) to 2d-xy and 3d
20	! datasets
21	!
22	! RCS Log replace by Id keyword, revision history cleaned up
23	!
24	! Revision 1.12 2006/09/26 19:35:16 raasch
25	! Bugfix yv coordinates for yz cross sections
26	!
27	! Revision 1.1 2005/05/18 15:37:16 raasch
28	! Initial revision
29	!
30	!
31	! Description:
32	! ------------
33	! In case of extend = .FALSE.:
34	! Define all necessary dimensions, axes and variables for the different
35	! NetCDF datasets. This subroutine is called from check_open after a new
36	! dataset is created. It leaves the open NetCDF files ready to write.
37	!
38	! In case of extend = .TRUE.:
39	! Find out if dimensions and variables of an existing file match the values
40	! of the actual run. If so, get all necessary informations (ids, etc.) from
41	! this file.
42	!
43	! Parameter av can assume values 0 (non-averaged data) and 1 (time averaged
44	! data)
45	!------------------------------------------------------------------------------!
46	#if defined( __netcdf )
47
48	USE arrays_3d
49	USE constants
50	USE control_parameters
51	USE grid_variables
52	USE indices
53	USE netcdf_control
54	USE pegrid
55	USE particle_attributes
56	USE profil_parameter
57	USE spectrum
58	USE statistics
59
60
61	IMPLICIT NONE
62
63	CHARACTER (LEN=2) :: suffix
64	CHARACTER (LEN=2), INTENT (IN) :: callmode
65	CHARACTER (LEN=3) :: suffix1
66	CHARACTER (LEN=4) :: grid_x, grid_y, grid_z
67	CHARACTER (LEN=6) :: mode
68	CHARACTER (LEN=10) :: netcdf_var_name, netcdf_var_name_base, &
69	precision, var
70	CHARACTER (LEN=80) :: time_average_text
71	CHARACTER (LEN=2000) :: var_list, var_list_old
72
73	INTEGER :: av, i, id_x, id_y, id_z, j, ns, ns_old, nz_old
74
75	INTEGER, DIMENSION(1) :: id_dim_time_old, id_dim_x_yz_old, &
76	id_dim_y_xz_old, id_dim_zu_sp_old, &
77	id_dim_zu_xy_old, id_dim_zu_3d_old
78
79	LOGICAL :: found
80
81	LOGICAL, INTENT (INOUT) :: extend
82
83	LOGICAL, SAVE :: init_netcdf = .FALSE.
84
85	REAL, DIMENSION(1) :: last_time_coordinate
86
87	REAL, DIMENSION(:), ALLOCATABLE :: netcdf_data
88
89
90	!
91	!-- Initializing actions (return to calling routine check_parameters afterwards)
92	IF ( .NOT. init_netcdf ) THEN
93	!
94	!-- Check and set accuracy for NetCDF output. First set default value
95	nc_precision = NF90_REAL4
96
97	i = 1
98	DO WHILE ( netcdf_precision(i) /= ' ' )
99	j = INDEX( netcdf_precision(i), '_' )
100	IF ( j == 0 ) THEN
101	IF ( myid == 0 ) THEN
102	PRINT*, '+++ define_netcdf_header: netcdf_precision must ', &
103	'contain a "_" netcdf_precision(', i, ')="', &
104	TRIM( netcdf_precision(i) ),'"'
105	ENDIF
106	CALL local_stop
107	ENDIF
108
109	var = netcdf_precision(i)(1:j-1)
110	precision = netcdf_precision(i)(j+1:)
111
112	IF ( precision == 'NF90_REAL4' ) THEN
113	j = NF90_REAL4
114	ELSEIF ( precision == 'NF90_REAL8' ) THEN
115	j = NF90_REAL8
116	ELSE
117	IF ( myid == 0 ) THEN
118	PRINT*, '+++ define_netcdf_header: illegal netcdf precision: ',&
119	'netcdf_precision(', i, ')="', &
120	TRIM( netcdf_precision(i) ),'"'
121	ENDIF
122	CALL local_stop
123	ENDIF
124
125	SELECT CASE ( var )
126	CASE ( 'xy' )
127	nc_precision(1) = j
128	CASE ( 'xz' )
129	nc_precision(2) = j
130	CASE ( 'yz' )
131	nc_precision(3) = j
132	CASE ( '2d' )
133	nc_precision(1:3) = j
134	CASE ( '3d' )
135	nc_precision(4) = j
136	CASE ( 'pr' )
137	nc_precision(5) = j
138	CASE ( 'ts' )
139	nc_precision(6) = j
140	CASE ( 'sp' )
141	nc_precision(7) = j
142	CASE ( 'prt' )
143	nc_precision(8) = j
144	CASE ( 'all' )
145	nc_precision = j
146
147	CASE DEFAULT
148	IF ( myid == 0 ) THEN
149	PRINT*, '+++ define_netcdf_header: unknown variable in ', &
150	'inipar assignment: netcdf_precision(', i, ')="',&
151	TRIM( netcdf_precision(i) ),'"'
152	ENDIF
153	CALL local_stop
154
155	END SELECT
156
157	i = i + 1
158	IF ( i > 10 ) EXIT
159	ENDDO
160
161	init_netcdf = .TRUE.
162
163	RETURN
164
165	ENDIF
166
167	!
168	!-- Determine the mode to be processed
169	IF ( extend ) THEN
170	mode = callmode // '_ext'
171	ELSE
172	mode = callmode // '_new'
173	ENDIF
174
175	!
176	!-- Select the mode to be processed. Possibilities are xy, xz, yz, pr and ts.
177	SELECT CASE ( mode )
178
179	CASE ( '3d_new' )
180
181	!
182	!-- Define some global attributes of the dataset
183	nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'Conventions', &
184	'COARDS' )
185	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 62 )
186
187	IF ( av == 0 ) THEN
188	time_average_text = ' '
189	ELSE
190	WRITE (time_average_text, '('', '',F7.1,'' s average'')') &
191	averaging_interval
192	ENDIF
193	nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'title', &
194	TRIM( run_description_header ) // &
195	TRIM( time_average_text ) )
196	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 63 )
197	IF ( av == 1 ) THEN
198	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval
199	nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'time_avg', &
200	TRIM( time_average_text ) )
201	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 63 )
202	ENDIF
203
204	!
205	!-- Define time coordinate for volume data (unlimited dimension)
206	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'time', NF90_UNLIMITED, &
207	id_dim_time_3d(av) )
208	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 64 )
209
210	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'time', NF90_DOUBLE, &
211	id_dim_time_3d(av), id_var_time_3d(av) )
212	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 65 )
213
214	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_time_3d(av), 'units', &
215	'seconds')
216	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 66 )
217
218	!
219	!-- Define spatial dimensions and coordinates:
220	!-- Define vertical coordinate grid (zu grid)
221	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'zu_3d', nz_do3d-nzb+1, &
222	id_dim_zu_3d(av) )
223	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 67 )
224
225	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zu_3d', NF90_DOUBLE, &
226	id_dim_zu_3d(av), id_var_zu_3d(av) )
227	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 68 )
228
229	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zu_3d(av), 'units', &
230	'meters' )
231	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 69 )
232
233	!
234	!-- Define vertical coordinate grid (zw grid)
235	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'zw_3d', nz_do3d-nzb+1, &
236	id_dim_zw_3d(av) )
237	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 70 )
238
239	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zw_3d', NF90_DOUBLE, &
240	id_dim_zw_3d(av), id_var_zw_3d(av) )
241	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 71 )
242
243	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zw_3d(av), 'units', &
244	'meters' )
245	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 72 )
246
247	!
248	!-- Define x-axis (for scalar position)
249	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'x', nx+2, id_dim_x_3d(av) )
250	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 73 )
251
252	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'x', NF90_DOUBLE, &
253	id_dim_x_3d(av), id_var_x_3d(av) )
254	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 74 )
255
256	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_x_3d(av), 'units', &
257	'meters' )
258	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 75 )
259
260	!
261	!-- Define x-axis (for u position)
262	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'xu', nx+2, id_dim_xu_3d(av) )
263	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 358 )
264
265	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'xu', NF90_DOUBLE, &
266	id_dim_xu_3d(av), id_var_xu_3d(av) )
267	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 359 )
268
269	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_xu_3d(av), 'units', &
270	'meters' )
271	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 360 )
272
273	!
274	!-- Define y-axis (for scalar position)
275	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'y', ny+2, id_dim_y_3d(av) )
276	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 76 )
277
278	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'y', NF90_DOUBLE, &
279	id_dim_y_3d(av), id_var_y_3d(av) )
280	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 77 )
281
282	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_y_3d(av), 'units', &
283	'meters' )
284	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 78 )
285
286	!
287	!-- Define y-axis (for v position)
288	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'yv', ny+2, id_dim_yv_3d(av) )
289	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 361 )
290
291	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'yv', NF90_DOUBLE, &
292	id_dim_yv_3d(av), id_var_yv_3d(av) )
293	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 362 )
294
295	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_yv_3d(av), 'units', &
296	'meters' )
297	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 363 )
298
299	!
300	!-- In case of non-flat topography define 2d-arrays containing the height
301	!-- informations
302	IF ( TRIM( topography ) /= 'flat' ) THEN
303	!
304	!-- Define zusi = zu(nzb_s_inner)
305	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zusi', NF90_DOUBLE, &
306	(/ id_dim_x_3d(av), id_dim_y_3d(av) /), &
307	id_var_zusi_3d(av) )
308	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 413 )
309
310	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zusi_3d(av), &
311	'units', 'meters' )
312	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 414 )
313
314	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zusi_3d(av), &
315	'long_name', 'zu(nzb_s_inner)' )
316	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 415 )
317
318	!
319	!-- Define zwwi = zw(nzb_w_inner)
320	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zwwi', NF90_DOUBLE, &
321	(/ id_dim_x_3d(av), id_dim_y_3d(av) /), &
322	id_var_zwwi_3d(av) )
323	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 416 )
324
325	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zwwi_3d(av), &
326	'units', 'meters' )
327	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 417 )
328
329	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zwwi_3d(av), &
330	'long_name', 'zw(nzb_w_inner)' )
331	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 418 )
332
333	ENDIF
334
335
336	!
337	!-- Define the variables
338	var_list = ';'
339	i = 1
340
341	DO WHILE ( do3d(av,i)(1:1) /= ' ' )
342
343	!
344	!-- Check for the grid
345	found = .TRUE.
346	SELECT CASE ( do3d(av,i) )
347	!
348	!-- Most variables are defined on the scalar grid
349	CASE ( 'e', 'p', 'pc', 'pr', 'pt', 'q', 'ql', 'ql_c', 'ql_v', &
350	'ql_vp', 'qv', 'rho', 's', 'sa', 'vpt' )
351
352	grid_x = 'x'
353	grid_y = 'y'
354	grid_z = 'zu'
355	!
356	!-- u grid
357	CASE ( 'u' )
358
359	grid_x = 'xu'
360	grid_y = 'y'
361	grid_z = 'zu'
362	!
363	!-- v grid
364	CASE ( 'v' )
365
366	grid_x = 'x'
367	grid_y = 'yv'
368	grid_z = 'zu'
369	!
370	!-- w grid
371	CASE ( 'w' )
372
373	grid_x = 'x'
374	grid_y = 'y'
375	grid_z = 'zw'
376
377	CASE DEFAULT
378	!
379	!-- Check for user-defined quantities
380	CALL user_define_netcdf_grid( do3d(av,i), found, grid_x, &
381	grid_y, grid_z )
382
383	END SELECT
384
385	!
386	!-- Select the respective dimension ids
387	IF ( grid_x == 'x' ) THEN
388	id_x = id_dim_x_3d(av)
389	ELSEIF ( grid_x == 'xu' ) THEN
390	id_x = id_dim_xu_3d(av)
391	ENDIF
392
393	IF ( grid_y == 'y' ) THEN
394	id_y = id_dim_y_3d(av)
395	ELSEIF ( grid_y == 'yv' ) THEN
396	id_y = id_dim_yv_3d(av)
397	ENDIF
398
399	IF ( grid_z == 'zu' ) THEN
400	id_z = id_dim_zu_3d(av)
401	ELSEIF ( grid_z == 'zw' ) THEN
402	id_z = id_dim_zw_3d(av)
403	ENDIF
404
405	!
406	!-- Define the grid
407	nc_stat = NF90_DEF_VAR( id_set_3d(av), do3d(av,i), &
408	nc_precision(4), &
409	(/ id_x, id_y, id_z, id_dim_time_3d(av) /), &
410	id_var_do3d(av,i) )
411
412	IF ( .NOT. found ) THEN
413	PRINT*, '+++ define_netcdf_header: no grid defined for', &
414	' variable ', do3d(av,i)
415	ENDIF
416
417	var_list = TRIM( var_list ) // TRIM( do3d(av,i) ) // ';'
418
419	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 79 )
420	!
421	!-- Store the 'real' name of the variable (with *, for example)
422	!-- in the long_name attribute. This is evaluated by Ferret,
423	!-- for example.
424	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_do3d(av,i), &
425	'long_name', do3d(av,i) )
426	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 80 )
427	!
428	!-- Define the variable's unit
429	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_do3d(av,i), &
430	'units', TRIM( do3d_unit(av,i) ) )
431	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 357 )
432
433	i = i + 1
434
435	ENDDO
436
437	!
438	!-- No arrays to output
439	IF ( i == 1 ) RETURN
440
441	!
442	!-- Write the list of variables as global attribute (this is used by
443	!-- restart runs and by combine_plot_fields)
444	nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'VAR_LIST', &
445	var_list )
446	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 81 )
447
448	!
449	!-- Leave NetCDF define mode
450	nc_stat = NF90_ENDDEF( id_set_3d(av) )
451	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 82 )
452
453	!
454	!-- Write data for x and xu axis (shifted by -dx/2)
455	ALLOCATE( netcdf_data(0:nx+1) )
456
457	DO i = 0, nx+1
458	netcdf_data(i) = i * dx
459	ENDDO
460
461	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_x_3d(av), netcdf_data, &
462	start = (/ 1 /), count = (/ nx+2 /) )
463	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 83 )
464
465	DO i = 0, nx+1
466	netcdf_data(i) = ( i - 0.5 ) * dx
467	ENDDO
468
469	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_xu_3d(av), &
470	netcdf_data, start = (/ 1 /), &
471	count = (/ nx+2 /) )
472	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 385 )
473
474	DEALLOCATE( netcdf_data )
475
476	!
477	!-- Write data for y and yv axis (shifted by -dy/2)
478	ALLOCATE( netcdf_data(0:ny+1) )
479
480	DO i = 0, ny+1
481	netcdf_data(i) = i * dy
482	ENDDO
483
484	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_y_3d(av), netcdf_data, &
485	start = (/ 1 /), count = (/ ny+2 /))
486	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 84 )
487
488	DO i = 0, ny+1
489	netcdf_data(i) = ( i - 0.5 ) * dy
490	ENDDO
491
492	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_yv_3d(av), &
493	netcdf_data, start = (/ 1 /), &
494	count = (/ ny+2 /))
495	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 387 )
496
497	DEALLOCATE( netcdf_data )
498
499	!
500	!-- Write zu and zw data (vertical axes)
501	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zu_3d(av), &
502	zu(nzb:nz_do3d), start = (/ 1 /), &
503	count = (/ nz_do3d-nzb+1 /) )
504	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 85 )
505
506	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zw_3d(av), &
507	zw(nzb:nz_do3d), start = (/ 1 /), &
508	count = (/ nz_do3d-nzb+1 /) )
509	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 86 )
510
511
512	!
513	!-- In case of non-flat topography write height information
514	IF ( TRIM( topography ) /= 'flat' ) THEN
515
516	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zusi_3d(av), &
517	zu_s_inner(0:nx+1,0:ny+1), &
518	start = (/ 1, 1 /), &
519	count = (/ nx+2, ny+2 /) )
520	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 419 )
521
522	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zwwi_3d(av), &
523	zw_w_inner(0:nx+1,0:ny+1), &
524	start = (/ 1, 1 /), &
525	count = (/ nx+2, ny+2 /) )
526	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 420 )
527
528	ENDIF
529
530	CASE ( '3d_ext' )
531
532	!
533	!-- Get the list of variables and compare with the actual run.
534	!-- First var_list_old has to be reset, since GET_ATT does not assign
535	!-- trailing blanks.
536	var_list_old = ' '
537	nc_stat = NF90_GET_ATT( id_set_3d(av), NF90_GLOBAL, 'VAR_LIST', &
538	var_list_old )
539	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 87 )
540
541	var_list = ';'
542	i = 1
543	DO WHILE ( do3d(av,i)(1:1) /= ' ' )
544	var_list = TRIM(var_list) // TRIM( do3d(av,i) ) // ';'
545	i = i + 1
546	ENDDO
547
548	IF ( av == 0 ) THEN
549	var = '(3d)'
550	ELSE
551	var = '(3d_av)'
552	ENDIF
553
554	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
555	PRINT*, '+++ WARNING: NetCDF file for volume data ' // &
556	TRIM( var ) // ' from previuos run found,'
557	PRINT*, ' but this file cannot be extended due to' // &
558	' variable mismatch.'
559	PRINT*, ' New file is created instead.'
560	extend = .FALSE.
561	RETURN
562	ENDIF
563
564	!
565	!-- Get and compare the number of vertical gridpoints
566	nc_stat = NF90_INQ_VARID( id_set_3d(av), 'zu_3d', id_var_zu_3d(av) )
567	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 88 )
568
569	nc_stat = NF90_INQUIRE_VARIABLE( id_set_3d(av), id_var_zu_3d(av), &
570	dimids = id_dim_zu_3d_old )
571	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 89 )
572	id_dim_zu_3d(av) = id_dim_zu_3d_old(1)
573
574	nc_stat = NF90_INQUIRE_DIMENSION( id_set_3d(av), id_dim_zu_3d(av), &
575	len = nz_old )
576	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 90 )
577
578	IF ( nz_do3d-nzb+1 /= nz_old ) THEN
579	PRINT*, '+++ WARNING: NetCDF file for volume data ' // &
580	TRIM( var ) // ' from previuos run found,'
581	PRINT*, ' but this file cannot be extended due to' // &
582	' mismatch in number of'
583	PRINT*, ' vertical grid points (nz_do3d).'
584	PRINT*, ' New file is created instead.'
585	extend = .FALSE.
586	RETURN
587	ENDIF
588
589	!
590	!-- Get the id of the time coordinate (unlimited coordinate) and its
591	!-- last index on the file. The next time level is pl3d..count+1.
592	!-- The current time must be larger than the last output time
593	!-- on the file.
594	nc_stat = NF90_INQ_VARID( id_set_3d(av), 'time', id_var_time_3d(av) )
595	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 91 )
596
597	nc_stat = NF90_INQUIRE_VARIABLE( id_set_3d(av), id_var_time_3d(av), &
598	dimids = id_dim_time_old )
599	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 92 )
600	id_dim_time_3d(av) = id_dim_time_old(1)
601
602	nc_stat = NF90_INQUIRE_DIMENSION( id_set_3d(av), id_dim_time_3d(av), &
603	len = do3d_time_count(av) )
604	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 93 )
605
606	nc_stat = NF90_GET_VAR( id_set_3d(av), id_var_time_3d(av), &
607	last_time_coordinate, &
608	start = (/ do3d_time_count(av) /), &
609	count = (/ 1 /) )
610	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 94 )
611
612	IF ( last_time_coordinate(1) >= simulated_time ) THEN
613	PRINT*, '+++ WARNING: NetCDF file for volume data ' // &
614	TRIM( var ) // ' from previuos run found,'
615	PRINT*, ' but this file cannot be extended becaus' // &
616	'e the current output time'
617	PRINT*, ' is less or equal than the last output t' // &
618	'ime on this file.'
619	PRINT*, ' New file is created instead.'
620	do3d_time_count(av) = 0
621	extend = .FALSE.
622	RETURN
623	ENDIF
624
625	!
626	!-- Dataset seems to be extendable.
627	!-- Now get the variable ids.
628	i = 1
629	DO WHILE ( do3d(av,i)(1:1) /= ' ' )
630	nc_stat = NF90_INQ_VARID( id_set_3d(av), TRIM( do3d(av,i) ), &
631	id_var_do3d(av,i) )
632	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 95 )
633	i = i + 1
634	ENDDO
635
636	!
637	!-- Change the titel attribute on file
638	nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'title', &
639	TRIM( run_description_header ) )
640	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 96 )
641	PRINT, '** NetCDF file for volume data ' // TRIM( var ) // &
642	' from previous run found.'
643	PRINT*, ' This file will be extended.'
644
645
646	CASE ( 'xy_new' )
647
648	!
649	!-- Define some global attributes of the dataset
650	nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'Conventions', &
651	'COARDS' )
652	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 97 )
653
654	IF ( av == 0 ) THEN
655	time_average_text = ' '
656	ELSE
657	WRITE (time_average_text, '('', '',F7.1,'' s average'')') &
658	averaging_interval
659	ENDIF
660	nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'title', &
661	TRIM( run_description_header ) // &
662	TRIM( time_average_text ) )
663	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 98 )
664	IF ( av == 1 ) THEN
665	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval
666	nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'time_avg', &
667	TRIM( time_average_text ) )
668	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 98 )
669	ENDIF
670
671	!
672	!-- Define time coordinate for xy sections (unlimited dimension)
673	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'time', NF90_UNLIMITED, &
674	id_dim_time_xy(av) )
675	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 99 )
676
677	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'time', NF90_DOUBLE, &
678	id_dim_time_xy(av), id_var_time_xy(av) )
679	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 100 )
680
681	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_time_xy(av), 'units', &
682	'seconds')
683	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 101 )
684
685	!
686	!-- Define the spatial dimensions and coordinates for xy-sections.
687	!-- First, determine the number of horizontal sections to be written.
688	IF ( section(1,1) == -9999 ) THEN
689	RETURN
690	ELSE
691	ns = 1
692	DO WHILE ( section(ns,1) /= -9999 .AND. ns <= 100 )
693	ns = ns + 1
694	ENDDO
695	ns = ns - 1
696	ENDIF
697
698	!
699	!-- Define vertical coordinate grid (zu grid)
700	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'zu_xy', ns, id_dim_zu_xy(av) )
701	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 102 )
702
703	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zu_xy', NF90_DOUBLE, &
704	id_dim_zu_xy(av), id_var_zu_xy(av) )
705	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 103 )
706
707	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zu_xy(av), 'units', &
708	'meters' )
709	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 104 )
710
711	!
712	!-- Define vertical coordinate grid (zw grid)
713	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'zw_xy', ns, id_dim_zw_xy(av) )
714	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 105 )
715
716	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zw_xy', NF90_DOUBLE, &
717	id_dim_zw_xy(av), id_var_zw_xy(av) )
718	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 106 )
719
720	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zw_xy(av), 'units', &
721	'meters' )
722	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 107 )
723
724	!
725	!-- Define a pseudo vertical coordinate grid for the surface variables
726	!-- u* and t* to store their height level
727	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'zu1_xy', 1, &
728	id_dim_zu1_xy(av) )
729	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 108 )
730
731	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zu1_xy', NF90_DOUBLE, &
732	id_dim_zu1_xy(av), id_var_zu1_xy(av) )
733	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 109 )
734
735	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zu1_xy(av), 'units', &
736	'meters' )
737	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 110 )
738
739	!
740	!-- Define a variable to store the layer indices of the horizontal cross
741	!-- sections, too
742	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'ind_z_xy', NF90_DOUBLE, &
743	id_dim_zu_xy(av), id_var_ind_z_xy(av) )
744	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 111 )
745
746	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_ind_z_xy(av), 'units', &
747	'gridpoints')
748	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 112 )
749
750	!
751	!-- Define x-axis (for scalar position)
752	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'x', nx+2, id_dim_x_xy(av) )
753	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 113 )
754
755	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'x', NF90_DOUBLE, &
756	id_dim_x_xy(av), id_var_x_xy(av) )
757	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 114 )
758
759	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_x_xy(av), 'units', &
760	'meters' )
761	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 115 )
762
763	!
764	!-- Define x-axis (for u position)
765	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'xu', nx+2, id_dim_xu_xy(av) )
766	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 388 )
767
768	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'xu', NF90_DOUBLE, &
769	id_dim_xu_xy(av), id_var_xu_xy(av) )
770	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 389 )
771
772	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_xu_xy(av), 'units', &
773	'meters' )
774	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 390 )
775
776	!
777	!-- Define y-axis (for scalar position)
778	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'y', ny+2, id_dim_y_xy(av) )
779	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 116 )
780
781	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'y', NF90_DOUBLE, &
782	id_dim_y_xy(av), id_var_y_xy(av) )
783	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 117 )
784
785	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_y_xy(av), 'units', &
786	'meters' )
787	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 118 )
788
789	!
790	!-- Define y-axis (for scalar position)
791	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'yv', ny+2, id_dim_yv_xy(av) )
792	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 364 )
793
794	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'yv', NF90_DOUBLE, &
795	id_dim_yv_xy(av), id_var_yv_xy(av) )
796	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 365 )
797
798	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_yv_xy(av), 'units', &
799	'meters' )
800	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 366 )
801
802	!
803	!-- In case of non-flat topography define 2d-arrays containing the height
804	!-- informations
805	IF ( TRIM( topography ) /= 'flat' ) THEN
806	!
807	!-- Define zusi = zu(nzb_s_inner)
808	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zusi', NF90_DOUBLE, &
809	(/ id_dim_x_xy(av), id_dim_y_xy(av) /), &
810	id_var_zusi_xy(av) )
811	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 421 )
812
813	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zusi_xy(av), &
814	'units', 'meters' )
815	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 422 )
816
817	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zusi_xy(av), &
818	'long_name', 'zu(nzb_s_inner)' )
819	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 423 )
820
821	!
822	!-- Define zwwi = zw(nzb_w_inner)
823	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zwwi', NF90_DOUBLE, &
824	(/ id_dim_x_xy(av), id_dim_y_xy(av) /), &
825	id_var_zwwi_xy(av) )
826	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 424 )
827
828	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zwwi_xy(av), &
829	'units', 'meters' )
830	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 425 )
831
832	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zwwi_xy(av), &
833	'long_name', 'zw(nzb_w_inner)' )
834	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 426 )
835
836	ENDIF
837
838
839	!
840	!-- Define the variables
841	var_list = ';'
842	i = 1
843
844	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
845
846	IF ( INDEX( do2d(av,i), 'xy' ) /= 0 ) THEN
847	!
848	!-- If there is a star in the variable name (u* or t*), it is a
849	!-- surface variable. Define it with id_dim_zu1_xy.
850	IF ( INDEX( do2d(av,i), '*' ) /= 0 ) THEN
851	!
852	!-- First, remove those characters not allowed by NetCDF
853	netcdf_var_name = do2d(av,i)
854	CALL clean_netcdf_varname( netcdf_var_name )
855
856	nc_stat = NF90_DEF_VAR( id_set_xy(av), netcdf_var_name, &
857	nc_precision(1), &
858	(/ id_dim_x_xy(av), id_dim_y_xy(av),&
859	id_dim_zu1_xy(av), &
860	id_dim_time_xy(av) /), &
861	id_var_do2d(av,i) )
862
863	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
864
865	ELSE
866
867	!
868	!-- Check for the grid
869	found = .TRUE.
870	SELECT CASE ( do2d(av,i) )
871	!
872	!-- Most variables are defined on the zu grid
873	CASE ( 'e_xy', 'p_xy', 'pc_xy', 'pr_xy', 'pt_xy', 'q_xy',&
874	'ql_xy', 'ql_c_xy', 'ql_v_xy', 'ql_vp_xy', &
875	'qv_xy', 'rho_xy', 's_xy', 'sa_xy', 'vpt_xy' )
876
877	grid_x = 'x'
878	grid_y = 'y'
879	grid_z = 'zu'
880	!
881	!-- u grid
882	CASE ( 'u_xy' )
883
884	grid_x = 'xu'
885	grid_y = 'y'
886	grid_z = 'zu'
887	!
888	!-- v grid
889	CASE ( 'v_xy' )
890
891	grid_x = 'x'
892	grid_y = 'yv'
893	grid_z = 'zu'
894	!
895	!-- w grid
896	CASE ( 'w_xy' )
897
898	grid_x = 'x'
899	grid_y = 'y'
900	grid_z = 'zw'
901
902	CASE DEFAULT
903	!
904	!-- Check for user-defined quantities
905	CALL user_define_netcdf_grid( do2d(av,i), found, &
906	grid_x, grid_y, grid_z )
907
908	END SELECT
909
910	!
911	!-- Select the respective dimension ids
912	IF ( grid_x == 'x' ) THEN
913	id_x = id_dim_x_xy(av)
914	ELSEIF ( grid_x == 'xu' ) THEN
915	id_x = id_dim_xu_xy(av)
916	ENDIF
917
918	IF ( grid_y == 'y' ) THEN
919	id_y = id_dim_y_xy(av)
920	ELSEIF ( grid_y == 'yv' ) THEN
921	id_y = id_dim_yv_xy(av)
922	ENDIF
923
924	IF ( grid_z == 'zu' ) THEN
925	id_z = id_dim_zu_xy(av)
926	ELSEIF ( grid_z == 'zw' ) THEN
927	id_z = id_dim_zw_xy(av)
928	ENDIF
929
930	!
931	!-- Define the grid
932	nc_stat = NF90_DEF_VAR( id_set_xy(av), do2d(av,i), &
933	nc_precision(1), &
934	(/ id_x, id_y, id_z, id_dim_time_xy(av) /), &
935	id_var_do2d(av,i) )
936
937	IF ( .NOT. found ) THEN
938	PRINT*, '+++ define_netcdf_header: no grid defined ', &
939	'for variable ', do2d(av,i)
940	ENDIF
941
942	var_list = TRIM( var_list ) // TRIM( do2d(av,i) ) // ';'
943
944	ENDIF
945
946	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 119 )
947	!
948	!-- Store the 'real' name of the variable (with *, for example)
949	!-- in the long_name attribute. This is evaluated by Ferret,
950	!-- for example.
951	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_do2d(av,i), &
952	'long_name', do2d(av,i) )
953	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 120 )
954	!
955	!-- Define the variable's unit
956	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_do2d(av,i), &
957	'units', TRIM( do2d_unit(av,i) ) )
958	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 354 )
959	ENDIF
960
961	i = i + 1
962
963	ENDDO
964
965	!
966	!-- No arrays to output. Close the netcdf file and return.
967	IF ( i == 1 ) RETURN
968
969	!
970	!-- Write the list of variables as global attribute (this is used by
971	!-- restart runs and by combine_plot_fields)
972	nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'VAR_LIST', &
973	var_list )
974	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 121 )
975
976	!
977	!-- Leave NetCDF define mode
978	nc_stat = NF90_ENDDEF( id_set_xy(av) )
979	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 122 )
980
981	!
982	!-- Write axis data: z_xy, x, y
983	ALLOCATE( netcdf_data(1:ns) )
984
985	!
986	!-- Write zu data
987	DO i = 1, ns
988	IF( section(i,1) == -1 ) THEN
989	netcdf_data(i) = -1.0 ! section averaged along z
990	ELSE
991	netcdf_data(i) = zu( section(i,1) )
992	ENDIF
993	ENDDO
994	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zu_xy(av), &
995	netcdf_data, start = (/ 1 /), &
996	count = (/ ns /) )
997	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 123 )
998
999	!
1000	!-- Write zw data
1001	DO i = 1, ns
1002	IF( section(i,1) == -1 ) THEN
1003	netcdf_data(i) = -1.0 ! section averaged along z
1004	ELSE
1005	netcdf_data(i) = zw( section(i,1) )
1006	ENDIF
1007	ENDDO
1008	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zw_xy(av), &
1009	netcdf_data, start = (/ 1 /), &
1010	count = (/ ns /) )
1011	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 124 )
1012
1013	!
1014	!-- Write gridpoint number data
1015	netcdf_data(1:ns) = section(1:ns,1)
1016	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_ind_z_xy(av), &
1017	netcdf_data, start = (/ 1 /), &
1018	count = (/ ns /) )
1019	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 125 )
1020
1021	DEALLOCATE( netcdf_data )
1022
1023	!
1024	!-- Write the cross section height u, t
1025	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zu1_xy(av), &
1026	(/ zu(nzb+1) /), start = (/ 1 /), &
1027	count = (/ 1 /) )
1028	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 126 )
1029
1030	!
1031	!-- Write data for x and xu axis (shifted by -dx/2)
1032	ALLOCATE( netcdf_data(0:nx+1) )
1033
1034	DO i = 0, nx+1
1035	netcdf_data(i) = i * dx
1036	ENDDO
1037
1038	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_x_xy(av), netcdf_data, &
1039	start = (/ 1 /), count = (/ nx+2 /) )
1040	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 127 )
1041
1042	DO i = 0, nx+1
1043	netcdf_data(i) = ( i - 0.5 ) * dx
1044	ENDDO
1045
1046	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_xu_xy(av), &
1047	netcdf_data, start = (/ 1 /), &
1048	count = (/ nx+2 /) )
1049	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 367 )
1050
1051	DEALLOCATE( netcdf_data )
1052
1053	!
1054	!-- Write data for y and yv axis (shifted by -dy/2)
1055	ALLOCATE( netcdf_data(0:ny+1) )
1056
1057	DO i = 0, ny+1
1058	netcdf_data(i) = i * dy
1059	ENDDO
1060
1061	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_y_xy(av), netcdf_data, &
1062	start = (/ 1 /), count = (/ ny+2 /))
1063	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 128 )
1064
1065	DO i = 0, ny+1
1066	netcdf_data(i) = ( i - 0.5 ) * dy
1067	ENDDO
1068
1069	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_yv_xy(av), &
1070	netcdf_data, start = (/ 1 /), &
1071	count = (/ ny+2 /))
1072	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 368 )
1073
1074	DEALLOCATE( netcdf_data )
1075
1076	!
1077	!-- In case of non-flat topography write height information
1078	IF ( TRIM( topography ) /= 'flat' ) THEN
1079
1080	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zusi_xy(av), &
1081	zu_s_inner(0:nx+1,0:ny+1), &
1082	start = (/ 1, 1 /), &
1083	count = (/ nx+2, ny+2 /) )
1084	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 427 )
1085
1086	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zwwi_xy(av), &
1087	zw_w_inner(0:nx+1,0:ny+1), &
1088	start = (/ 1, 1 /), &
1089	count = (/ nx+2, ny+2 /) )
1090	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 428 )
1091
1092	ENDIF
1093
1094
1095	CASE ( 'xy_ext' )
1096
1097	!
1098	!-- Get the list of variables and compare with the actual run.
1099	!-- First var_list_old has to be reset, since GET_ATT does not assign
1100	!-- trailing blanks.
1101	var_list_old = ' '
1102	nc_stat = NF90_GET_ATT( id_set_xy(av), NF90_GLOBAL, 'VAR_LIST', &
1103	var_list_old )
1104	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 129 )
1105
1106	var_list = ';'
1107	i = 1
1108	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1109	IF ( INDEX( do2d(av,i), 'xy' ) /= 0 ) THEN
1110	netcdf_var_name = do2d(av,i)
1111	CALL clean_netcdf_varname( netcdf_var_name )
1112	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
1113	ENDIF
1114	i = i + 1
1115	ENDDO
1116
1117	IF ( av == 0 ) THEN
1118	var = '(xy)'
1119	ELSE
1120	var = '(xy_av)'
1121	ENDIF
1122
1123	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
1124	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
1125	TRIM( var ) // ' from previuos run found,'
1126	PRINT*, ' but this file cannot be extended due to' // &
1127	' variable mismatch.'
1128	PRINT*, ' New file is created instead.'
1129	extend = .FALSE.
1130	RETURN
1131	ENDIF
1132
1133	!
1134	!-- Calculate the number of current sections
1135	ns = 1
1136	DO WHILE ( section(ns,1) /= -9999 .AND. ns <= 100 )
1137	ns = ns + 1
1138	ENDDO
1139	ns = ns - 1
1140
1141	!
1142	!-- Get and compare the number of horizontal cross sections
1143	nc_stat = NF90_INQ_VARID( id_set_xy(av), 'zu_xy', id_var_zu_xy(av) )
1144	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 130 )
1145
1146	nc_stat = NF90_INQUIRE_VARIABLE( id_set_xy(av), id_var_zu_xy(av), &
1147	dimids = id_dim_zu_xy_old )
1148	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 131 )
1149	id_dim_zu_xy(av) = id_dim_zu_xy_old(1)
1150
1151	nc_stat = NF90_INQUIRE_DIMENSION( id_set_xy(av), id_dim_zu_xy(av), &
1152	len = ns_old )
1153	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 132 )
1154
1155	IF ( ns /= ns_old ) THEN
1156	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
1157	TRIM( var ) // ' from previuos run found,'
1158	PRINT*, ' but this file cannot be extended due to' // &
1159	' mismatch in number of'
1160	PRINT*, ' cross sections.'
1161	PRINT*, ' New file is created instead.'
1162	extend = .FALSE.
1163	RETURN
1164	ENDIF
1165
1166	!
1167	!-- Get and compare the heights of the cross sections
1168	ALLOCATE( netcdf_data(1:ns_old) )
1169
1170	nc_stat = NF90_GET_VAR( id_set_xy(av), id_var_zu_xy(av), netcdf_data )
1171	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 133 )
1172
1173	DO i = 1, ns
1174	IF ( section(i,1) /= -1 ) THEN
1175	IF ( zu(section(i,1)) /= netcdf_data(i) ) THEN
1176	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
1177	TRIM( var ) // ' from previuos run found,'
1178	PRINT*, ' but this file cannot be extended' // &
1179	' due to mismatch in cross'
1180	PRINT*, ' section levels.'
1181	PRINT*, ' New file is created instead.'
1182	extend = .FALSE.
1183	RETURN
1184	ENDIF
1185	ELSE
1186	IF ( -1.0 /= netcdf_data(i) ) THEN
1187	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
1188	TRIM( var ) // ' from previuos run found,'
1189	PRINT*, ' but this file cannot be extended' // &
1190	' due to mismatch in cross'
1191	PRINT*, ' section levels.'
1192	PRINT*, ' New file is created instead.'
1193	extend = .FALSE.
1194	RETURN
1195	ENDIF
1196	ENDIF
1197	ENDDO
1198
1199	DEALLOCATE( netcdf_data )
1200
1201	!
1202	!-- Get the id of the time coordinate (unlimited coordinate) and its
1203	!-- last index on the file. The next time level is do2d..count+1.
1204	!-- The current time must be larger than the last output time
1205	!-- on the file.
1206	nc_stat = NF90_INQ_VARID( id_set_xy(av), 'time', id_var_time_xy(av) )
1207	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 134 )
1208
1209	nc_stat = NF90_INQUIRE_VARIABLE( id_set_xy(av), id_var_time_xy(av), &
1210	dimids = id_dim_time_old )
1211	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 135 )
1212	id_dim_time_xy(av) = id_dim_time_old(1)
1213
1214	nc_stat = NF90_INQUIRE_DIMENSION( id_set_xy(av), id_dim_time_xy(av), &
1215	len = do2d_xy_time_count(av) )
1216	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 136 )
1217
1218	nc_stat = NF90_GET_VAR( id_set_xy(av), id_var_time_xy(av), &
1219	last_time_coordinate, &
1220	start = (/ do2d_xy_time_count(av) /), &
1221	count = (/ 1 /) )
1222	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 137 )
1223
1224	IF ( last_time_coordinate(1) >= simulated_time ) THEN
1225	PRINT*, '+++ WARNING: NetCDF file for cross sections ' // &
1226	TRIM( var ) // ' from previuos run found,'
1227	PRINT*, ' but this file cannot be extended becaus' // &
1228	'e the current output time'
1229	PRINT*, ' is less or equal than the last output t' // &
1230	'ime on this file.'
1231	PRINT*, ' New file is created instead.'
1232	do2d_xy_time_count(av) = 0
1233	extend = .FALSE.
1234	RETURN
1235	ENDIF
1236
1237	!
1238	!-- Dataset seems to be extendable.
1239	!-- Now get the variable ids.
1240	i = 1
1241	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1242	IF ( INDEX( do2d(av,i), 'xy' ) /= 0 ) THEN
1243	netcdf_var_name = do2d(av,i)
1244	CALL clean_netcdf_varname( netcdf_var_name )
1245	nc_stat = NF90_INQ_VARID( id_set_xy(av), netcdf_var_name, &
1246	id_var_do2d(av,i) )
1247	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 138 )
1248	ENDIF
1249	i = i + 1
1250	ENDDO
1251
1252	!
1253	!-- Change the titel attribute on file
1254	nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'title', &
1255	TRIM( run_description_header ) )
1256	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 139 )
1257	PRINT, '** NetCDF file for cross-sections ' // TRIM( var ) // &
1258	' from previous run found.'
1259	PRINT*, ' This file will be extended.'
1260
1261
1262	CASE ( 'xz_new' )
1263
1264	!
1265	!-- Define some global attributes of the dataset
1266	nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'Conventions', &
1267	'COARDS' )
1268	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 140 )
1269
1270	IF ( av == 0 ) THEN
1271	time_average_text = ' '
1272	ELSE
1273	WRITE (time_average_text, '('', '',F7.1,'' s average'')') &
1274	averaging_interval
1275	ENDIF
1276	nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'title', &
1277	TRIM( run_description_header ) // &
1278	TRIM( time_average_text ) )
1279	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 141 )
1280	IF ( av == 1 ) THEN
1281	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval
1282	nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'time_avg', &
1283	TRIM( time_average_text ) )
1284	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 141 )
1285	ENDIF
1286
1287	!
1288	!-- Define time coordinate for xz sections (unlimited dimension)
1289	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'time', NF90_UNLIMITED, &
1290	id_dim_time_xz(av) )
1291	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 142 )
1292
1293	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'time', NF90_DOUBLE, &
1294	id_dim_time_xz(av), id_var_time_xz(av) )
1295	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 143 )
1296
1297	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_time_xz(av), 'units', &
1298	'seconds')
1299	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 144 )
1300
1301	!
1302	!-- Define the spatial dimensions and coordinates for xz-sections.
1303	!-- First, determine the number of vertical sections to be written.
1304	IF ( section(1,2) == -9999 ) THEN
1305	RETURN
1306	ELSE
1307	ns = 1
1308	DO WHILE ( section(ns,2) /= -9999 .AND. ns <= 100 )
1309	ns = ns + 1
1310	ENDDO
1311	ns = ns - 1
1312	ENDIF
1313
1314	!
1315	!-- Define y-axis (for scalar position)
1316	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'y_xz', ns, id_dim_y_xz(av) )
1317	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 145 )
1318
1319	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'y_xz', NF90_DOUBLE, &
1320	id_dim_y_xz(av), id_var_y_xz(av) )
1321	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 146 )
1322
1323	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_y_xz(av), 'units', &
1324	'meters' )
1325	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 147 )
1326
1327	!
1328	!-- Define y-axis (for v position)
1329	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'yv_xz', ns, id_dim_yv_xz(av) )
1330	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 369 )
1331
1332	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'yv_xz', NF90_DOUBLE, &
1333	id_dim_yv_xz(av), id_var_yv_xz(av) )
1334	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 370 )
1335
1336	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_yv_xz(av), 'units', &
1337	'meters' )
1338	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 371 )
1339
1340	!
1341	!-- Define a variable to store the layer indices of the vertical cross
1342	!-- sections
1343	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'ind_y_xz', NF90_DOUBLE, &
1344	id_dim_y_xz(av), id_var_ind_y_xz(av) )
1345	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 148 )
1346
1347	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_ind_y_xz(av), 'units', &
1348	'gridpoints')
1349	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 149 )
1350
1351	!
1352	!-- Define x-axis (for scalar position)
1353	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'x', nx+2, id_dim_x_xz(av) )
1354	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 150 )
1355
1356	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'x', NF90_DOUBLE, &
1357	id_dim_x_xz(av), id_var_x_xz(av) )
1358	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 151 )
1359
1360	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_x_xz(av), 'units', &
1361	'meters' )
1362	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 152 )
1363
1364	!
1365	!-- Define x-axis (for u position)
1366	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'xu', nx+2, id_dim_xu_xz(av) )
1367	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 372 )
1368
1369	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'xu', NF90_DOUBLE, &
1370	id_dim_xu_xz(av), id_var_xu_xz(av) )
1371	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 373 )
1372
1373	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_xu_xz(av), 'units', &
1374	'meters' )
1375	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 374 )
1376
1377	!
1378	!-- Define the two z-axes (zu and zw)
1379	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'zu', nz+2, id_dim_zu_xz(av) )
1380	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 153 )
1381
1382	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'zu', NF90_DOUBLE, &
1383	id_dim_zu_xz(av), id_var_zu_xz(av) )
1384	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 154 )
1385
1386	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_zu_xz(av), 'units', &
1387	'meters' )
1388	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 155 )
1389
1390	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'zw', nz+2, id_dim_zw_xz(av) )
1391	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 156 )
1392
1393	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'zw', NF90_DOUBLE, &
1394	id_dim_zw_xz(av), id_var_zw_xz(av) )
1395	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 157 )
1396
1397	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_zw_xz(av), 'units', &
1398	'meters' )
1399	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 158 )
1400
1401
1402	!
1403	!-- Define the variables
1404	var_list = ';'
1405	i = 1
1406
1407	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1408
1409	IF ( INDEX( do2d(av,i), 'xz' ) /= 0 ) THEN
1410
1411	!
1412	!-- Check for the grid
1413	found = .TRUE.
1414	SELECT CASE ( do2d(av,i) )
1415	!
1416	!-- Most variables are defined on the zu grid
1417	CASE ( 'e_xz', 'p_xz', 'pc_xz', 'pr_xz', 'pt_xz', 'q_xz', &
1418	'ql_xz', 'ql_c_xz', 'ql_v_xz', 'ql_vp_xz', 'qv_xz', &
1419	'rho_xz', 's_xz', 'sa_xz', 'vpt_xz' )
1420
1421	grid_x = 'x'
1422	grid_y = 'y'
1423	grid_z = 'zu'
1424	!
1425	!-- u grid
1426	CASE ( 'u_xz' )
1427
1428	grid_x = 'xu'
1429	grid_y = 'y'
1430	grid_z = 'zu'
1431	!
1432	!-- v grid
1433	CASE ( 'v_xz' )
1434
1435	grid_x = 'x'
1436	grid_y = 'yv'
1437	grid_z = 'zu'
1438	!
1439	!-- w grid
1440	CASE ( 'w_xz' )
1441
1442	grid_x = 'x'
1443	grid_y = 'y'
1444	grid_z = 'zw'
1445
1446	CASE DEFAULT
1447	!
1448	!-- Check for user-defined quantities
1449	CALL user_define_netcdf_grid( do2d(av,i), found, &
1450	grid_x, grid_y, grid_z )
1451
1452	END SELECT
1453
1454	!
1455	!-- Select the respective dimension ids
1456	IF ( grid_x == 'x' ) THEN
1457	id_x = id_dim_x_xz(av)
1458	ELSEIF ( grid_x == 'xu' ) THEN
1459	id_x = id_dim_xu_xz(av)
1460	ENDIF
1461
1462	IF ( grid_y == 'y' ) THEN
1463	id_y = id_dim_y_xz(av)
1464	ELSEIF ( grid_y == 'yv' ) THEN
1465	id_y = id_dim_yv_xz(av)
1466	ENDIF
1467
1468	IF ( grid_z == 'zu' ) THEN
1469	id_z = id_dim_zu_xz(av)
1470	ELSEIF ( grid_z == 'zw' ) THEN
1471	id_z = id_dim_zw_xz(av)
1472	ENDIF
1473
1474	!
1475	!-- Define the grid
1476	nc_stat = NF90_DEF_VAR( id_set_xz(av), do2d(av,i), &
1477	nc_precision(2), &
1478	(/ id_x, id_y, id_z, id_dim_time_xz(av) /), &
1479	id_var_do2d(av,i) )
1480
1481	IF ( .NOT. found ) THEN
1482	PRINT*, '+++ define_netcdf_header: no grid defined for', &
1483	' variable ', do2d(av,i)
1484	ENDIF
1485
1486	var_list = TRIM( var_list ) // TRIM( do2d(av,i) ) // ';'
1487
1488	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 159 )
1489	!
1490	!-- Store the 'real' name of the variable (with *, for example)
1491	!-- in the long_name attribute. This is evaluated by Ferret,
1492	!-- for example.
1493	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_do2d(av,i), &
1494	'long_name', do2d(av,i) )
1495	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 160 )
1496	!
1497	!-- Define the variable's unit
1498	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_do2d(av,i), &
1499	'units', TRIM( do2d_unit(av,i) ) )
1500	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 355 )
1501	ENDIF
1502
1503	i = i + 1
1504
1505	ENDDO
1506
1507	!
1508	!-- No arrays to output. Close the netcdf file and return.
1509	IF ( i == 1 ) RETURN
1510
1511	!
1512	!-- Write the list of variables as global attribute (this is used by
1513	!-- restart runs and by combine_plot_fields)
1514	nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'VAR_LIST', &
1515	var_list )
1516	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 161 )
1517
1518	!
1519	!-- Leave NetCDF define mode
1520	nc_stat = NF90_ENDDEF( id_set_xz(av) )
1521	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 162 )
1522
1523	!
1524	!-- Write axis data: y_xz, x, zu, zw
1525	ALLOCATE( netcdf_data(1:ns) )
1526
1527	!
1528	!-- Write y_xz data
1529	DO i = 1, ns
1530	IF( section(i,2) == -1 ) THEN
1531	netcdf_data(i) = -1.0 ! section averaged along y
1532	ELSE
1533	netcdf_data(i) = section(i,2) * dy
1534	ENDIF
1535	ENDDO
1536	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_y_xz(av), netcdf_data, &
1537	start = (/ 1 /), count = (/ ns /) )
1538	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 163 )
1539
1540	!
1541	!-- Write yv_xz data
1542	DO i = 1, ns
1543	IF( section(i,2) == -1 ) THEN
1544	netcdf_data(i) = -1.0 ! section averaged along y
1545	ELSE
1546	netcdf_data(i) = ( section(i,2) - 0.5 ) * dy
1547	ENDIF
1548	ENDDO
1549	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_yv_xz(av), &
1550	netcdf_data, start = (/ 1 /), &
1551	count = (/ ns /) )
1552	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 375 )
1553
1554	!
1555	!-- Write gridpoint number data
1556	netcdf_data(1:ns) = section(1:ns,2)
1557	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_ind_y_xz(av), &
1558	netcdf_data, start = (/ 1 /), &
1559	count = (/ ns /) )
1560	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 164 )
1561
1562	DEALLOCATE( netcdf_data )
1563
1564	!
1565	!-- Write data for x and xu axis (shifted by -dx/2)
1566	ALLOCATE( netcdf_data(0:nx+1) )
1567
1568	DO i = 0, nx+1
1569	netcdf_data(i) = i * dx
1570	ENDDO
1571
1572	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_x_xz(av), netcdf_data, &
1573	start = (/ 1 /), count = (/ nx+2 /) )
1574	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 165 )
1575
1576	DO i = 0, nx+1
1577	netcdf_data(i) = ( i - 0.5 ) * dx
1578	ENDDO
1579
1580	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_xu_xz(av), &
1581	netcdf_data, start = (/ 1 /), &
1582	count = (/ nx+2 /) )
1583	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 376 )
1584
1585	DEALLOCATE( netcdf_data )
1586
1587	!
1588	!-- Write zu and zw data (vertical axes)
1589	ALLOCATE( netcdf_data(0:nz+1) )
1590
1591	netcdf_data(0:nz+1) = zu(nzb:nzt+1)
1592	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_zu_xz(av), &
1593	netcdf_data, start = (/ 1 /), &
1594	count = (/ nz+2 /) )
1595	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 166 )
1596
1597	netcdf_data(0:nz+1) = zw(nzb:nzt+1)
1598	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_zw_xz(av), &
1599	netcdf_data, start = (/ 1 /), &
1600	count = (/ nz+2 /) )
1601	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 167 )
1602
1603	DEALLOCATE( netcdf_data )
1604
1605
1606	CASE ( 'xz_ext' )
1607
1608	!
1609	!-- Get the list of variables and compare with the actual run.
1610	!-- First var_list_old has to be reset, since GET_ATT does not assign
1611	!-- trailing blanks.
1612	var_list_old = ' '
1613	nc_stat = NF90_GET_ATT( id_set_xz(av), NF90_GLOBAL, 'VAR_LIST', &
1614	var_list_old )
1615	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 168 )
1616
1617	var_list = ';'
1618	i = 1
1619	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1620	IF ( INDEX( do2d(av,i), 'xz' ) /= 0 ) THEN
1621	netcdf_var_name = do2d(av,i)
1622	CALL clean_netcdf_varname( netcdf_var_name )
1623	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
1624	ENDIF
1625	i = i + 1
1626	ENDDO
1627
1628	IF ( av == 0 ) THEN
1629	var = '(xz)'
1630	ELSE
1631	var = '(xz_av)'
1632	ENDIF
1633
1634	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
1635	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
1636	TRIM( var ) // ' from previuos run found,'
1637	PRINT*, ' but this file cannot be extended due to' // &
1638	' variable mismatch.'
1639	PRINT*, ' New file is created instead.'
1640	extend = .FALSE.
1641	RETURN
1642	ENDIF
1643
1644	!
1645	!-- Calculate the number of current sections
1646	ns = 1
1647	DO WHILE ( section(ns,2) /= -9999 .AND. ns <= 100 )
1648	ns = ns + 1
1649	ENDDO
1650	ns = ns - 1
1651
1652	!
1653	!-- Get and compare the number of vertical cross sections
1654	nc_stat = NF90_INQ_VARID( id_set_xz(av), 'y_xz', id_var_y_xz(av) )
1655	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 169 )
1656
1657	nc_stat = NF90_INQUIRE_VARIABLE( id_set_xz(av), id_var_y_xz(av), &
1658	dimids = id_dim_y_xz_old )
1659	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 170 )
1660	id_dim_y_xz(av) = id_dim_y_xz_old(1)
1661
1662	nc_stat = NF90_INQUIRE_DIMENSION( id_set_xz(av), id_dim_y_xz(av), &
1663	len = ns_old )
1664	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 171 )
1665
1666	IF ( ns /= ns_old ) THEN
1667	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
1668	TRIM( var ) // ' from previuos run found,'
1669	PRINT*, ' but this file cannot be extended due to' // &
1670	' mismatch in number of'
1671	PRINT*, ' cross sections.'
1672	PRINT*, ' New file is created instead.'
1673	extend = .FALSE.
1674	RETURN
1675	ENDIF
1676
1677	!
1678	!-- Get and compare the heights of the cross sections
1679	ALLOCATE( netcdf_data(1:ns_old) )
1680
1681	nc_stat = NF90_GET_VAR( id_set_xz(av), id_var_y_xz(av), netcdf_data )
1682	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 172 )
1683
1684	DO i = 1, ns
1685	IF ( section(i,2) /= -1 ) THEN
1686	IF ( ( section(i,2) * dy ) /= netcdf_data(i) ) THEN
1687	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
1688	TRIM( var ) // ' from previuos run found,'
1689	PRINT*, ' but this file cannot be extended' // &
1690	' due to mismatch in cross'
1691	PRINT*, ' section indices.'
1692	PRINT*, ' New file is created instead.'
1693	extend = .FALSE.
1694	RETURN
1695	ENDIF
1696	ELSE
1697	IF ( -1.0 /= netcdf_data(i) ) THEN
1698	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
1699	TRIM( var ) // ' from previuos run found,'
1700	PRINT*, ' but this file cannot be extended' // &
1701	' due to mismatch in cross'
1702	PRINT*, ' section indices.'
1703	PRINT*, ' New file is created instead.'
1704	extend = .FALSE.
1705	RETURN
1706	ENDIF
1707	ENDIF
1708	ENDDO
1709
1710	DEALLOCATE( netcdf_data )
1711
1712	!
1713	!-- Get the id of the time coordinate (unlimited coordinate) and its
1714	!-- last index on the file. The next time level is do2d..count+1.
1715	!-- The current time must be larger than the last output time
1716	!-- on the file.
1717	nc_stat = NF90_INQ_VARID( id_set_xz(av), 'time', id_var_time_xz(av) )
1718	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 173 )
1719
1720	nc_stat = NF90_INQUIRE_VARIABLE( id_set_xz(av), id_var_time_xz(av), &
1721	dimids = id_dim_time_old )
1722	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 174 )
1723	id_dim_time_xz(av) = id_dim_time_old(1)
1724
1725	nc_stat = NF90_INQUIRE_DIMENSION( id_set_xz(av), id_dim_time_xz(av), &
1726	len = do2d_xz_time_count(av) )
1727	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 175 )
1728
1729	nc_stat = NF90_GET_VAR( id_set_xz(av), id_var_time_xz(av), &
1730	last_time_coordinate, &
1731	start = (/ do2d_xz_time_count(av) /), &
1732	count = (/ 1 /) )
1733	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 176 )
1734
1735	IF ( last_time_coordinate(1) >= simulated_time ) THEN
1736	PRINT*, '+++ WARNING: NetCDF file for cross sections ' // &
1737	TRIM( var ) // ' from previuos run found,'
1738	PRINT*, ' but this file cannot be extended becaus' // &
1739	'e the current output time'
1740	PRINT*, ' is less or equal than the last output t' // &
1741	'ime on this file.'
1742	PRINT*, ' New file is created instead.'
1743	do2d_xz_time_count(av) = 0
1744	extend = .FALSE.
1745	RETURN
1746	ENDIF
1747
1748	!
1749	!-- Dataset seems to be extendable.
1750	!-- Now get the variable ids.
1751	i = 1
1752	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1753	IF ( INDEX( do2d(av,i), 'xz' ) /= 0 ) THEN
1754	netcdf_var_name = do2d(av,i)
1755	CALL clean_netcdf_varname( netcdf_var_name )
1756	nc_stat = NF90_INQ_VARID( id_set_xz(av), netcdf_var_name, &
1757	id_var_do2d(av,i) )
1758	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 177 )
1759	ENDIF
1760	i = i + 1
1761	ENDDO
1762
1763	!
1764	!-- Change the titel attribute on file
1765	nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'title', &
1766	TRIM( run_description_header ) )
1767	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 178 )
1768	PRINT, '** NetCDF file for cross-sections ' // TRIM( var ) // &
1769	' from previous run found.'
1770	PRINT*, ' This file will be extended.'
1771
1772
1773	CASE ( 'yz_new' )
1774
1775	!
1776	!-- Define some global attributes of the dataset
1777	nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'Conventions', &
1778	'COARDS' )
1779	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 179 )
1780
1781	IF ( av == 0 ) THEN
1782	time_average_text = ' '
1783	ELSE
1784	WRITE (time_average_text, '('', '',F7.1,'' s average'')') &
1785	averaging_interval
1786	ENDIF
1787	nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'title', &
1788	TRIM( run_description_header ) // &
1789	TRIM( time_average_text ) )
1790	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 180 )
1791	IF ( av == 1 ) THEN
1792	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval
1793	nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'time_avg', &
1794	TRIM( time_average_text ) )
1795	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 180 )
1796	ENDIF
1797
1798	!
1799	!-- Define time coordinate for yz sections (unlimited dimension)
1800	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'time', NF90_UNLIMITED, &
1801	id_dim_time_yz(av) )
1802	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 181 )
1803
1804	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'time', NF90_DOUBLE, &
1805	id_dim_time_yz(av), id_var_time_yz(av) )
1806	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 182 )
1807
1808	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_time_yz(av), 'units', &
1809	'seconds')
1810	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 183 )
1811
1812	!
1813	!-- Define the spatial dimensions and coordinates for yz-sections.
1814	!-- First, determine the number of vertical sections to be written.
1815	IF ( section(1,3) == -9999 ) THEN
1816	RETURN
1817	ELSE
1818	ns = 1
1819	DO WHILE ( section(ns,3) /= -9999 .AND. ns <= 100 )
1820	ns = ns + 1
1821	ENDDO
1822	ns = ns - 1
1823	ENDIF
1824
1825	!
1826	!-- Define x axis (for scalar position)
1827	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'x_yz', ns, id_dim_x_yz(av) )
1828	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 184 )
1829
1830	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'x_yz', NF90_DOUBLE, &
1831	id_dim_x_yz(av), id_var_x_yz(av) )
1832	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 185 )
1833
1834	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_x_yz(av), 'units', &
1835	'meters' )
1836	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 186 )
1837
1838	!
1839	!-- Define x axis (for u position)
1840	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'xu_yz', ns, id_dim_xu_yz(av) )
1841	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 377 )
1842
1843	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'xu_yz', NF90_DOUBLE, &
1844	id_dim_xu_yz(av), id_var_xu_yz(av) )
1845	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 378 )
1846
1847	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_xu_yz(av), 'units', &
1848	'meters' )
1849	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 379 )
1850
1851	!
1852	!-- Define a variable to store the layer indices of the vertical cross
1853	!-- sections
1854	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'ind_x_yz', NF90_DOUBLE, &
1855	id_dim_x_yz(av), id_var_ind_x_yz(av) )
1856	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 187 )
1857
1858	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_ind_x_yz(av), 'units', &
1859	'gridpoints')
1860	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 188 )
1861
1862	!
1863	!-- Define y-axis (for scalar position)
1864	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'y', ny+2, id_dim_y_yz(av) )
1865	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 189 )
1866
1867	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'y', NF90_DOUBLE, &
1868	id_dim_y_yz(av), id_var_y_yz(av) )
1869	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 190 )
1870
1871	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_y_yz(av), 'units', &
1872	'meters' )
1873	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 191 )
1874
1875	!
1876	!-- Define y-axis (for v position)
1877	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'yv', ny+2, id_dim_yv_yz(av) )
1878	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 380 )
1879
1880	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'yv', NF90_DOUBLE, &
1881	id_dim_yv_yz(av), id_var_yv_yz(av) )
1882	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 381 )
1883
1884	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_yv_yz(av), 'units', &
1885	'meters' )
1886	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 382 )
1887
1888	!
1889	!-- Define the two z-axes (zu and zw)
1890	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'zu', nz+2, id_dim_zu_yz(av) )
1891	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 192 )
1892
1893	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'zu', NF90_DOUBLE, &
1894	id_dim_zu_yz(av), id_var_zu_yz(av) )
1895	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 193 )
1896
1897	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_zu_yz(av), 'units', &
1898	'meters' )
1899	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 194 )
1900
1901	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'zw', nz+2, id_dim_zw_yz(av) )
1902	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 195 )
1903
1904	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'zw', NF90_DOUBLE, &
1905	id_dim_zw_yz(av), id_var_zw_yz(av) )
1906	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 196 )
1907
1908	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_zw_yz(av), 'units', &
1909	'meters' )
1910	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 197 )
1911
1912
1913	!
1914	!-- Define the variables
1915	var_list = ';'
1916	i = 1
1917
1918	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1919
1920	IF ( INDEX( do2d(av,i), 'yz' ) /= 0 ) THEN
1921
1922	!
1923	!-- Check for the grid
1924	found = .TRUE.
1925	SELECT CASE ( do2d(av,i) )
1926	!
1927	!-- Most variables are defined on the zu grid
1928	CASE ( 'e_yz', 'p_yz', 'pc_yz', 'pr_yz', 'pt_yz', 'q_yz', &
1929	'ql_yz', 'ql_c_yz', 'ql_v_yz', 'ql_vp_yz', 'qv_yz', &
1930	'rho_yz', 's_yz', 'sa_yz', 'vpt_yz' )
1931
1932	grid_x = 'x'
1933	grid_y = 'y'
1934	grid_z = 'zu'
1935	!
1936	!-- u grid
1937	CASE ( 'u_yz' )
1938
1939	grid_x = 'xu'
1940	grid_y = 'y'
1941	grid_z = 'zu'
1942	!
1943	!-- v grid
1944	CASE ( 'v_yz' )
1945
1946	grid_x = 'x'
1947	grid_y = 'yv'
1948	grid_z = 'zu'
1949	!
1950	!-- w grid
1951	CASE ( 'w_yz' )
1952
1953	grid_x = 'x'
1954	grid_y = 'y'
1955	grid_z = 'zw'
1956
1957	CASE DEFAULT
1958	!
1959	!-- Check for user-defined quantities
1960	CALL user_define_netcdf_grid( do2d(av,i), found, &
1961	grid_x, grid_y, grid_z )
1962
1963	END SELECT
1964
1965	!
1966	!-- Select the respective dimension ids
1967	IF ( grid_x == 'x' ) THEN
1968	id_x = id_dim_x_yz(av)
1969	ELSEIF ( grid_x == 'xu' ) THEN
1970	id_x = id_dim_xu_yz(av)
1971	ENDIF
1972
1973	IF ( grid_y == 'y' ) THEN
1974	id_y = id_dim_y_yz(av)
1975	ELSEIF ( grid_y == 'yv' ) THEN
1976	id_y = id_dim_yv_yz(av)
1977	ENDIF
1978
1979	IF ( grid_z == 'zu' ) THEN
1980	id_z = id_dim_zu_yz(av)
1981	ELSEIF ( grid_z == 'zw' ) THEN
1982	id_z = id_dim_zw_yz(av)
1983	ENDIF
1984
1985	!
1986	!-- Define the grid
1987	nc_stat = NF90_DEF_VAR( id_set_yz(av), do2d(av,i), &
1988	nc_precision(3), &
1989	(/ id_x, id_y, id_z, id_dim_time_yz(av) /), &
1990	id_var_do2d(av,i) )
1991
1992	IF ( .NOT. found ) THEN
1993	PRINT*, '+++ define_netcdf_header: no grid defined for', &
1994	' variable ', do2d(av,i)
1995	ENDIF
1996
1997	var_list = TRIM( var_list ) // TRIM( do2d(av,i) ) // ';'
1998
1999	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 198 )
2000	!
2001	!-- Store the 'real' name of the variable (with *, for example)
2002	!-- in the long_name attribute. This is evaluated by Ferret,
2003	!-- for example.
2004	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_do2d(av,i), &
2005	'long_name', do2d(av,i) )
2006	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 199 )
2007	!
2008	!-- Define the variable's unit
2009	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_do2d(av,i), &
2010	'units', TRIM( do2d_unit(av,i) ) )
2011	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 356 )
2012	ENDIF
2013
2014	i = i + 1
2015
2016	ENDDO
2017
2018	!
2019	!-- No arrays to output. Close the netcdf file and return.
2020	IF ( i == 1 ) RETURN
2021
2022	!
2023	!-- Write the list of variables as global attribute (this is used by
2024	!-- restart runs and by combine_plot_fields)
2025	nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'VAR_LIST', &
2026	var_list )
2027	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 200 )
2028
2029	!
2030	!-- Leave NetCDF define mode
2031	nc_stat = NF90_ENDDEF( id_set_yz(av) )
2032	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 201 )
2033
2034	!
2035	!-- Write axis data: x_yz, y, zu, zw
2036	ALLOCATE( netcdf_data(1:ns) )
2037
2038	!
2039	!-- Write x_yz data
2040	DO i = 1, ns
2041	IF( section(i,3) == -1 ) THEN
2042	netcdf_data(i) = -1.0 ! section averaged along x
2043	ELSE
2044	netcdf_data(i) = section(i,3) * dx
2045	ENDIF
2046	ENDDO
2047	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_x_yz(av), netcdf_data, &
2048	start = (/ 1 /), count = (/ ns /) )
2049	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 202 )
2050
2051	!
2052	!-- Write x_yz data (xu grid)
2053	DO i = 1, ns
2054	IF( section(i,3) == -1 ) THEN
2055	netcdf_data(i) = -1.0 ! section averaged along x
2056	ELSE
2057	netcdf_data(i) = (section(i,3)-0.5) * dx
2058	ENDIF
2059	ENDDO
2060	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_xu_yz(av), netcdf_data, &
2061	start = (/ 1 /), count = (/ ns /) )
2062	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 383 )
2063
2064	!
2065	!-- Write gridpoint number data
2066	netcdf_data(1:ns) = section(1:ns,3)
2067	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_ind_x_yz(av), &
2068	netcdf_data, start = (/ 1 /), &
2069	count = (/ ns /) )
2070	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 203 )
2071
2072	DEALLOCATE( netcdf_data )
2073
2074	!
2075	!-- Write data for y and yv axis (shifted by -dy/2)
2076	ALLOCATE( netcdf_data(0:ny+1) )
2077
2078	DO j = 0, ny+1
2079	netcdf_data(j) = j * dy
2080	ENDDO
2081
2082	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_y_yz(av), netcdf_data, &
2083	start = (/ 1 /), count = (/ ny+2 /) )
2084	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 204 )
2085
2086	DO j = 0, ny+1
2087	netcdf_data(j) = ( j - 0.5 ) * dy
2088	ENDDO
2089
2090	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_yv_yz(av), &
2091	netcdf_data, start = (/ 1 /), &
2092	count = (/ ny+2 /) )
2093	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 384 )
2094
2095	DEALLOCATE( netcdf_data )
2096
2097	!
2098	!-- Write zu and zw data (vertical axes)
2099	ALLOCATE( netcdf_data(0:nz+1) )
2100
2101	netcdf_data(0:nz+1) = zu(nzb:nzt+1)
2102	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_zu_yz(av), &
2103	netcdf_data, start = (/ 1 /), &
2104	count = (/ nz+2 /) )
2105	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 205 )
2106
2107	netcdf_data(0:nz+1) = zw(nzb:nzt+1)
2108	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_zw_yz(av), &
2109	netcdf_data, start = (/ 1 /), &
2110	count = (/ nz+2 /) )
2111	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 206 )
2112
2113	DEALLOCATE( netcdf_data )
2114
2115
2116	CASE ( 'yz_ext' )
2117
2118	!
2119	!-- Get the list of variables and compare with the actual run.
2120	!-- First var_list_old has to be reset, since GET_ATT does not assign
2121	!-- trailing blanks.
2122	var_list_old = ' '
2123	nc_stat = NF90_GET_ATT( id_set_yz(av), NF90_GLOBAL, 'VAR_LIST', &
2124	var_list_old )
2125	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 207 )
2126
2127	var_list = ';'
2128	i = 1
2129	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
2130	IF ( INDEX( do2d(av,i), 'yz' ) /= 0 ) THEN
2131	netcdf_var_name = do2d(av,i)
2132	CALL clean_netcdf_varname( netcdf_var_name )
2133	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
2134	ENDIF
2135	i = i + 1
2136	ENDDO
2137
2138	IF ( av == 0 ) THEN
2139	var = '(yz)'
2140	ELSE
2141	var = '(yz_av)'
2142	ENDIF
2143
2144	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
2145	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
2146	TRIM( var ) // ' from previuos run found,'
2147	PRINT*, ' but this file cannot be extended due to' // &
2148	' variable mismatch.'
2149	PRINT*, ' New file is created instead.'
2150	extend = .FALSE.
2151	RETURN
2152	ENDIF
2153
2154	!
2155	!-- Calculate the number of current sections
2156	ns = 1
2157	DO WHILE ( section(ns,3) /= -9999 .AND. ns <= 100 )
2158	ns = ns + 1
2159	ENDDO
2160	ns = ns - 1
2161
2162	!
2163	!-- Get and compare the number of vertical cross sections
2164	nc_stat = NF90_INQ_VARID( id_set_yz(av), 'x_yz', id_var_x_yz(av) )
2165	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 208 )
2166
2167	nc_stat = NF90_INQUIRE_VARIABLE( id_set_yz(av), id_var_x_yz(av), &
2168	dimids = id_dim_x_yz_old )
2169	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 209 )
2170	id_dim_x_yz(av) = id_dim_x_yz_old(1)
2171
2172	nc_stat = NF90_INQUIRE_DIMENSION( id_set_yz(av), id_dim_x_yz(av), &
2173	len = ns_old )
2174	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 210 )
2175
2176	IF ( ns /= ns_old ) THEN
2177	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
2178	TRIM( var ) // ' from previuos run found,'
2179	PRINT*, ' but this file cannot be extended due to' // &
2180	' mismatch in number of'
2181	PRINT*, ' cross sections.'
2182	PRINT*, ' New file is created instead.'
2183	extend = .FALSE.
2184	RETURN
2185	ENDIF
2186
2187	!
2188	!-- Get and compare the heights of the cross sections
2189	ALLOCATE( netcdf_data(1:ns_old) )
2190
2191	nc_stat = NF90_GET_VAR( id_set_yz(av), id_var_x_yz(av), netcdf_data )
2192	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 211 )
2193
2194	DO i = 1, ns
2195	IF ( section(i,3) /= -1 ) THEN
2196	IF ( ( section(i,3) * dx ) /= netcdf_data(i) ) THEN
2197	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
2198	TRIM( var ) // ' from previuos run found,'
2199	PRINT*, ' but this file cannot be extended' // &
2200	' due to mismatch in cross'
2201	PRINT*, ' section indices.'
2202	PRINT*, ' New file is created instead.'
2203	extend = .FALSE.
2204	RETURN
2205	ENDIF
2206	ELSE
2207	IF ( -1.0 /= netcdf_data(i) ) THEN
2208	PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
2209	TRIM( var ) // ' from previuos run found,'
2210	PRINT*, ' but this file cannot be extended' // &
2211	' due to mismatch in cross'
2212	PRINT*, ' section indices.'
2213	PRINT*, ' New file is created instead.'
2214	extend = .FALSE.
2215	RETURN
2216	ENDIF
2217	ENDIF
2218	ENDDO
2219
2220	DEALLOCATE( netcdf_data )
2221
2222	!
2223	!-- Get the id of the time coordinate (unlimited coordinate) and its
2224	!-- last index on the file. The next time level is pl2d..count+1.
2225	!-- The current time must be larger than the last output time
2226	!-- on the file.
2227	nc_stat = NF90_INQ_VARID( id_set_yz(av), 'time', id_var_time_yz(av) )
2228	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 212 )
2229
2230	nc_stat = NF90_INQUIRE_VARIABLE( id_set_yz(av), id_var_time_yz(av), &
2231	dimids = id_dim_time_old )
2232	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 213 )
2233	id_dim_time_yz(av) = id_dim_time_old(1)
2234
2235	nc_stat = NF90_INQUIRE_DIMENSION( id_set_yz(av), id_dim_time_yz(av), &
2236	len = do2d_yz_time_count(av) )
2237	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 214 )
2238
2239	nc_stat = NF90_GET_VAR( id_set_yz(av), id_var_time_yz(av), &
2240	last_time_coordinate, &
2241	start = (/ do2d_yz_time_count(av) /), &
2242	count = (/ 1 /) )
2243	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 215 )
2244
2245	IF ( last_time_coordinate(1) >= simulated_time ) THEN
2246	PRINT*, '+++ WARNING: NetCDF file for cross sections ' // &
2247	TRIM( var ) // ' from previuos run found,'
2248	PRINT*, ' but this file cannot be extended becaus' // &
2249	'e the current output time'
2250	PRINT*, ' is less or equal than the last output t' // &
2251	'ime on this file.'
2252	PRINT*, ' New file is created instead.'
2253	do2d_yz_time_count(av) = 0
2254	extend = .FALSE.
2255	RETURN
2256	ENDIF
2257
2258	!
2259	!-- Dataset seems to be extendable.
2260	!-- Now get the variable ids.
2261	i = 1
2262	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
2263	IF ( INDEX( do2d(av,i), 'yz' ) /= 0 ) THEN
2264	netcdf_var_name = do2d(av,i)
2265	CALL clean_netcdf_varname( netcdf_var_name )
2266	nc_stat = NF90_INQ_VARID( id_set_yz(av), netcdf_var_name, &
2267	id_var_do2d(av,i) )
2268	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 216 )
2269	ENDIF
2270	i = i + 1
2271	ENDDO
2272
2273	!
2274	!-- Change the titel attribute on file
2275	nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'title', &
2276	TRIM( run_description_header ) )
2277	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 217 )
2278	PRINT, '** NetCDF file for cross-sections ' // TRIM( var ) // &
2279	' from previous run found.'
2280	PRINT*, ' This file will be extended.'
2281
2282
2283	CASE ( 'pr_new' )
2284
2285	!
2286	!-- Define some global attributes of the dataset
2287	IF ( averaging_interval_pr /= 0.0 ) THEN
2288	WRITE (time_average_text,'('', '',F7.1,'' s average'')') &
2289	averaging_interval_pr
2290	nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'title', &
2291	TRIM( run_description_header ) // &
2292	TRIM( time_average_text ) )
2293	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 218 )
2294
2295	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval_pr
2296	nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'time_avg', &
2297	TRIM( time_average_text ) )
2298	ELSE
2299	nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'title', &
2300	TRIM( run_description_header ) )
2301	ENDIF
2302	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 219 )
2303
2304	!
2305	!-- Define time coordinate for profiles (unlimited dimension)
2306	nc_stat = NF90_DEF_DIM( id_set_pr, 'time', NF90_UNLIMITED, &
2307	id_dim_time_pr )
2308	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 220 )
2309
2310	nc_stat = NF90_DEF_VAR( id_set_pr, 'time', NF90_DOUBLE, &
2311	id_dim_time_pr, id_var_time_pr )
2312	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 221 )
2313
2314	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_time_pr, 'units', 'seconds')
2315	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 222 )
2316
2317	!
2318	!-- Define the variables
2319	var_list = ';'
2320	DO i = 1, dopr_n
2321	!
2322	!-- First, remove those characters not allowed by NetCDF
2323	netcdf_var_name = data_output_pr(i)
2324	CALL clean_netcdf_varname( netcdf_var_name )
2325
2326	IF ( statistic_regions == 0 ) THEN
2327
2328	!
2329	!-- Define the z-axes (each variable gets its own z-axis)
2330	nc_stat = NF90_DEF_DIM( id_set_pr, 'z'//TRIM(netcdf_var_name), &
2331	nzt+2-nzb, id_dim_z_pr(i,0) )
2332	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 223 )
2333
2334	nc_stat = NF90_DEF_VAR( id_set_pr, 'z'//TRIM(netcdf_var_name), &
2335	NF90_DOUBLE, id_dim_z_pr(i,0), &
2336	id_var_z_pr(i,0) )
2337	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 224 )
2338
2339	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_z_pr(i,0), 'units', &
2340	'meters' )
2341	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 225 )
2342
2343	!
2344	!-- Define the variable
2345	nc_stat = NF90_DEF_VAR( id_set_pr, netcdf_var_name, &
2346	nc_precision(5), (/ id_dim_z_pr(i,0), &
2347	id_dim_time_pr /), id_var_dopr(i,0) )
2348	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 226 )
2349
2350	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,0), &
2351	'long_name', TRIM( data_output_pr(i) ) )
2352	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 227 )
2353
2354	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,0), &
2355	'units', TRIM( dopr_unit(i) ) )
2356	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 228 )
2357
2358	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
2359
2360	ELSE
2361	!
2362	!-- If statistic regions are defined, add suffix _SR+#SR to the
2363	!-- names
2364	DO j = 0, statistic_regions
2365	WRITE ( suffix, '(''_'',I1)' ) j
2366
2367	!
2368	!-- Define the z-axes (each variable gets it own z-axis)
2369	nc_stat = NF90_DEF_DIM( id_set_pr, &
2370	'z'//TRIM(netcdf_var_name)//suffix, &
2371	nzt+2-nzb, id_dim_z_pr(i,j) )
2372	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 229 )
2373
2374	nc_stat = NF90_DEF_VAR( id_set_pr, &
2375	'z'//TRIM(netcdf_var_name)//suffix, &
2376	nc_precision(5), id_dim_z_pr(i,j), &
2377	id_var_z_pr(i,j) )
2378	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 230 )
2379
2380	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_z_pr(i,j), &
2381	'units', 'meters' )
2382	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 231 )
2383
2384	!
2385	!-- Define the variable
2386	nc_stat = NF90_DEF_VAR( id_set_pr, &
2387	TRIM( netcdf_var_name ) // suffix, &
2388	nc_precision(5), &
2389	(/ id_dim_z_pr(i,j), &
2390	id_dim_time_pr /), id_var_dopr(i,j) )
2391	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 232 )
2392
2393	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,j), &
2394	'long_name', &
2395	TRIM( data_output_pr(i) ) // ' SR ' &
2396	// suffix(2:2) )
2397	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 233 )
2398
2399	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,j), &
2400	'units', TRIM( dopr_unit(i) ) )
2401	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 234 )
2402
2403	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
2404	suffix // ';'
2405
2406	ENDDO
2407
2408	ENDIF
2409
2410	ENDDO
2411
2412	!
2413	!-- Write the list of variables as global attribute (this is used by
2414	!-- restart runs)
2415	nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'VAR_LIST', var_list )
2416	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 235 )
2417
2418	!
2419	!-- Define normalization variables (as time series)
2420	DO i = 1, dopr_norm_num
2421
2422	nc_stat = NF90_DEF_VAR( id_set_pr, 'NORM_' // &
2423	TRIM( dopr_norm_names(i) ), &
2424	nc_precision(5), (/ id_dim_time_pr /), &
2425	id_var_norm_dopr(i) )
2426	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 236 )
2427
2428	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_norm_dopr(i), &
2429	'long_name', &
2430	TRIM( dopr_norm_longnames(i) ) )
2431	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 237 )
2432
2433	ENDDO
2434
2435	!
2436	!-- Leave NetCDF define mode
2437	nc_stat = NF90_ENDDEF( id_set_pr )
2438	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 238 )
2439
2440	!
2441	!-- Write z-axes data
2442	DO i = 1, dopr_n
2443	DO j = 0, statistic_regions
2444
2445	nc_stat = NF90_PUT_VAR( id_set_pr, id_var_z_pr(i,j), &
2446	hom(nzb:nzt+1,2,dopr_index(i),0), &
2447	start = (/ 1 /), &
2448	count = (/ nzt-nzb+2 /) )
2449	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 239 )
2450
2451	ENDDO
2452	ENDDO
2453
2454
2455	CASE ( 'pr_ext' )
2456
2457	!
2458	!-- Get the list of variables and compare with the actual run.
2459	!-- First var_list_old has to be reset, since GET_ATT does not assign
2460	!-- trailing blanks.
2461	var_list_old = ' '
2462	nc_stat = NF90_GET_ATT( id_set_pr, NF90_GLOBAL, 'VAR_LIST', &
2463	var_list_old )
2464	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 240 )
2465
2466	var_list = ';'
2467	DO i = 1, dopr_n
2468
2469	netcdf_var_name = data_output_pr(i)
2470	CALL clean_netcdf_varname( netcdf_var_name )
2471
2472	IF ( statistic_regions == 0 ) THEN
2473	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
2474	ELSE
2475	DO j = 0, statistic_regions
2476	WRITE ( suffix, '(''_'',I1)' ) j
2477	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
2478	suffix // ';'
2479	ENDDO
2480	ENDIF
2481
2482	ENDDO
2483
2484	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
2485	PRINT*, '+++ WARNING: NetCDF file for vertical profiles from' // &
2486	' previuos run found,'
2487	PRINT*, ' but this file cannot be extended due to' // &
2488	' variable mismatch.'
2489	PRINT*, ' New file is created instead.'
2490	extend = .FALSE.
2491	RETURN
2492	ENDIF
2493
2494	!
2495	!-- Get the id of the time coordinate (unlimited coordinate) and its
2496	!-- last index on the file. The next time level is dopr..count+1.
2497	!-- The current time must be larger than the last output time
2498	!-- on the file.
2499	nc_stat = NF90_INQ_VARID( id_set_pr, 'time', id_var_time_pr )
2500	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 241 )
2501
2502	nc_stat = NF90_INQUIRE_VARIABLE( id_set_pr, id_var_time_pr, &
2503	dimids = id_dim_time_old )
2504	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 242 )
2505	id_dim_time_pr = id_dim_time_old(1)
2506
2507	nc_stat = NF90_INQUIRE_DIMENSION( id_set_pr, id_dim_time_pr, &
2508	len = dopr_time_count )
2509	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 243 )
2510
2511	nc_stat = NF90_GET_VAR( id_set_pr, id_var_time_pr, &
2512	last_time_coordinate, &
2513	start = (/ dopr_time_count /), &
2514	count = (/ 1 /) )
2515	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 244 )
2516
2517	IF ( last_time_coordinate(1) >= simulated_time ) THEN
2518	PRINT*, '+++ WARNING: NetCDF file for vertical profiles from' // &
2519	' previuos run found,'
2520	PRINT*, ' but this file cannot be extended becaus' // &
2521	'e the current output time'
2522	PRINT*, ' is less or equal than the last output t' // &
2523	'ime on this file.'
2524	PRINT*, ' New file is created instead.'
2525	dopr_time_count = 0
2526	extend = .FALSE.
2527	RETURN
2528	ENDIF
2529
2530	!
2531	!-- Dataset seems to be extendable.
2532	!-- Now get the variable ids.
2533	i = 1
2534	DO i = 1, dopr_n
2535
2536	netcdf_var_name_base = data_output_pr(i)
2537	CALL clean_netcdf_varname( netcdf_var_name_base )
2538
2539	IF ( statistic_regions == 0 ) THEN
2540	nc_stat = NF90_INQ_VARID( id_set_pr, netcdf_var_name_base, &
2541	id_var_dopr(i,0) )
2542	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 245 )
2543	ELSE
2544	DO j = 0, statistic_regions
2545	WRITE ( suffix, '(''_'',I1)' ) j
2546	netcdf_var_name = TRIM( netcdf_var_name_base ) // suffix
2547	nc_stat = NF90_INQ_VARID( id_set_pr, netcdf_var_name, &
2548	id_var_dopr(i,j) )
2549	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 246 )
2550	ENDDO
2551	ENDIF
2552
2553	ENDDO
2554
2555	!
2556	!-- Get ids of the normalization variables
2557	DO i = 1, dopr_norm_num
2558	nc_stat = NF90_INQ_VARID( id_set_pr, &
2559	'NORM_' // TRIM( dopr_norm_names(i) ), &
2560	id_var_norm_dopr(i) )
2561	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 247 )
2562	ENDDO
2563
2564	!
2565	!-- Change the title attribute on file
2566	nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'title', &
2567	TRIM( run_description_header ) )
2568	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 248 )
2569	PRINT, '** NetCDF file for vertical profiles from previous run' // &
2570	' found.'
2571	PRINT*, ' This file will be extended.'
2572
2573
2574	CASE ( 'ts_new' )
2575
2576	!
2577	!-- Define some global attributes of the dataset
2578	nc_stat = NF90_PUT_ATT( id_set_ts, NF90_GLOBAL, 'title', &
2579	TRIM( run_description_header ) )
2580	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 249 )
2581
2582	!
2583	!-- Define time coordinate for time series (unlimited dimension)
2584	nc_stat = NF90_DEF_DIM( id_set_ts, 'time', NF90_UNLIMITED, &
2585	id_dim_time_ts )
2586	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 250 )
2587
2588	nc_stat = NF90_DEF_VAR( id_set_ts, 'time', NF90_DOUBLE, &
2589	id_dim_time_ts, id_var_time_ts )
2590	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 251 )
2591
2592	nc_stat = NF90_PUT_ATT( id_set_ts, id_var_time_ts, 'units', 'seconds')
2593	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 252 )
2594
2595	!
2596	!-- Define the variables
2597	var_list = ';'
2598	DO i = 1, dots_num
2599	!
2600	!-- First, remove those characters not allowed by NetCDF
2601	netcdf_var_name = dots_label(i)
2602	CALL clean_netcdf_varname( netcdf_var_name )
2603
2604	IF ( statistic_regions == 0 ) THEN
2605
2606	nc_stat = NF90_DEF_VAR( id_set_ts, netcdf_var_name, &
2607	nc_precision(6), (/ id_dim_time_ts /), &
2608	id_var_dots(i,0) )
2609	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 253 )
2610
2611	nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,0), &
2612	'long_name', TRIM( dots_label(i) ) )
2613	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 254 )
2614
2615	nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,0), &
2616	'units', TRIM( dots_unit(i) ) )
2617	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 255 )
2618
2619	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
2620
2621	ELSE
2622	!
2623	!-- If statistic regions are defined, add suffix _SR+#SR to the
2624	!-- names
2625	DO j = 0, statistic_regions
2626	WRITE ( suffix, '(''_'',I1)' ) j
2627
2628	nc_stat = NF90_DEF_VAR( id_set_ts, &
2629	TRIM( netcdf_var_name ) // suffix, &
2630	nc_precision(6), &
2631	(/ id_dim_time_ts /), &
2632	id_var_dots(i,j) )
2633	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 256 )
2634
2635	nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,j), &
2636	'long_name', &
2637	TRIM( dots_label(i) ) // ' SR ' // &
2638	suffix(2:2) )
2639	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 257 )
2640
2641	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
2642	suffix // ';'
2643
2644	ENDDO
2645
2646	ENDIF
2647
2648	ENDDO
2649
2650	!
2651	!-- Write the list of variables as global attribute (this is used by
2652	!-- restart runs)
2653	nc_stat = NF90_PUT_ATT( id_set_ts, NF90_GLOBAL, 'VAR_LIST', var_list )
2654	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 258 )
2655
2656	!
2657	!-- Leave NetCDF define mode
2658	nc_stat = NF90_ENDDEF( id_set_ts )
2659	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 259 )
2660
2661
2662	CASE ( 'ts_ext' )
2663
2664	!
2665	!-- Get the list of variables and compare with the actual run.
2666	!-- First var_list_old has to be reset, since GET_ATT does not assign
2667	!-- trailing blanks.
2668	var_list_old = ' '
2669	nc_stat = NF90_GET_ATT( id_set_ts, NF90_GLOBAL, 'VAR_LIST', &
2670	var_list_old )
2671	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 260 )
2672
2673	var_list = ';'
2674	i = 1
2675	DO i = 1, dots_num
2676
2677	netcdf_var_name = dots_label(i)
2678	CALL clean_netcdf_varname( netcdf_var_name )
2679
2680	IF ( statistic_regions == 0 ) THEN
2681	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
2682	ELSE
2683	DO j = 0, statistic_regions
2684	WRITE ( suffix, '(''_'',I1)' ) j
2685	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
2686	suffix // ';'
2687	ENDDO
2688	ENDIF
2689
2690	ENDDO
2691
2692	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
2693	PRINT*, '+++ WARNING: NetCDF file for time series from' //&
2694	' previuos run found,'
2695	PRINT*, ' but this file cannot be extended due to' // &
2696	' variable mismatch.'
2697	PRINT*, ' New file is created instead.'
2698	extend = .FALSE.
2699	RETURN
2700	ENDIF
2701
2702	!
2703	!-- Get the id of the time coordinate (unlimited coordinate) and its
2704	!-- last index on the file. The next time level is dots..count+1.
2705	!-- The current time must be larger than the last output time
2706	!-- on the file.
2707	nc_stat = NF90_INQ_VARID( id_set_ts, 'time', id_var_time_ts )
2708	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 261 )
2709
2710	nc_stat = NF90_INQUIRE_VARIABLE( id_set_ts, id_var_time_ts, &
2711	dimids = id_dim_time_old )
2712	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 262 )
2713	id_dim_time_ts = id_dim_time_old(1)
2714
2715	nc_stat = NF90_INQUIRE_DIMENSION( id_set_ts, id_dim_time_ts, &
2716	len = dots_time_count )
2717	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 263 )
2718
2719	nc_stat = NF90_GET_VAR( id_set_ts, id_var_time_ts, &
2720	last_time_coordinate, &
2721	start = (/ dots_time_count /), &
2722	count = (/ 1 /) )
2723	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 264 )
2724
2725	IF ( last_time_coordinate(1) >= simulated_time ) THEN
2726	PRINT*, '+++ WARNING: NetCDF file for time series from' // &
2727	' previuos run found,'
2728	PRINT*, ' but this file cannot be extended becaus' // &
2729	'e the current output time'
2730	PRINT*, ' is less or equal than the last output t' // &
2731	'ime on this file.'
2732	PRINT*, ' New file is created instead.'
2733	dots_time_count = 0
2734	extend = .FALSE.
2735	RETURN
2736	ENDIF
2737
2738	!
2739	!-- Dataset seems to be extendable.
2740	!-- Now get the variable ids
2741	i = 1
2742	DO i = 1, dots_num
2743
2744	netcdf_var_name_base = dots_label(i)
2745	CALL clean_netcdf_varname( netcdf_var_name_base )
2746
2747	IF ( statistic_regions == 0 ) THEN
2748	nc_stat = NF90_INQ_VARID( id_set_ts, netcdf_var_name_base, &
2749	id_var_dots(i,0) )
2750	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 265 )
2751	ELSE
2752	DO j = 0, statistic_regions
2753	WRITE ( suffix, '(''_'',I1)' ) j
2754	netcdf_var_name = TRIM( netcdf_var_name_base ) // suffix
2755	nc_stat = NF90_INQ_VARID( id_set_ts, netcdf_var_name, &
2756	id_var_dots(i,j) )
2757	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 266 )
2758	ENDDO
2759	ENDIF
2760
2761	ENDDO
2762
2763	!
2764	!-- Change the title attribute on file
2765	nc_stat = NF90_PUT_ATT( id_set_ts, NF90_GLOBAL, 'title', &
2766	TRIM( run_description_header ) )
2767	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 267 )
2768	PRINT, '** NetCDF file for time series from previous run found.'
2769	PRINT*, ' This file will be extended.'
2770
2771
2772	CASE ( 'sp_new' )
2773
2774	!
2775	!-- Define some global attributes of the dataset
2776	IF ( averaging_interval_sp /= 0.0 ) THEN
2777	WRITE (time_average_text,'('', '',F7.1,'' s average'')') &
2778	averaging_interval_sp
2779	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', &
2780	TRIM( run_description_header ) // &
2781	TRIM( time_average_text ) )
2782	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 268 )
2783
2784	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval_sp
2785	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'time_avg', &
2786	TRIM( time_average_text ) )
2787	ELSE
2788	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', &
2789	TRIM( run_description_header ) )
2790	ENDIF
2791	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 269 )
2792
2793	!
2794	!-- Define time coordinate for spectra (unlimited dimension)
2795	nc_stat = NF90_DEF_DIM( id_set_sp, 'time', NF90_UNLIMITED, &
2796	id_dim_time_sp )
2797	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 270 )
2798
2799	nc_stat = NF90_DEF_VAR( id_set_sp, 'time', NF90_DOUBLE, &
2800	id_dim_time_sp, id_var_time_sp )
2801	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 271 )
2802
2803	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_time_sp, 'units', 'seconds')
2804	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 272 )
2805
2806	!
2807	!-- Define the spatial dimensions and coordinates for spectra.
2808	!-- First, determine the number of vertical levels for which spectra
2809	!-- are to be output.
2810	ns = 1
2811	DO WHILE ( comp_spectra_level(ns) /= 999999 .AND. ns <= 100 )
2812	ns = ns + 1
2813	ENDDO
2814	ns = ns - 1
2815
2816	!
2817	!-- Define vertical coordinate grid (zu grid)
2818	nc_stat = NF90_DEF_DIM( id_set_sp, 'zu_sp', ns, id_dim_zu_sp )
2819	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 273 )
2820
2821	nc_stat = NF90_DEF_VAR( id_set_sp, 'zu_sp', NF90_DOUBLE, &
2822	id_dim_zu_sp, id_var_zu_sp )
2823	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 274 )
2824
2825	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_zu_sp, 'units', 'meters' )
2826	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 275 )
2827
2828	!
2829	!-- Define vertical coordinate grid (zw grid)
2830	nc_stat = NF90_DEF_DIM( id_set_sp, 'zw_sp', ns, id_dim_zw_sp )
2831	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 276 )
2832
2833	nc_stat = NF90_DEF_VAR( id_set_sp, 'zw_sp', NF90_DOUBLE, &
2834	id_dim_zw_sp, id_var_zw_sp )
2835	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 277 )
2836
2837	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_zw_sp, 'units', 'meters' )
2838	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 278 )
2839
2840	!
2841	!-- Define x-axis
2842	nc_stat = NF90_DEF_DIM( id_set_sp, 'k_x', nx/2, id_dim_x_sp )
2843	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 279 )
2844
2845	nc_stat = NF90_DEF_VAR( id_set_sp, 'k_x', NF90_DOUBLE, id_dim_x_sp, &
2846	id_var_x_sp )
2847	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 280 )
2848
2849	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_x_sp, 'units', 'm-1' )
2850	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 281 )
2851
2852	!
2853	!-- Define y-axis
2854	nc_stat = NF90_DEF_DIM( id_set_sp, 'k_y', ny/2, id_dim_y_sp )
2855	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 282 )
2856
2857	nc_stat = NF90_DEF_VAR( id_set_sp, 'k_y', NF90_DOUBLE, id_dim_y_sp, &
2858	id_var_y_sp )
2859	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 283 )
2860
2861	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_y_sp, 'units', 'm-1' )
2862	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 284 )
2863
2864	!
2865	!-- Define the variables
2866	var_list = ';'
2867	i = 1
2868	DO WHILE ( data_output_sp(i) /= ' ' .AND. i <= 10 )
2869
2870	IF ( INDEX( spectra_direction(i), 'x' ) /= 0 ) THEN
2871
2872	!
2873	!-- Define the variable
2874	netcdf_var_name = TRIM( data_output_sp(i) ) // '_x'
2875	IF ( data_output_sp(i) == 'w' ) THEN
2876	nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, &
2877	nc_precision(7), (/ id_dim_x_sp, &
2878	id_dim_zw_sp, id_dim_time_sp /), &
2879	id_var_dospx(i) )
2880	ELSE
2881	nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, &
2882	nc_precision(7), (/ id_dim_x_sp, &
2883	id_dim_zu_sp, id_dim_time_sp /), &
2884	id_var_dospx(i) )
2885	ENDIF
2886	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 285 )
2887
2888	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospx(i), &
2889	'long_name', netcdf_var_name )
2890	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 286 )
2891
2892	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospx(i), &
2893	'units', 'unknown' )
2894	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 287 )
2895
2896	var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';'
2897
2898	ENDIF
2899
2900	IF ( INDEX( spectra_direction(i), 'y' ) /= 0 ) THEN
2901
2902	!
2903	!-- Define the variable
2904	netcdf_var_name = TRIM( data_output_sp(i) ) // '_y'
2905	IF ( data_output_sp(i) == 'w' ) THEN
2906	nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, &
2907	nc_precision(7), (/ id_dim_y_sp, &
2908	id_dim_zw_sp, id_dim_time_sp /), &
2909	id_var_dospy(i) )
2910	ELSE
2911	nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, &
2912	nc_precision(7), (/ id_dim_y_sp, &
2913	id_dim_zu_sp, id_dim_time_sp /), &
2914	id_var_dospy(i) )
2915	ENDIF
2916	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 288 )
2917
2918	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospy(i), &
2919	'long_name', netcdf_var_name )
2920	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 289 )
2921
2922	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospy(i), &
2923	'units', 'unknown' )
2924	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 290 )
2925
2926	var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';'
2927
2928	ENDIF
2929
2930	i = i + 1
2931
2932	ENDDO
2933
2934	!
2935	!-- Write the list of variables as global attribute (this is used by
2936	!-- restart runs)
2937	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'VAR_LIST', var_list )
2938	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 291 )
2939
2940	!
2941	!-- Leave NetCDF define mode
2942	nc_stat = NF90_ENDDEF( id_set_sp )
2943	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 292 )
2944
2945	!
2946	!-- Write axis data: zu_sp, zw_sp, k_x, k_y
2947	ALLOCATE( netcdf_data(1:ns) )
2948
2949	!
2950	!-- Write zu data
2951	netcdf_data(1:ns) = zu( comp_spectra_level(1:ns) )
2952	nc_stat = NF90_PUT_VAR( id_set_sp, id_var_zu_sp, netcdf_data, &
2953	start = (/ 1 /), count = (/ ns /) )
2954	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 293 )
2955
2956	!
2957	!-- Write zw data
2958	netcdf_data(1:ns) = zw( comp_spectra_level(1:ns) )
2959	nc_stat = NF90_PUT_VAR( id_set_sp, id_var_zw_sp, netcdf_data, &
2960	start = (/ 1 /), count = (/ ns /) )
2961	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 294 )
2962
2963	DEALLOCATE( netcdf_data )
2964
2965	!
2966	!-- Write data for x and y axis (wavenumbers)
2967	ALLOCATE( netcdf_data(nx/2) )
2968	DO i = 1, nx/2
2969	netcdf_data(i) = 2.0 * pi * i / ( dx * ( nx + 1 ) )
2970	ENDDO
2971
2972	nc_stat = NF90_PUT_VAR( id_set_sp, id_var_x_sp, netcdf_data, &
2973	start = (/ 1 /), count = (/ nx/2 /) )
2974	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 295 )
2975
2976	DEALLOCATE( netcdf_data )
2977
2978	ALLOCATE( netcdf_data(ny/2) )
2979	DO i = 1, ny/2
2980	netcdf_data(i) = 2.0 * pi * i / ( dy * ( ny + 1 ) )
2981	ENDDO
2982
2983	nc_stat = NF90_PUT_VAR( id_set_sp, id_var_y_sp, netcdf_data, &
2984	start = (/ 1 /), count = (/ ny/2 /) )
2985	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 296 )
2986
2987	DEALLOCATE( netcdf_data )
2988
2989
2990	CASE ( 'sp_ext' )
2991
2992	!
2993	!-- Get the list of variables and compare with the actual run.
2994	!-- First var_list_old has to be reset, since GET_ATT does not assign
2995	!-- trailing blanks.
2996	var_list_old = ' '
2997	nc_stat = NF90_GET_ATT( id_set_sp, NF90_GLOBAL, 'VAR_LIST', &
2998	var_list_old )
2999	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 297 )
3000
3001	var_list = ';'
3002	i = 1
3003	DO WHILE ( data_output_sp(i) /= ' ' .AND. i <= 10 )
3004
3005	IF ( INDEX( spectra_direction(i), 'x' ) /= 0 ) THEN
3006	netcdf_var_name = TRIM( data_output_sp(i) ) // '_x'
3007	var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';'
3008	ENDIF
3009
3010	IF ( INDEX( spectra_direction(i), 'y' ) /= 0 ) THEN
3011	netcdf_var_name = TRIM( data_output_sp(i) ) // '_y'
3012	var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';'
3013	ENDIF
3014
3015	i = i + 1
3016
3017	ENDDO
3018
3019	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
3020	PRINT*, '+++ WARNING: NetCDF file for spectra from previous ' //&
3021	'run found,'
3022	PRINT*, ' but this file cannot be extended due to' // &
3023	' variable mismatch.'
3024	PRINT*, ' New file is created instead.'
3025	extend = .FALSE.
3026	RETURN
3027	ENDIF
3028
3029	!
3030	!-- Determine the number of current vertical levels for which spectra
3031	!-- shall be output
3032	ns = 1
3033	DO WHILE ( comp_spectra_level(ns) /= 999999 .AND. ns <= 100 )
3034	ns = ns + 1
3035	ENDDO
3036	ns = ns - 1
3037
3038	!
3039	!-- Get and compare the number of vertical levels
3040	nc_stat = NF90_INQ_VARID( id_set_sp, 'zu_sp', id_var_zu_sp )
3041	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 298 )
3042
3043	nc_stat = NF90_INQUIRE_VARIABLE( id_set_sp, id_var_zu_sp, &
3044	dimids = id_dim_zu_sp_old )
3045	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 299 )
3046	id_dim_zu_sp = id_dim_zu_sp_old(1)
3047
3048	nc_stat = NF90_INQUIRE_DIMENSION( id_set_sp, id_dim_zu_sp, &
3049	len = ns_old )
3050	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 300 )
3051
3052	IF ( ns /= ns_old ) THEN
3053	PRINT*, '+++ WARNING: NetCDF file for spectra from previous ' //&
3054	'run found,'
3055	PRINT*, ' but this file cannot be extended due to' // &
3056	' mismatch in number of'
3057	PRINT*, ' vertical levels.'
3058	PRINT*, ' New file is created instead.'
3059	extend = .FALSE.
3060	RETURN
3061	ENDIF
3062
3063	!
3064	!-- Get and compare the heights of the cross sections
3065	ALLOCATE( netcdf_data(1:ns_old) )
3066
3067	nc_stat = NF90_GET_VAR( id_set_sp, id_var_zu_sp, netcdf_data )
3068	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 301 )
3069
3070	DO i = 1, ns
3071	IF ( zu(comp_spectra_level(i)) /= netcdf_data(i) ) THEN
3072	PRINT*, '+++ WARNING: NetCDF file for spectra from previou' // &
3073	's run found,'
3074	PRINT*, ' but this file cannot be extended due' // &
3075	' to mismatch in heights'
3076	PRINT*, ' of vertical levels.'
3077	PRINT*, ' New file is created instead.'
3078	extend = .FALSE.
3079	RETURN
3080	ENDIF
3081	ENDDO
3082
3083	DEALLOCATE( netcdf_data )
3084
3085	!
3086	!-- Get the id of the time coordinate (unlimited coordinate) and its
3087	!-- last index on the file. The next time level is plsp..count+1.
3088	!-- The current time must be larger than the last output time
3089	!-- on the file.
3090	nc_stat = NF90_INQ_VARID( id_set_sp, 'time', id_var_time_sp )
3091	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 302 )
3092
3093	nc_stat = NF90_INQUIRE_VARIABLE( id_set_sp, id_var_time_sp, &
3094	dimids = id_dim_time_old )
3095	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 303 )
3096	id_dim_time_sp = id_dim_time_old(1)
3097
3098	nc_stat = NF90_INQUIRE_DIMENSION( id_set_sp, id_dim_time_sp, &
3099	len = dosp_time_count )
3100	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 304 )
3101
3102	nc_stat = NF90_GET_VAR( id_set_sp, id_var_time_sp, &
3103	last_time_coordinate, &
3104	start = (/ dosp_time_count /), &
3105	count = (/ 1 /) )
3106	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 305 )
3107
3108	IF ( last_time_coordinate(1) >= simulated_time ) THEN
3109	PRINT*, '+++ WARNING: NetCDF file for spectra from previous ' // &
3110	'run found,'
3111	PRINT*, ' but this file cannot be extended becaus' // &
3112	'e the current output time'
3113	PRINT*, ' is less or equal than the last output t' // &
3114	'ime on this file.'
3115	PRINT*, ' New file is created instead.'
3116	dosp_time_count = 0
3117	extend = .FALSE.
3118	RETURN
3119	ENDIF
3120
3121	!
3122	!-- Dataset seems to be extendable.
3123	!-- Now get the variable ids.
3124	i = 1
3125	DO WHILE ( data_output_sp(i) /= ' ' .AND. i <= 10 )
3126
3127	IF ( INDEX( spectra_direction(i), 'x' ) /= 0 ) THEN
3128	netcdf_var_name = TRIM( data_output_sp(i) ) // '_x'
3129	nc_stat = NF90_INQ_VARID( id_set_sp, netcdf_var_name, &
3130	id_var_dospx(i) )
3131	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 306 )
3132	ENDIF
3133
3134	IF ( INDEX( spectra_direction(i), 'y' ) /= 0 ) THEN
3135	netcdf_var_name = TRIM( data_output_sp(i) ) // '_y'
3136	nc_stat = NF90_INQ_VARID( id_set_sp, netcdf_var_name, &
3137	id_var_dospy(i) )
3138	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 307 )
3139	ENDIF
3140
3141	i = i + 1
3142
3143	ENDDO
3144
3145	!
3146	!-- Change the titel attribute on file
3147	IF ( averaging_interval_sp /= 0.0 ) THEN
3148	WRITE (time_average_text,'('', '',F7.1,'' s average'')') &
3149	averaging_interval_sp
3150	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', &
3151	TRIM( run_description_header ) // &
3152	TRIM( time_average_text ) )
3153	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 308 )
3154
3155	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval_sp
3156	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'time_avg', &
3157	TRIM( time_average_text ) )
3158	ELSE
3159	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', &
3160	TRIM( run_description_header ) )
3161	ENDIF
3162	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 309 )
3163
3164	PRINT, '** NetCDF file for spectra from previous run found.'
3165	PRINT*, ' This file will be extended.'
3166
3167
3168	CASE ( 'pt_new' )
3169
3170	!
3171	!-- Define some global attributes of the dataset
3172	nc_stat = NF90_PUT_ATT( id_set_prt, NF90_GLOBAL, 'title', &
3173	TRIM( run_description_header ) )
3174	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 310 )
3175
3176	!
3177	!-- Define time coordinate for particles (unlimited dimension)
3178	nc_stat = NF90_DEF_DIM( id_set_prt, 'time', NF90_UNLIMITED, &
3179	id_dim_time_prt )
3180	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 311 )
3181
3182	nc_stat = NF90_DEF_VAR( id_set_prt, 'time', NF90_DOUBLE, &
3183	id_dim_time_prt, id_var_time_prt )
3184	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 312 )
3185
3186	nc_stat = NF90_PUT_ATT( id_set_prt, id_var_time_prt, 'units', &
3187	'seconds' )
3188	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 313 )
3189
3190	!
3191	!-- Define particle coordinate (maximum particle number)
3192	nc_stat = NF90_DEF_DIM( id_set_prt, 'particle_number', &
3193	maximum_number_of_particles, id_dim_prtnum )
3194	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 314 )
3195
3196	nc_stat = NF90_DEF_VAR( id_set_prt, 'particle_number', NF90_DOUBLE, &
3197	id_dim_prtnum, id_var_prtnum )
3198	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 315 )
3199
3200	nc_stat = NF90_PUT_ATT( id_set_prt, id_var_prtnum, 'units', &
3201	'particle number' )
3202	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 316 )
3203
3204	!
3205	!-- Define variable which contains the real number of particles in use
3206	nc_stat = NF90_DEF_VAR( id_set_prt, 'real_num_of_prt', NF90_INT, &
3207	id_dim_time_prt, id_var_rnop_prt )
3208	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 317 )
3209
3210	nc_stat = NF90_PUT_ATT( id_set_prt, id_var_rnop_prt, 'units', &
3211	'particle number' )
3212	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 318 )
3213
3214	!
3215	!-- Define the variables
3216	DO i = 1, 17
3217
3218	nc_stat = NF90_DEF_VAR( id_set_prt, prt_var_names(i), &
3219	nc_precision(8), &
3220	(/ id_dim_prtnum, id_dim_time_prt /), &
3221	id_var_prt(i) )
3222	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 319 )
3223
3224	nc_stat = NF90_PUT_ATT( id_set_prt, id_var_prt(i), &
3225	'long_name', TRIM( prt_var_names(i) ) )
3226	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 320 )
3227
3228	nc_stat = NF90_PUT_ATT( id_set_prt, id_var_prt(i), &
3229	'units', TRIM( prt_var_units(i) ) )
3230	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 321 )
3231
3232	ENDDO
3233
3234	!
3235	!-- Leave NetCDF define mode
3236	nc_stat = NF90_ENDDEF( id_set_prt )
3237	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 322 )
3238
3239
3240	CASE ( 'pt_ext' )
3241
3242	!
3243	!-- Get the id of the time coordinate (unlimited coordinate) and its
3244	!-- last index on the file. The next time level is prt..count+1.
3245	!-- The current time must be larger than the last output time
3246	!-- on the file.
3247	nc_stat = NF90_INQ_VARID( id_set_prt, 'time', id_var_time_prt )
3248	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 323 )
3249
3250	nc_stat = NF90_INQUIRE_VARIABLE( id_set_prt, id_var_time_prt, &
3251	dimids = id_dim_time_old )
3252	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 324 )
3253	id_dim_time_prt = id_dim_time_old(1)
3254
3255	nc_stat = NF90_INQUIRE_DIMENSION( id_set_prt, id_dim_time_prt, &
3256	len = prt_time_count )
3257	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 325 )
3258
3259	nc_stat = NF90_GET_VAR( id_set_prt, id_var_time_prt, &
3260	last_time_coordinate, &
3261	start = (/ prt_time_count /), &
3262	count = (/ 1 /) )
3263	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 326 )
3264
3265	IF ( last_time_coordinate(1) >= simulated_time ) THEN
3266	PRINT*, '+++ WARNING: NetCDF file for particles from previous ' //&
3267	'run found,'
3268	PRINT*, ' but this file cannot be extended becaus' // &
3269	'e the current output time'
3270	PRINT*, ' is less or equal than the last output t' // &
3271	'ime on this file.'
3272	PRINT*, ' New file is created instead.'
3273	prt_time_count = 0
3274	extend = .FALSE.
3275	RETURN
3276	ENDIF
3277
3278	!
3279	!-- Dataset seems to be extendable.
3280	!-- Now get the variable ids.
3281	nc_stat = NF90_INQ_VARID( id_set_prt, 'real_num_of_prt', &
3282	id_var_rnop_prt )
3283	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 327 )
3284
3285	DO i = 1, 17
3286
3287	nc_stat = NF90_INQ_VARID( id_set_prt, prt_var_names(i), &
3288	id_var_prt(i) )
3289	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 328 )
3290
3291	ENDDO
3292
3293	IF ( myid == 0 ) THEN
3294	PRINT, '** NetCDF file for particles from previous run found.'
3295	PRINT*, ' This file will be extended.'
3296	ENDIF
3297
3298
3299	CASE ( 'ps_new' )
3300
3301	!
3302	!-- Define some global attributes of the dataset
3303	nc_stat = NF90_PUT_ATT( id_set_pts, NF90_GLOBAL, 'title', &
3304	TRIM( run_description_header ) )
3305	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 396 )
3306
3307	!
3308	!-- Define time coordinate for particle time series (unlimited dimension)
3309	nc_stat = NF90_DEF_DIM( id_set_pts, 'time', NF90_UNLIMITED, &
3310	id_dim_time_pts )
3311	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 397 )
3312
3313	nc_stat = NF90_DEF_VAR( id_set_pts, 'time', NF90_DOUBLE, &
3314	id_dim_time_pts, id_var_time_pts )
3315	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 398 )
3316
3317	nc_stat = NF90_PUT_ATT( id_set_pts, id_var_time_pts, 'units', &
3318	'seconds')
3319	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 399 )
3320
3321	!
3322	!-- Define the variables. If more than one particle group is defined,
3323	!-- define seperate variables for each group
3324	var_list = ';'
3325	DO i = 1, dopts_num
3326
3327	!
3328	!-- First, remove those characters not allowed by NetCDF
3329	netcdf_var_name = dopts_label(i)
3330	CALL clean_netcdf_varname( netcdf_var_name )
3331
3332	DO j = 0, number_of_particle_groups
3333
3334	IF ( j == 0 ) THEN
3335	suffix1 = ''
3336	ELSE
3337	WRITE ( suffix1, '(''_'',I2.2)' ) j
3338	ENDIF
3339
3340	nc_stat = NF90_DEF_VAR( id_set_pts, &
3341	TRIM( netcdf_var_name ) // suffix1, &
3342	nc_precision(6), &
3343	(/ id_dim_time_pts /), &
3344	id_var_dopts(i,j) )
3345	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 400 )
3346
3347	IF ( j == 0 ) THEN
3348	nc_stat = NF90_PUT_ATT( id_set_pts, id_var_dopts(i,j), &
3349	'long_name', &
3350	TRIM( dopts_label(i) ) )
3351	ELSE
3352	nc_stat = NF90_PUT_ATT( id_set_pts, id_var_dopts(i,j), &
3353	'long_name', &
3354	TRIM( dopts_label(i) ) // ' PG ' // &
3355	suffix1(2:3) )
3356	ENDIF
3357	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 401 )
3358
3359	nc_stat = NF90_PUT_ATT( id_set_pts, id_var_dopts(i,j), &
3360	'units', TRIM( dopts_unit(i) ) )
3361	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 402 )
3362
3363	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
3364	suffix1 // ';'
3365
3366	IF ( number_of_particle_groups == 1 ) EXIT
3367
3368	ENDDO
3369
3370	ENDDO
3371
3372	!
3373	!-- Write the list of variables as global attribute (this is used by
3374	!-- restart runs)
3375	nc_stat = NF90_PUT_ATT( id_set_pts, NF90_GLOBAL, 'VAR_LIST', &
3376	var_list )
3377	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 403 )
3378
3379	!
3380	!-- Leave NetCDF define mode
3381	nc_stat = NF90_ENDDEF( id_set_pts )
3382	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 404 )
3383
3384
3385	CASE ( 'ps_ext' )
3386
3387	!
3388	!-- Get the list of variables and compare with the actual run.
3389	!-- First var_list_old has to be reset, since GET_ATT does not assign
3390	!-- trailing blanks.
3391	var_list_old = ' '
3392	nc_stat = NF90_GET_ATT( id_set_pts, NF90_GLOBAL, 'VAR_LIST', &
3393	var_list_old )
3394	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 405 )
3395
3396	var_list = ';'
3397	i = 1
3398	DO i = 1, dopts_num
3399
3400	netcdf_var_name = dopts_label(i)
3401	CALL clean_netcdf_varname( netcdf_var_name )
3402
3403	DO j = 0, number_of_particle_groups
3404
3405	IF ( j == 0 ) THEN
3406	suffix1 = ''
3407	ELSE
3408	WRITE ( suffix1, '(''_'',I2.2)' ) j
3409	ENDIF
3410
3411	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
3412	suffix1 // ';'
3413
3414	IF ( number_of_particle_groups == 1 ) EXIT
3415
3416	ENDDO
3417
3418	ENDDO
3419
3420	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
3421	PRINT*, '+++ WARNING: NetCDF file for particle time series ' //&
3422	'from previuos run found,'
3423	PRINT*, ' but this file cannot be extended due to' // &
3424	' variable mismatch.'
3425	PRINT*, ' New file is created instead.'
3426	extend = .FALSE.
3427	RETURN
3428	ENDIF
3429
3430	!
3431	!-- Get the id of the time coordinate (unlimited coordinate) and its
3432	!-- last index on the file. The next time level is dots..count+1.
3433	!-- The current time must be larger than the last output time
3434	!-- on the file.
3435	nc_stat = NF90_INQ_VARID( id_set_pts, 'time', id_var_time_pts )
3436	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 406 )
3437
3438	nc_stat = NF90_INQUIRE_VARIABLE( id_set_pts, id_var_time_pts, &
3439	dimids = id_dim_time_old )
3440	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 407 )
3441	id_dim_time_pts = id_dim_time_old(1)
3442
3443	nc_stat = NF90_INQUIRE_DIMENSION( id_set_pts, id_dim_time_pts, &
3444	len = dopts_time_count )
3445	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 408 )
3446
3447	nc_stat = NF90_GET_VAR( id_set_pts, id_var_time_pts, &
3448	last_time_coordinate, &
3449	start = (/ dopts_time_count /), &
3450	count = (/ 1 /) )
3451	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 409 )
3452
3453	IF ( last_time_coordinate(1) >= simulated_time ) THEN
3454	PRINT*, '+++ WARNING: NetCDF file for time series from' // &
3455	' previuos run found,'
3456	PRINT*, ' but this file cannot be extended becaus' // &
3457	'e the current output time'
3458	PRINT*, ' is less or equal than the last output t' // &
3459	'ime on this file.'
3460	PRINT*, ' New file is created instead.'
3461	dopts_time_count = 0
3462	extend = .FALSE.
3463	RETURN
3464	ENDIF
3465
3466	!
3467	!-- Dataset seems to be extendable.
3468	!-- Now get the variable ids
3469	i = 1
3470	DO i = 1, dopts_num
3471
3472	netcdf_var_name_base = dopts_label(i)
3473	CALL clean_netcdf_varname( netcdf_var_name_base )
3474
3475	DO j = 0, number_of_particle_groups
3476
3477	IF ( j == 0 ) THEN
3478	suffix1 = ''
3479	ELSE
3480	WRITE ( suffix1, '(''_'',I2.2)' ) j
3481	ENDIF
3482
3483	netcdf_var_name = TRIM( netcdf_var_name_base ) // suffix1
3484
3485	nc_stat = NF90_INQ_VARID( id_set_pts, netcdf_var_name, &
3486	id_var_dopts(i,j) )
3487	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 410 )
3488
3489	IF ( number_of_particle_groups == 1 ) EXIT
3490
3491	ENDDO
3492
3493	ENDDO
3494
3495	!
3496	!-- Change the title attribute on file
3497	nc_stat = NF90_PUT_ATT( id_set_pts, NF90_GLOBAL, 'title', &
3498	TRIM( run_description_header ) )
3499	IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 411 )
3500	PRINT, '** NetCDF file for particle time series from previous ', &
3501	'run found.'
3502	PRINT*, ' This file will be extended.'
3503
3504
3505	CASE DEFAULT
3506
3507	PRINT*, '+++ define_netcdf_header: mode "', mode, '" not supported'
3508
3509	END SELECT
3510
3511	#endif
3512	END SUBROUTINE define_netcdf_header
3513
3514
3515
3516	SUBROUTINE handle_netcdf_error( errno )
3517	#if defined( __netcdf )
3518
3519	!------------------------------------------------------------------------------!
3520	!
3521	! Description:
3522	! ------------
3523	! Prints out a text message corresponding to the current status.
3524	!------------------------------------------------------------------------------!
3525
3526	USE netcdf
3527	USE netcdf_control
3528	USE pegrid
3529
3530	IMPLICIT NONE
3531
3532	INTEGER :: errno
3533
3534	IF ( nc_stat /= NF90_NOERR ) THEN
3535	PRINT*, '+++ netcdf error ', errno,': ', TRIM( NF90_STRERROR( nc_stat ) )
3536	#if defined( __parallel )
3537	CALL MPI_ABORT( comm2d, 9999, ierr )
3538	#else
3539	CALL local_stop
3540	#endif
3541	ENDIF
3542
3543	#endif
3544	END SUBROUTINE handle_netcdf_error
3545
3546
3547
3548	SUBROUTINE clean_netcdf_varname( string )
3549	#if defined( __netcdf )
3550
3551	!------------------------------------------------------------------------------!
3552	!
3553	! Description:
3554	! ------------
3555	! Replace those characters in string which are not allowed by NetCDF.
3556	!------------------------------------------------------------------------------!
3557
3558	USE netcdf_control
3559
3560	IMPLICIT NONE
3561
3562	CHARACTER (LEN=10), INTENT(INOUT) :: string
3563
3564	INTEGER :: i, ic
3565
3566	DO i = 1, replace_num
3567	DO
3568	ic = INDEX( string, replace_char(i) )
3569	IF ( ic /= 0 ) THEN
3570	string(ic:ic) = replace_by(i)
3571	ELSE
3572	EXIT
3573	ENDIF
3574	ENDDO
3575	ENDDO
3576
3577	#endif
3578	END SUBROUTINE clean_netcdf_varname

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |