source: palm/trunk/SOURCE/write_var_list.f90 @ 351

Last change on this file since 351 was 345, checked in by heinze, 15 years ago

In case of restart runs without extension, initial profiles are not written to NetCDF-file anymore.

  • Property svn:keywords set to Id
File size: 20.0 KB
Line 
1 SUBROUTINE write_var_list
2
3!------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6! +output_for_t0
7! bugfix: -dt_fixed, because otherwise, restart runs cannot change from a
8! fixed to a free timestep.
9! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left,
10! canyon_wall_south, conserve_volume_flow_mode, coupling_start_time,
11! dp_external, dp_level_b, dp_smooth, dpdxy, run_coupled,
12! time_since_reference_point, topography_grid_convention, u_bulk, v_bulk
13!
14! Former revisions:
15! -----------------
16! $Id: write_var_list.f90 345 2009-07-01 14:37:56Z heinze $
17!
18! 153 2008-03-19 09:41:30Z steinfeld
19! +cthf, leaf_surface_concentration, scalar_exchange_coefficient
20! +numprocs, hor_index_bounds, inflow_damping_height, inflow_damping_width,
21! mean_inflow_profiles, recycling_width, turbulent_inflow,
22! -cross_ts_*, npex, npey
23! hom_sum, volume_flow_area, volume_flow_initial moved from write_3d_binary
24! to here
25!
26! 138 2007-11-28 10:03:58Z letzel
27! +canopy_mode, drag_coefficient, lad, lad_surface, lad_vertical_gradient,
28! lad_vertical_gradient_level, lad_vertical_gradient_level_ind, pch_index,
29! plant_canopy, time_sort_particles
30!
31! 102 2007-07-27 09:09:17Z raasch
32! +top_momentumflux_u|v, time_coupling
33!
34! 95 2007-06-02 16:48:38Z raasch
35! +bc_sa_t, ocean, sa_init, sa_surface, sa_vertical_gradient,
36! sa_vertical_gradient_level, bottom/top_salinity_flux
37!
38! 87 2007-05-22 15:46:47Z raasch
39! +max_pr_user (version 3.1)
40!
41! 75 2007-03-22 09:54:05Z raasch
42! +loop_optimization, pt_refrence, moisture renamed humidity
43!
44! 20 2007-02-26 00:12:32Z raasch
45! +top_heatflux, use_top_fluxes
46!
47! RCS Log replace by Id keyword, revision history cleaned up
48!
49! Revision 1.34  2006/08/22 14:30:52  raasch
50! +dz_max
51!
52! Revision 1.1  1998/03/18 20:20:38  raasch
53! Initial revision
54!
55!
56! Description:
57! ------------
58! Writing values of control variables to restart-file (binary format).
59! These informations are only written to the file opened by PE0.
60!------------------------------------------------------------------------------!
61
62    USE arrays_3d
63    USE averaging
64    USE control_parameters
65    USE grid_variables
66    USE indices
67    USE model_1d
68    USE netcdf_control
69    USE particle_attributes
70    USE pegrid
71    USE profil_parameter
72    USE statistics
73
74    IMPLICIT NONE
75
76    CHARACTER (LEN=10) ::  binary_version
77
78
79    binary_version = '3.4'
80
81    WRITE ( 14 )  binary_version
82
83    WRITE ( 14 )  'numprocs                      '
84    WRITE ( 14 )  numprocs
85    WRITE ( 14 )  'hor_index_bounds              '
86    WRITE ( 14 )  hor_index_bounds
87    WRITE ( 14 )  'nz                            '
88    WRITE ( 14 )  nz
89    WRITE ( 14 )  'max_pr_user                   '
90    WRITE ( 14 )  max_pr_user
91    WRITE ( 14 )  'statistic_regions             '
92    WRITE ( 14 )  statistic_regions
93
94!
95!-- Caution: After changes in the following parameter-list, the
96!-- -------  version number stored in the variable binary_version has to be
97!--          increased. The same changes must also be done in the parameter-
98!--          list in read_var_list.
99
100    WRITE ( 14 )  'adjust_mixing_length          '
101    WRITE ( 14 )  adjust_mixing_length
102    WRITE ( 14 )  'advected_distance_x           '
103    WRITE ( 14 )  advected_distance_x
104    WRITE ( 14 )  'advected_distance_y           '
105    WRITE ( 14 )  advected_distance_y
106    WRITE ( 14 )  'alpha_surface                 '
107    WRITE ( 14 )  alpha_surface
108    WRITE ( 14 )  'average_count_pr              '
109    WRITE ( 14 )  average_count_pr
110    WRITE ( 14 )  'average_count_sp              '
111    WRITE ( 14 )  average_count_sp
112    WRITE ( 14 )  'average_count_3d              '
113    WRITE ( 14 )  average_count_3d
114    WRITE ( 14 )  'bc_e_b                        '
115    WRITE ( 14 )  bc_e_b
116    WRITE ( 14 )  'bc_lr                         '
117    WRITE ( 14 )  bc_lr
118    WRITE ( 14 )  'bc_ns                         '
119    WRITE ( 14 )  bc_ns
120    WRITE ( 14 )  'bc_p_b                        '
121    WRITE ( 14 )  bc_p_b
122    WRITE ( 14 )  'bc_p_t                        '
123    WRITE ( 14 )  bc_p_t
124    WRITE ( 14 )  'bc_pt_b                       '
125    WRITE ( 14 )  bc_pt_b
126    WRITE ( 14 )  'bc_pt_t                       '
127    WRITE ( 14 )  bc_pt_t
128    WRITE ( 14 )  'bc_pt_t_val                   '
129    WRITE ( 14 )  bc_pt_t_val
130    WRITE ( 14 )  'bc_q_b                        '
131    WRITE ( 14 )  bc_q_b
132    WRITE ( 14 )  'bc_q_t                        '
133    WRITE ( 14 )  bc_q_t
134    WRITE ( 14 )  'bc_q_t_val                    '
135    WRITE ( 14 )  bc_q_t_val
136    WRITE ( 14 )  'bc_s_b                        '
137    WRITE ( 14 )  bc_s_b
138    WRITE ( 14 )  'bc_s_t                        '
139    WRITE ( 14 )  bc_s_t
140    WRITE ( 14 )  'bc_sa_t                       '
141    WRITE ( 14 )  bc_sa_t
142    WRITE ( 14 )  'bc_uv_b                       '
143    WRITE ( 14 )  bc_uv_b
144    WRITE ( 14 )  'bc_uv_t                       '
145    WRITE ( 14 )  bc_uv_t
146    WRITE ( 14 )  'bottom_salinityflux           '
147    WRITE ( 14 )  bottom_salinityflux
148    WRITE ( 14 )  'building_height               '
149    WRITE ( 14 )  building_height
150    WRITE ( 14 )  'building_length_x             '
151    WRITE ( 14 )  building_length_x
152    WRITE ( 14 )  'building_length_y             '
153    WRITE ( 14 )  building_length_y
154    WRITE ( 14 )  'building_wall_left            '
155    WRITE ( 14 )  building_wall_left
156    WRITE ( 14 )  'building_wall_south           '
157    WRITE ( 14 )  building_wall_south
158    WRITE ( 14 )  'canopy_mode                   '
159    WRITE ( 14 )  canopy_mode
160    WRITE ( 14 )  'canyon_height                 '
161    WRITE ( 14 )  canyon_height
162    WRITE ( 14 )  'canyon_width_x                '
163    WRITE ( 14 )  canyon_width_x
164    WRITE ( 14 )  'canyon_width_y                '
165    WRITE ( 14 )  canyon_width_y
166    WRITE ( 14 )  'canyon_wall_left              '
167    WRITE ( 14 )  canyon_wall_left
168    WRITE ( 14 )  'canyon_wall_south             '
169    WRITE ( 14 )  canyon_wall_south
170    WRITE ( 14 )  'cloud_droplets                '
171    WRITE ( 14 )  cloud_droplets
172    WRITE ( 14 )  'cloud_physics                 '
173    WRITE ( 14 )  cloud_physics
174    WRITE ( 14 )  'conserve_volume_flow          '
175    WRITE ( 14 )  conserve_volume_flow
176    WRITE ( 14 )  'conserve_volume_flow_mode     '
177    WRITE ( 14 )  conserve_volume_flow_mode
178    WRITE ( 14 )  'coupling_start_time           '
179    WRITE ( 14 )  coupling_start_time
180    WRITE ( 14 )  'current_timestep_number       '
181    WRITE ( 14 )  current_timestep_number
182    WRITE ( 14 )  'cthf                          '
183    WRITE ( 14 )  cthf
184    WRITE ( 14 )  'cut_spline_overshoot          '
185    WRITE ( 14 )  cut_spline_overshoot
186    WRITE ( 14 )  'damp_level_1d                 '
187    WRITE ( 14 )  damp_level_1d
188    WRITE ( 14 )  'dissipation_1d                '
189    WRITE ( 14 )  dissipation_1d
190    WRITE ( 14 )  'dp_external                   '
191    WRITE ( 14 )  dp_external
192    WRITE ( 14 )  'dp_level_b                    '
193    WRITE ( 14 )  dp_level_b
194    WRITE ( 14 )  'dp_smooth                     '
195    WRITE ( 14 )  dp_smooth
196    WRITE ( 14 )  'dpdxy                         '
197    WRITE ( 14 )  dpdxy
198    WRITE ( 14 )  'drag_coefficient              '
199    WRITE ( 14 )  drag_coefficient
200    WRITE ( 14 )  'dt_pr_1d                      '
201    WRITE ( 14 )  dt_pr_1d
202    WRITE ( 14 )  'dt_run_control_1d             '
203    WRITE ( 14 )  dt_run_control_1d
204    WRITE ( 14 )  'dt_3d                         '
205    WRITE ( 14 )  dt_3d
206    WRITE ( 14 )  'dvrp_filecount                '
207    WRITE ( 14 )  dvrp_filecount
208    WRITE ( 14 )  'dx                            '
209    WRITE ( 14 )  dx
210    WRITE ( 14 )  'dy                            '
211    WRITE ( 14 )  dy
212    WRITE ( 14 )  'dz                            '
213    WRITE ( 14 )  dz
214    WRITE ( 14 )  'dz_max                        '
215    WRITE ( 14 )  dz_max
216    WRITE ( 14 )  'dz_stretch_factor             '
217    WRITE ( 14 )  dz_stretch_factor
218    WRITE ( 14 )  'dz_stretch_level              '
219    WRITE ( 14 )  dz_stretch_level
220    WRITE ( 14 )  'e_min                         '
221    WRITE ( 14 )  e_min
222    WRITE ( 14 )  'end_time_1d                   '
223    WRITE ( 14 )  end_time_1d
224    WRITE ( 14 )  'fft_method                    '
225    WRITE ( 14 )  fft_method
226    WRITE ( 14 )  'first_call_advec_particles    '
227    WRITE ( 14 )  first_call_advec_particles
228    WRITE ( 14 )  'galilei_transformation        '
229    WRITE ( 14 )  galilei_transformation
230    WRITE ( 14 )  'grid_matching                 '
231    WRITE ( 14 )  grid_matching
232    WRITE ( 14 )  'hom                           '
233    WRITE ( 14 )  hom
234    WRITE ( 14 )  'hom_sum                       '
235    WRITE ( 14 )  hom_sum
236    WRITE ( 14 )  'humidity                      '
237    WRITE ( 14 )  humidity
238    IF ( ALLOCATED( inflow_damping_factor ) )  THEN
239       WRITE ( 14 )  'inflow_damping_factor         '
240       WRITE ( 14 )  inflow_damping_factor
241    ENDIF
242    WRITE ( 14 )  'inflow_damping_height         '
243    WRITE ( 14 )  inflow_damping_height
244    WRITE ( 14 )  'inflow_damping_width          '
245    WRITE ( 14 )  inflow_damping_width
246    WRITE ( 14 )  'inflow_disturbance_begin      '
247    WRITE ( 14 )  inflow_disturbance_begin
248    WRITE ( 14 )  'inflow_disturbance_end        '
249    WRITE ( 14 )  inflow_disturbance_end
250    WRITE ( 14 )  'km_constant                   '
251    WRITE ( 14 )  km_constant
252    WRITE ( 14 )  'km_damp_max                   '
253    WRITE ( 14 )  km_damp_max
254    WRITE ( 14 )  'lad                           '
255    WRITE ( 14 )  lad
256    WRITE ( 14 )  'lad_surface                   '
257    WRITE ( 14 )  lad_surface
258    WRITE ( 14 )  'lad_vertical_gradient         '
259    WRITE ( 14 )  lad_vertical_gradient
260    WRITE ( 14 )  'lad_vertical_gradient_level   '
261    WRITE ( 14 )  lad_vertical_gradient_level
262    WRITE ( 14 )  'lad_vertical_gradient_level_in'
263    WRITE ( 14 )  lad_vertical_gradient_level_ind
264    WRITE ( 14 )  'last_dt_change                '
265    WRITE ( 14 )  last_dt_change
266    WRITE ( 14 )  'leaf_surface_concentration    '
267    WRITE ( 14 )  leaf_surface_concentration
268    WRITE ( 14 )  'long_filter_factor            '
269    WRITE ( 14 )  long_filter_factor
270    WRITE ( 14 )  'loop_optimization             '
271    WRITE ( 14 )  loop_optimization
272    IF ( ALLOCATED( mean_inflow_profiles ) )  THEN
273       WRITE ( 14 )  'mean_inflow_profiles          '
274       WRITE ( 14 )  mean_inflow_profiles
275    ENDIF
276    WRITE ( 14 )  'mixing_length_1d              '
277    WRITE ( 14 )  mixing_length_1d
278    WRITE ( 14 )  'momentum_advec                '
279    WRITE ( 14 )  momentum_advec
280    WRITE ( 14 )  'netcdf_precision              '
281    WRITE ( 14 )  netcdf_precision
282    WRITE ( 14 )  'nsor_ini                      '
283    WRITE ( 14 )  nsor_ini
284    WRITE ( 14 )  'nx                            '
285    WRITE ( 14 )  nx
286    WRITE ( 14 )  'ny                            '
287    WRITE ( 14 )  ny
288    WRITE ( 14 )  'ocean                         '
289    WRITE ( 14 )  ocean
290    WRITE ( 14 )  'old_dt                        '
291    WRITE ( 14 )  old_dt
292    WRITE ( 14 )  'omega                         '
293    WRITE ( 14 )  omega
294    WRITE ( 14 )  'outflow_damping_width         '
295    WRITE ( 14 )  outflow_damping_width
296    WRITE ( 14 )  'output_for_t0                 '
297    WRITE ( 14 )  output_for_t0
298    WRITE ( 14 )  'overshoot_limit_e             '
299    WRITE ( 14 )  overshoot_limit_e
300    WRITE ( 14 )  'overshoot_limit_pt            '
301    WRITE ( 14 )  overshoot_limit_pt
302    WRITE ( 14 )  'overshoot_limit_u             '
303    WRITE ( 14 )  overshoot_limit_u
304    WRITE ( 14 )  'overshoot_limit_v             '
305    WRITE ( 14 )  overshoot_limit_v
306    WRITE ( 14 )  'overshoot_limit_w             '
307    WRITE ( 14 )  overshoot_limit_w
308    WRITE ( 14 )  'passive_scalar                '
309    WRITE ( 14 )  passive_scalar
310    WRITE ( 14 )  'pch_index                     '
311    WRITE ( 14 )  pch_index
312    WRITE ( 14 )  'phi                           '
313    WRITE ( 14 )  phi
314    WRITE ( 14 )  'plant_canopy                  '
315    WRITE ( 14 )  plant_canopy
316    WRITE ( 14 )  'prandtl_layer                 '
317    WRITE ( 14 )  prandtl_layer
318    WRITE ( 14 )  'precipitation                 '
319    WRITE ( 14 )  precipitation
320    WRITE ( 14 )  'pt_init                       '
321    WRITE ( 14 )  pt_init
322    WRITE ( 14 )  'pt_reference                  '
323    WRITE ( 14 )  pt_reference
324    WRITE ( 14 )  'pt_surface                    '
325    WRITE ( 14 )  pt_surface
326    WRITE ( 14 )  'pt_surface_initial_change     '
327    WRITE ( 14 )  pt_surface_initial_change
328    WRITE ( 14 )  'pt_vertical_gradient          '
329    WRITE ( 14 )  pt_vertical_gradient
330    WRITE ( 14 )  'pt_vertical_gradient_level    '
331    WRITE ( 14 )  pt_vertical_gradient_level
332    WRITE ( 14 )  'pt_vertical_gradient_level_ind'
333    WRITE ( 14 )  pt_vertical_gradient_level_ind
334    WRITE ( 14 )  'q_init                        '
335    WRITE ( 14 )  q_init
336    WRITE ( 14 )  'q_surface                     '
337    WRITE ( 14 )  q_surface
338    WRITE ( 14 )  'q_surface_initial_change      '
339    WRITE ( 14 )  q_surface_initial_change
340    WRITE ( 14 )  'q_vertical_gradient           '
341    WRITE ( 14 )  q_vertical_gradient
342    WRITE ( 14 )  'q_vertical_gradient_level     '
343    WRITE ( 14 )  q_vertical_gradient_level
344    WRITE ( 14 )  'q_vertical_gradient_level_ind '
345    WRITE ( 14 )  q_vertical_gradient_level_ind
346    WRITE ( 14 )  'radiation                     '
347    WRITE ( 14 )  radiation
348    WRITE ( 14 )  'random_generator              '
349    WRITE ( 14 )  random_generator
350    WRITE ( 14 )  'random_heatflux               '
351    WRITE ( 14 )  random_heatflux
352    WRITE ( 14 )  'recycling_width               '
353    WRITE ( 14 )  recycling_width
354    WRITE ( 14 )  'rif_max                       '
355    WRITE ( 14 )  rif_max
356    WRITE ( 14 )  'rif_min                       '
357    WRITE ( 14 )  rif_min
358    WRITE ( 14 )  'roughness_length              '
359    WRITE ( 14 )  roughness_length
360    WRITE ( 14 )  'runnr                         '
361    WRITE ( 14 )  runnr
362    WRITE ( 14 )  'run_coupled                   '
363    WRITE ( 14 )  run_coupled
364    WRITE ( 14 )  'sa_init                       '
365    WRITE ( 14 )  sa_init
366    WRITE ( 14 )  'sa_surface                    '
367    WRITE ( 14 )  sa_surface
368    WRITE ( 14 )  'sa_vertical_gradient          '
369    WRITE ( 14 )  sa_vertical_gradient
370    WRITE ( 14 )  'sa_vertical_gradient_level    '
371    WRITE ( 14 )  sa_vertical_gradient_level
372    WRITE ( 14 )  'scalar_advec                  '
373    WRITE ( 14 )  scalar_advec
374    WRITE ( 14 )  'scalar_exchange_coefficient   '
375    WRITE ( 14 )  scalar_exchange_coefficient
376    WRITE ( 14 )  'simulated_time                '
377    WRITE ( 14 )  simulated_time
378    WRITE ( 14 )  'surface_heatflux              '
379    WRITE ( 14 )  surface_heatflux
380    WRITE ( 14 )  'surface_pressure              '
381    WRITE ( 14 )  surface_pressure
382    WRITE ( 14 )  'surface_scalarflux            '
383    WRITE ( 14 )  surface_scalarflux   
384    WRITE ( 14 )  'surface_waterflux             '
385    WRITE ( 14 )  surface_waterflux   
386    WRITE ( 14 )  's_surface                     '
387    WRITE ( 14 )  s_surface
388    WRITE ( 14 )  's_surface_initial_change      '
389    WRITE ( 14 )  s_surface_initial_change
390    WRITE ( 14 )  's_vertical_gradient           '
391    WRITE ( 14 )  s_vertical_gradient
392    WRITE ( 14 )  's_vertical_gradient_level     '
393    WRITE ( 14 )  s_vertical_gradient_level
394    WRITE ( 14 )  'time_coupling                 '
395    WRITE ( 14 )  time_coupling
396    WRITE ( 14 )  'time_disturb                  '
397    WRITE ( 14 )  time_disturb
398    WRITE ( 14 )  'time_dopr                     '
399    WRITE ( 14 )  time_dopr
400    WRITE ( 14 )  'time_dopr_av                  '
401    WRITE ( 14 )  time_dopr_av
402    WRITE ( 14 )  'time_dopr_listing             '
403    WRITE ( 14 )  time_dopr_listing
404    WRITE ( 14 )  'time_dopts                    '
405    WRITE ( 14 )  time_dopts
406    WRITE ( 14 )  'time_dosp                     '
407    WRITE ( 14 )  time_dosp
408    WRITE ( 14 )  'time_dots                     '
409    WRITE ( 14 )  time_dots
410    WRITE ( 14 )  'time_do2d_xy                  '
411    WRITE ( 14 )  time_do2d_xy
412    WRITE ( 14 )  'time_do2d_xz                  '
413    WRITE ( 14 )  time_do2d_xz
414    WRITE ( 14 )  'time_do2d_yz                  '
415    WRITE ( 14 )  time_do2d_yz
416    WRITE ( 14 )  'time_do3d                     '
417    WRITE ( 14 )  time_do3d
418    WRITE ( 14 )  'time_do_av                    '
419    WRITE ( 14 )  time_do_av
420    WRITE ( 14 )  'time_do_sla                   '
421    WRITE ( 14 )  time_do_sla
422    WRITE ( 14 )  'time_dvrp                     '
423    WRITE ( 14 )  time_dvrp
424    WRITE ( 14 )  'time_restart                  '
425    WRITE ( 14 )  time_restart
426    WRITE ( 14 )  'time_run_control              '
427    WRITE ( 14 )  time_run_control
428    WRITE ( 14 )  'time_since_reference_point    '
429    WRITE ( 14 )  time_since_reference_point
430    WRITE ( 14 )  'time_sort_particles           '
431    WRITE ( 14 )  time_sort_particles
432    WRITE ( 14 )  'timestep_scheme               '
433    WRITE ( 14 )  timestep_scheme
434    WRITE ( 14 )  'topography                    '
435    WRITE ( 14 )  topography
436    WRITE ( 14 )  'topography_grid_convention    '
437    WRITE ( 14 )  topography_grid_convention
438    WRITE ( 14 )  'top_heatflux                  '
439    WRITE ( 14 )  top_heatflux
440    WRITE ( 14 )  'top_momentumflux_u            '
441    WRITE ( 14 )  top_momentumflux_u
442    WRITE ( 14 )  'top_momentumflux_v            '
443    WRITE ( 14 )  top_momentumflux_v
444    WRITE ( 14 )  'top_salinityflux              '
445    WRITE ( 14 )  top_salinityflux
446    WRITE ( 14 )  'tsc                           '
447    WRITE ( 14 )  tsc
448    WRITE ( 14 )  'turbulent_inflow              '
449    WRITE ( 14 )  turbulent_inflow
450    WRITE ( 14 )  'u_bulk                        '
451    WRITE ( 14 )  u_bulk
452    WRITE ( 14 )  'u_init                        '
453    WRITE ( 14 )  u_init
454    WRITE ( 14 )  'u_max                         '
455    WRITE ( 14 )  u_max
456    WRITE ( 14 )  'u_max_ijk                     '
457    WRITE ( 14 )  u_max_ijk
458    WRITE ( 14 )  'ug                            '
459    WRITE ( 14 )  ug
460    WRITE ( 14 )  'ug_surface                    '
461    WRITE ( 14 )  ug_surface
462    WRITE ( 14 )  'ug_vertical_gradient          '
463    WRITE ( 14 )  ug_vertical_gradient
464    WRITE ( 14 )  'ug_vertical_gradient_level    '
465    WRITE ( 14 )  ug_vertical_gradient_level
466    WRITE ( 14 )  'ug_vertical_gradient_level_ind'
467    WRITE ( 14 )  ug_vertical_gradient_level_ind
468    WRITE ( 14 )  'ups_limit_e                   '
469    WRITE ( 14 )  ups_limit_e
470    WRITE ( 14 )  'ups_limit_pt                  '
471    WRITE ( 14 )  ups_limit_pt
472    WRITE ( 14 )  'ups_limit_u                   '
473    WRITE ( 14 )  ups_limit_u
474    WRITE ( 14 )  'ups_limit_v                   '
475    WRITE ( 14 )  ups_limit_v
476    WRITE ( 14 )  'ups_limit_w                   '
477    WRITE ( 14 )  ups_limit_w
478    WRITE ( 14 )  'use_surface_fluxes            '
479    WRITE ( 14 )  use_surface_fluxes
480    WRITE ( 14 )  'use_top_fluxes                '
481    WRITE ( 14 )  use_top_fluxes
482    WRITE ( 14 )  'use_ug_for_galilei_tr         '
483    WRITE ( 14 )  use_ug_for_galilei_tr
484    WRITE ( 14 )  'use_upstream_for_tke          '
485    WRITE ( 14 )  use_upstream_for_tke
486    WRITE ( 14 )  'v_bulk                        '
487    WRITE ( 14 )  v_bulk
488    WRITE ( 14 )  'v_init                        '
489    WRITE ( 14 )  v_init
490    WRITE ( 14 )  'v_max                         '
491    WRITE ( 14 )  v_max
492    WRITE ( 14 )  'v_max_ijk                     '
493    WRITE ( 14 )  v_max_ijk
494    WRITE ( 14 )  'vg                            '
495    WRITE ( 14 )  vg
496    WRITE ( 14 )  'vg_surface                    '
497    WRITE ( 14 )  vg_surface
498    WRITE ( 14 )  'vg_vertical_gradient          '
499    WRITE ( 14 )  vg_vertical_gradient
500    WRITE ( 14 )  'vg_vertical_gradient_level    '
501    WRITE ( 14 )  vg_vertical_gradient_level
502    WRITE ( 14 )  'vg_vertical_gradient_level_ind'
503    WRITE ( 14 )  vg_vertical_gradient_level_ind
504    WRITE ( 14 )  'volume_flow_area              '
505    WRITE ( 14 )  volume_flow_area
506    WRITE ( 14 )  'volume_flow_initial           '
507    WRITE ( 14 )  volume_flow_initial
508    WRITE ( 14 )  'wall_adjustment               '
509    WRITE ( 14 )  wall_adjustment
510    WRITE ( 14 )  'w_max                         '
511    WRITE ( 14 )  w_max
512    WRITE ( 14 )  'w_max_ijk                     '
513    WRITE ( 14 )  w_max_ijk
514
515!
516!-- Set the end-of-file mark
517    WRITE ( 14 )  '*** end ***                   '
518
519
520 END SUBROUTINE write_var_list
Note: See TracBrowser for help on using the repository browser.