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

Last change on this file since 263 was 263, checked in by heinze, 13 years ago

Output of NetCDF messages with aid of message handling routine.

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