!> @file write_var_list.f90
!------------------------------------------------------------------------------!
! This file is part of the PALM model system.
!
! PALM is free software: you can redistribute it and/or modify it under the
! terms of the GNU General Public License as published by the Free Software
! Foundation, either version 3 of the License, or (at your option) any later
! version.
!
! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
! A PARTICULAR PURPOSE. See the GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License along with
! PALM. If not, see .
!
! Copyright 1997-2018 Leibniz Universitaet Hannover
!------------------------------------------------------------------------------!
!
! Current revisions:
! -----------------
!
!
! Former revisions:
! -----------------
! $Id: write_var_list.f90 2718 2018-01-02 08:49:38Z gronemeier $
! Corrected "Former revisions" section
!
! 2696 2017-12-14 17:12:51Z kanani
! Change in file header (GPL part)
! + rans_mode, turbulence_closure (TG)
! Implementation of chemistry module (FK)
! Removal of chemistry module part. It is not needed and causes bugs (FK)
!
! 2576 2017-10-24 13:49:46Z Giersch
! The end of the standard parameter list is again marked with *** end *** like
! it was before revision 2563
!
! 2575 2017-10-24 09:57:58Z maronga
! Renamed phi -> latitude, added longitude
!
! 2574 2017-10-23 09:02:53Z Giersch
! Bugfix: Increased length of the character string *** end ***
!
! 2563 2017-10-19 15:36:10Z Giersch
! Function call wtm_write_restart_data was added and the end of the standard
! parameter list is now marked with *** end default ***. The end of the whole
! parameter list including module parameter is marked with *** end ***
!
! 2372 2017-08-25 12:37:32Z sward
! y_shift added to vars, version no. increased
!
! 2365 2017-08-21 14:59:59Z kanani
! Vertical nesting implemented (SadiqHuq)
!
! 2339 2017-08-07 13:55:26Z gronemeier
! corrected timestamp in header
!
! 2338 2017-08-07 12:15:38Z gronemeier
! Modularize 1D model
!
! 2265 2017-06-08 16:58:28Z schwenkel
! Unused variables removed.
!
! 2259 2017-06-08 09:09:11Z gronemeier
! Implemented synthetic turbulence generator
!
! 2233 2017-05-30 18:08:54Z suehring
!
! 2232 2017-05-30 17:47:52Z suehring
! Replace wall_qflux, wall_sflux by wall_humidityflux and wall_scalarflux; add
! wall_salinityflux
! +tunnel_height, tunnel_lenth, tunnel_width_x, tunnel_width_y,
! tunnel_wall_depth
!
! 2042 2016-11-02 13:47:31Z suehring
! Bugfix, write restart data for wall_heatflux, wall_qflux and wall_sflux
!
! 2000 2016-08-20 18:09:15Z knoop
! Forced header and separation lines into 80 columns
!
! 1992 2016-08-12 15:14:59Z suehring
! top scalarflux added
!
! 1957 2016-07-07 10:43:48Z suehring
! flight module added
!
! 1849 2016-04-08 11:33:18Z hoffmann
! Adapted for modularization of microphysics
!
! 1833 2016-04-07 14:23:03Z raasch
! spectra_mod added
!
! 1831 2016-04-07 13:15:51Z hoffmann
! turbulence renamed collision_turbulence, drizzle renamed
! cloud_water_sedimentation
!
! 1783 2016-03-06 18:36:17Z raasch
! netcdf module name changed + related changes
!
! 1705 2015-11-02 14:28:56Z maronga
! Bugfix: two lines required swapping
!
! 1691 2015-10-26 16:17:44Z maronga
! Added output of most_method, constant_flux_layer, zeta_min, zeta_max. Removed
! output of prandtl_layer and rif_min, rif_max.
!
! 1682 2015-10-07 23:56:08Z knoop
! Code annotations made doxygen readable
!
! 1585 2015-04-30 07:05:52Z maronga
! Adapted for RRTMG
!
! 1551 2015-03-03 14:18:16Z maronga
! Typo removed
!
! 1502 2014-12-03 18:22:31Z kanani
! Canopy module and parameters removed (parameters are always read from
! canopy_par NAMELIST for initial and restart runs),
! Bugfix: added blanks in "cloud_top_radiation"-string to a total of 30
! characters
!
! 1496 2014-12-02 17:25:50Z maronga
! Renamed "radiation" -> "cloud_top_radiation"
!
! 1484 2014-10-21 10:53:05Z kanani
! Changes in the course of the canopy-model modularization:
! parameters alpha_lad, beta_lad, lai_beta added,
! module plant_canopy_model_mod added,
! drag_coefficient, leaf_surface_concentration and scalar_exchange_coefficient
! renamed to canopy_drag_coeff, leaf_surface_conc and leaf_scalar_exch_coeff
!
! 1324 2014-03-21 09:13:16Z suehring
! Bugfix: ONLY statement for module netcdf_control removed
!
! 1320 2014-03-20 08:40:49Z raasch
! revision history before 2012 removed,
! comment fields (!:) to be used for variable explanations added to
! all variable declaration statements
!
! 1308 2014-03-13 14:58:42Z fricke
! +do2d_xy_time_count, do2d_xz_time_count, do2d_yz_time_count,
! +do3d_time_count
!
! 1241 2013-10-30 11:36:58Z heinze
! +nudging
! +large_scale_forcing
!
! 1179 2013-06-14 05:57:58Z raasch
! +reference_state, ref_state
!
! 1115 2013-03-26 18:16:16Z hoffmann
! unused variables removed
!
! 1065 2012-11-22 17:42:36Z hoffmann
! +nc, c_sedimentation, turbulence, limiter_sedimentation
! -mu_constant, mu_constant_value
!
! 1053 2012-11-13 17:11:03Z hoffmann
! necessary expansions according to the two new prognostic equations (nr, qr)
! of the two-moment cloud physics scheme:
! +bc_*_b, bc_*_t, bc_*_t_val, *_init, *_surface, *_surface_initial_change,
! +*_vertical_gradient, *_vertical_gradient_level, *_vertical_gradient_level_ind,
! +surface_waterflux_*
!
! in addition, steering parameters parameters of the two-moment cloud physics
! scheme:
! +cloud_scheme, +drizzle, +mu_constant, +mu_constant_value, +ventilation_effect
!
! 1036 2012-10-22 13:43:42Z raasch
! code put under GPL (PALM 3.9)
!
! 1015 2012-09-27 09:23:24Z raasch
! -adjust_mixing_length
!
! 1003 2012-09-14 14:35:53Z raasch
! -grid_matching
!
! 1001 2012-09-13 14:08:46Z raasch
! -cut_spline_overshoot, last_dt_change, long_filter_factor, overshoot_limit_*,
! ups_limit_*
!
! 978 2012-08-09 08:28:32Z fricke
! -km_damp_max, outflow_damping_width
! +pt_damping_factor, pt_damping_width
! +z0h_factor
!
! 940 2012-07-09 14:31:00Z raasch
! +neutral
!
! 927 2012-06-06 19:15:04Z raasch
! +masking_method
!
! 849 2012-03-15 10:35:09Z raasch
! first_call_advec_particles renamed first_call_lpm
!
! 824 2012-02-17 09:09:57Z raasch
! +curvature_solution_effects
!
! Revision 1.1 1998/03/18 20:20:38 raasch
! Initial revision
!
!
! Description:
! ------------
!> Writing values of control variables to restart-file (binary format).
!> This information are only written to the file opened by PE0.
!------------------------------------------------------------------------------!
SUBROUTINE write_var_list
USE arrays_3d, &
ONLY: inflow_damping_factor, mean_inflow_profiles, pt_init, &
q_init, ref_state, s_init, sa_init, u_init, ug, v_init, vg
USE control_parameters
USE flight_mod, &
ONLY: flight_write_restart_data
USE grid_variables, &
ONLY: dx, dy
USE indices, &
ONLY: nz, nx, ny
USE microphysics_mod, &
ONLY: c_sedimentation, cloud_water_sedimentation, &
collision_turbulence, limiter_sedimentation, nc_const, &
ventilation_effect
USE model_1d_mod, &
ONLY: damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d
USE netcdf_interface, &
ONLY: netcdf_precision, output_for_t0
USE particle_attributes, &
ONLY: curvature_solution_effects
USE pegrid
USE radiation_model_mod, &
ONLY: time_radiation
USE spectra_mod, &
ONLY: average_count_sp
USE synthetic_turbulence_generator_mod, &
ONLY: stg_write_restart_data
USE statistics, &
ONLY: statistic_regions, hom, hom_sum, u_max, u_max_ijk, v_max, &
v_max_ijk, w_max, w_max_ijk
USE vertical_nesting_mod, &
ONLY: vnest_init
USE wind_turbine_model_mod, &
ONLY: wtm_write_restart_data
IMPLICIT NONE
CHARACTER (LEN=10) :: binary_version !<
binary_version = '4.5'
WRITE ( 14 ) binary_version
WRITE ( 14 ) 'numprocs '
WRITE ( 14 ) numprocs
WRITE ( 14 ) 'hor_index_bounds '
WRITE ( 14 ) hor_index_bounds
WRITE ( 14 ) 'nz '
WRITE ( 14 ) nz
WRITE ( 14 ) 'max_pr_user '
WRITE ( 14 ) max_pr_user
WRITE ( 14 ) 'statistic_regions '
WRITE ( 14 ) statistic_regions
!
!-- Caution: After changes in the following parameter-list, the
!-- ------- version number stored in the variable binary_version has to be
!-- increased. The same changes must also be done in the parameter-
!-- list in read_var_list.
WRITE ( 14 ) 'advected_distance_x '
WRITE ( 14 ) advected_distance_x
WRITE ( 14 ) 'advected_distance_y '
WRITE ( 14 ) advected_distance_y
WRITE ( 14 ) 'alpha_surface '
WRITE ( 14 ) alpha_surface
WRITE ( 14 ) 'average_count_pr '
WRITE ( 14 ) average_count_pr
WRITE ( 14 ) 'average_count_sp '
WRITE ( 14 ) average_count_sp
WRITE ( 14 ) 'average_count_3d '
WRITE ( 14 ) average_count_3d
WRITE ( 14 ) 'bc_e_b '
WRITE ( 14 ) bc_e_b
WRITE ( 14 ) 'bc_lr '
WRITE ( 14 ) bc_lr
WRITE ( 14 ) 'bc_ns '
WRITE ( 14 ) bc_ns
WRITE ( 14 ) 'bc_p_b '
WRITE ( 14 ) bc_p_b
WRITE ( 14 ) 'bc_p_t '
WRITE ( 14 ) bc_p_t
WRITE ( 14 ) 'bc_pt_b '
WRITE ( 14 ) bc_pt_b
WRITE ( 14 ) 'bc_pt_t '
WRITE ( 14 ) bc_pt_t
WRITE ( 14 ) 'bc_pt_t_val '
WRITE ( 14 ) bc_pt_t_val
WRITE ( 14 ) 'bc_q_b '
WRITE ( 14 ) bc_q_b
WRITE ( 14 ) 'bc_q_t '
WRITE ( 14 ) bc_q_t
WRITE ( 14 ) 'bc_q_t_val '
WRITE ( 14 ) bc_q_t_val
WRITE ( 14 ) 'bc_s_b '
WRITE ( 14 ) bc_s_b
WRITE ( 14 ) 'bc_s_t '
WRITE ( 14 ) bc_s_t
WRITE ( 14 ) 'bc_sa_t '
WRITE ( 14 ) bc_sa_t
WRITE ( 14 ) 'bc_uv_b '
WRITE ( 14 ) bc_uv_b
WRITE ( 14 ) 'bc_uv_t '
WRITE ( 14 ) bc_uv_t
WRITE ( 14 ) 'bottom_salinityflux '
WRITE ( 14 ) bottom_salinityflux
WRITE ( 14 ) 'building_height '
WRITE ( 14 ) building_height
WRITE ( 14 ) 'building_length_x '
WRITE ( 14 ) building_length_x
WRITE ( 14 ) 'building_length_y '
WRITE ( 14 ) building_length_y
WRITE ( 14 ) 'building_wall_left '
WRITE ( 14 ) building_wall_left
WRITE ( 14 ) 'building_wall_south '
WRITE ( 14 ) building_wall_south
WRITE ( 14 ) 'call_psolver_at_all_substeps '
WRITE ( 14 ) call_psolver_at_all_substeps
WRITE ( 14 ) 'canyon_height '
WRITE ( 14 ) canyon_height
WRITE ( 14 ) 'canyon_width_x '
WRITE ( 14 ) canyon_width_x
WRITE ( 14 ) 'canyon_width_y '
WRITE ( 14 ) canyon_width_y
WRITE ( 14 ) 'canyon_wall_left '
WRITE ( 14 ) canyon_wall_left
WRITE ( 14 ) 'canyon_wall_south '
WRITE ( 14 ) canyon_wall_south
WRITE ( 14 ) 'c_sedimentation '
WRITE ( 14 ) c_sedimentation
WRITE ( 14 ) 'cfl_factor '
WRITE ( 14 ) cfl_factor
WRITE ( 14 ) 'cloud_droplets '
WRITE ( 14 ) cloud_droplets
WRITE ( 14 ) 'cloud_physics '
WRITE ( 14 ) cloud_physics
WRITE ( 14 ) 'cloud_scheme '
WRITE ( 14 ) cloud_scheme
WRITE ( 14 ) 'collective_wait '
WRITE ( 14 ) collective_wait
WRITE ( 14 ) 'conserve_volume_flow '
WRITE ( 14 ) conserve_volume_flow
WRITE ( 14 ) 'conserve_volume_flow_mode '
WRITE ( 14 ) conserve_volume_flow_mode
WRITE ( 14 ) 'coupling_start_time '
WRITE ( 14 ) coupling_start_time
WRITE ( 14 ) 'constant_flux_layer '
WRITE ( 14 ) constant_flux_layer
WRITE ( 14 ) 'current_timestep_number '
WRITE ( 14 ) current_timestep_number
WRITE ( 14 ) 'curvature_solution_effects '
WRITE ( 14 ) curvature_solution_effects
WRITE ( 14 ) 'cycle_mg '
WRITE ( 14 ) cycle_mg
WRITE ( 14 ) 'damp_level_1d '
WRITE ( 14 ) damp_level_1d
WRITE ( 14 ) 'dissipation_1d '
WRITE ( 14 ) dissipation_1d
WRITE ( 14 ) 'do2d_xy_time_count '
WRITE ( 14 ) do2d_xy_time_count
WRITE ( 14 ) 'do2d_xz_time_count '
WRITE ( 14 ) do2d_xz_time_count
WRITE ( 14 ) 'do2d_yz_time_count '
WRITE ( 14 ) do2d_yz_time_count
WRITE ( 14 ) 'do3d_time_count '
WRITE ( 14 ) do3d_time_count
WRITE ( 14 ) 'dp_external '
WRITE ( 14 ) dp_external
WRITE ( 14 ) 'dp_level_b '
WRITE ( 14 ) dp_level_b
WRITE ( 14 ) 'dp_smooth '
WRITE ( 14 ) dp_smooth
WRITE ( 14 ) 'dpdxy '
WRITE ( 14 ) dpdxy
WRITE ( 14 ) 'cloud_water_sedimentation '
WRITE ( 14 ) cloud_water_sedimentation
WRITE ( 14 ) 'dt_pr_1d '
WRITE ( 14 ) dt_pr_1d
WRITE ( 14 ) 'dt_run_control_1d '
WRITE ( 14 ) dt_run_control_1d
WRITE ( 14 ) 'dt_3d '
WRITE ( 14 ) dt_3d
WRITE ( 14 ) 'dvrp_filecount '
WRITE ( 14 ) dvrp_filecount
WRITE ( 14 ) 'dx '
WRITE ( 14 ) dx
WRITE ( 14 ) 'dy '
WRITE ( 14 ) dy
WRITE ( 14 ) 'dz '
WRITE ( 14 ) dz
WRITE ( 14 ) 'dz_max '
WRITE ( 14 ) dz_max
WRITE ( 14 ) 'dz_stretch_factor '
WRITE ( 14 ) dz_stretch_factor
WRITE ( 14 ) 'dz_stretch_level '
WRITE ( 14 ) dz_stretch_level
WRITE ( 14 ) 'e_min '
WRITE ( 14 ) e_min
WRITE ( 14 ) 'end_time_1d '
WRITE ( 14 ) end_time_1d
WRITE ( 14 ) 'fft_method '
WRITE ( 14 ) fft_method
WRITE ( 14 ) 'first_call_lpm '
WRITE ( 14 ) first_call_lpm
WRITE ( 14 ) 'galilei_transformation '
WRITE ( 14 ) galilei_transformation
WRITE ( 14 ) 'hom '
WRITE ( 14 ) hom
WRITE ( 14 ) 'hom_sum '
WRITE ( 14 ) hom_sum
WRITE ( 14 ) 'humidity '
WRITE ( 14 ) humidity
IF ( ALLOCATED( inflow_damping_factor ) ) THEN
WRITE ( 14 ) 'inflow_damping_factor '
WRITE ( 14 ) inflow_damping_factor
ENDIF
WRITE ( 14 ) 'inflow_damping_height '
WRITE ( 14 ) inflow_damping_height
WRITE ( 14 ) 'inflow_damping_width '
WRITE ( 14 ) inflow_damping_width
WRITE ( 14 ) 'inflow_disturbance_begin '
WRITE ( 14 ) inflow_disturbance_begin
WRITE ( 14 ) 'inflow_disturbance_end '
WRITE ( 14 ) inflow_disturbance_end
WRITE ( 14 ) 'km_constant '
WRITE ( 14 ) km_constant
WRITE ( 14 ) 'large_scale_forcing '
WRITE ( 14 ) large_scale_forcing
WRITE ( 14 ) 'large_scale_subsidence '
WRITE ( 14 ) large_scale_subsidence
WRITE ( 14 ) 'limiter_sedimentation '
WRITE ( 14 ) limiter_sedimentation
WRITE ( 14 ) 'loop_optimization '
WRITE ( 14 ) loop_optimization
WRITE ( 14 ) 'masking_method '
WRITE ( 14 ) masking_method
IF ( ALLOCATED( mean_inflow_profiles ) ) THEN
WRITE ( 14 ) 'mean_inflow_profiles '
WRITE ( 14 ) mean_inflow_profiles
ENDIF
WRITE ( 14 ) 'mg_cycles '
WRITE ( 14 ) mg_cycles
WRITE ( 14 ) 'mg_switch_to_pe0_level '
WRITE ( 14 ) mg_switch_to_pe0_level
WRITE ( 14 ) 'mixing_length_1d '
WRITE ( 14 ) mixing_length_1d
WRITE ( 14 ) 'momentum_advec '
WRITE ( 14 ) momentum_advec
WRITE ( 14 ) 'most_method '
WRITE ( 14 ) most_method
WRITE ( 14 ) 'nc_const '
WRITE ( 14 ) nc_const
WRITE ( 14 ) 'netcdf_precision '
WRITE ( 14 ) netcdf_precision
WRITE ( 14 ) 'neutral '
WRITE ( 14 ) neutral
WRITE ( 14 ) 'ngsrb '
WRITE ( 14 ) ngsrb
WRITE ( 14 ) 'nsor '
WRITE ( 14 ) nsor
WRITE ( 14 ) 'nsor_ini '
WRITE ( 14 ) nsor_ini
WRITE ( 14 ) 'nudging '
WRITE ( 14 ) nudging
WRITE ( 14 ) 'num_leg '
WRITE ( 14 ) num_leg
WRITE ( 14 ) 'nx '
WRITE ( 14 ) nx
WRITE ( 14 ) 'ny '
WRITE ( 14 ) ny
WRITE ( 14 ) 'ocean '
WRITE ( 14 ) ocean
WRITE ( 14 ) 'old_dt '
WRITE ( 14 ) old_dt
WRITE ( 14 ) 'omega '
WRITE ( 14 ) omega
WRITE ( 14 ) 'omega_sor '
WRITE ( 14 ) omega_sor
WRITE ( 14 ) 'output_for_t0 '
WRITE ( 14 ) output_for_t0
WRITE ( 14 ) 'passive_scalar '
WRITE ( 14 ) passive_scalar
WRITE ( 14 ) 'latitude '
WRITE ( 14 ) latitude
WRITE ( 14 ) 'longitude '
WRITE ( 14 ) longitude
WRITE ( 14 ) 'prandtl_number '
WRITE ( 14 ) prandtl_number
WRITE ( 14 ) 'precipitation '
WRITE ( 14 ) precipitation
WRITE ( 14 ) 'psolver '
WRITE ( 14 ) psolver
WRITE ( 14 ) 'pt_damping_factor '
WRITE ( 14 ) pt_damping_factor
WRITE ( 14 ) 'pt_damping_width '
WRITE ( 14 ) pt_damping_width
WRITE ( 14 ) 'pt_init '
WRITE ( 14 ) pt_init
WRITE ( 14 ) 'pt_reference '
WRITE ( 14 ) pt_reference
WRITE ( 14 ) 'pt_surface '
WRITE ( 14 ) pt_surface
WRITE ( 14 ) 'pt_surface_initial_change '
WRITE ( 14 ) pt_surface_initial_change
WRITE ( 14 ) 'pt_vertical_gradient '
WRITE ( 14 ) pt_vertical_gradient
WRITE ( 14 ) 'pt_vertical_gradient_level '
WRITE ( 14 ) pt_vertical_gradient_level
WRITE ( 14 ) 'pt_vertical_gradient_level_ind'
WRITE ( 14 ) pt_vertical_gradient_level_ind
WRITE ( 14 ) 'q_init '
WRITE ( 14 ) q_init
WRITE ( 14 ) 'q_surface '
WRITE ( 14 ) q_surface
WRITE ( 14 ) 'q_surface_initial_change '
WRITE ( 14 ) q_surface_initial_change
WRITE ( 14 ) 'q_vertical_gradient '
WRITE ( 14 ) q_vertical_gradient
WRITE ( 14 ) 'q_vertical_gradient_level '
WRITE ( 14 ) q_vertical_gradient_level
WRITE ( 14 ) 'q_vertical_gradient_level_ind '
WRITE ( 14 ) q_vertical_gradient_level_ind
WRITE ( 14 ) 'cloud_top_radiation '
WRITE ( 14 ) cloud_top_radiation
WRITE ( 14 ) 'random_generator '
WRITE ( 14 ) random_generator
WRITE ( 14 ) 'random_heatflux '
WRITE ( 14 ) random_heatflux
WRITE ( 14 ) 'rans_mode '
WRITE ( 14 ) rans_mode
WRITE ( 14 ) 'rayleigh_damping_factor '
WRITE ( 14 ) rayleigh_damping_factor
WRITE ( 14 ) 'rayleigh_damping_height '
WRITE ( 14 ) rayleigh_damping_height
WRITE ( 14 ) 'recycling_width '
WRITE ( 14 ) recycling_width
WRITE ( 14 ) 'reference_state '
WRITE ( 14 ) reference_state
WRITE ( 14 ) 'ref_state '
WRITE ( 14 ) ref_state
WRITE ( 14 ) 'residual_limit '
WRITE ( 14 ) residual_limit
WRITE ( 14 ) 'roughness_length '
WRITE ( 14 ) roughness_length
WRITE ( 14 ) 'runnr '
WRITE ( 14 ) runnr
WRITE ( 14 ) 'run_coupled '
WRITE ( 14 ) run_coupled
WRITE ( 14 ) 's_init '
WRITE ( 14 ) s_init
WRITE ( 14 ) 's_surface '
WRITE ( 14 ) s_surface
WRITE ( 14 ) 's_surface_initial_change '
WRITE ( 14 ) s_surface_initial_change
WRITE ( 14 ) 's_vertical_gradient '
WRITE ( 14 ) s_vertical_gradient
WRITE ( 14 ) 's_vertical_gradient_level '
WRITE ( 14 ) s_vertical_gradient_level
WRITE ( 14 ) 's_vertical_gradient_level_ind '
WRITE ( 14 ) s_vertical_gradient_level_ind
WRITE ( 14 ) 'sa_init '
WRITE ( 14 ) sa_init
WRITE ( 14 ) 'sa_surface '
WRITE ( 14 ) sa_surface
WRITE ( 14 ) 'sa_vertical_gradient '
WRITE ( 14 ) sa_vertical_gradient
WRITE ( 14 ) 'sa_vertical_gradient_level '
WRITE ( 14 ) sa_vertical_gradient_level
WRITE ( 14 ) 'scalar_advec '
WRITE ( 14 ) scalar_advec
WRITE ( 14 ) 'simulated_time '
WRITE ( 14 ) simulated_time
WRITE ( 14 ) 'surface_heatflux '
WRITE ( 14 ) surface_heatflux
WRITE ( 14 ) 'surface_pressure '
WRITE ( 14 ) surface_pressure
WRITE ( 14 ) 'surface_scalarflux '
WRITE ( 14 ) surface_scalarflux
WRITE ( 14 ) 'surface_waterflux '
WRITE ( 14 ) surface_waterflux
WRITE ( 14 ) 's_surface '
WRITE ( 14 ) s_surface
WRITE ( 14 ) 's_surface_initial_change '
WRITE ( 14 ) s_surface_initial_change
WRITE ( 14 ) 's_vertical_gradient '
WRITE ( 14 ) s_vertical_gradient
WRITE ( 14 ) 's_vertical_gradient_level '
WRITE ( 14 ) s_vertical_gradient_level
WRITE ( 14 ) 'time_coupling '
WRITE ( 14 ) time_coupling
WRITE ( 14 ) 'time_disturb '
WRITE ( 14 ) time_disturb
WRITE ( 14 ) 'time_domask '
WRITE ( 14 ) time_domask
WRITE ( 14 ) 'time_dopr '
WRITE ( 14 ) time_dopr
WRITE ( 14 ) 'time_dopr_av '
WRITE ( 14 ) time_dopr_av
WRITE ( 14 ) 'time_dopr_listing '
WRITE ( 14 ) time_dopr_listing
WRITE ( 14 ) 'time_dopts '
WRITE ( 14 ) time_dopts
WRITE ( 14 ) 'time_dosp '
WRITE ( 14 ) time_dosp
WRITE ( 14 ) 'time_dots '
WRITE ( 14 ) time_dots
WRITE ( 14 ) 'time_do2d_xy '
WRITE ( 14 ) time_do2d_xy
WRITE ( 14 ) 'time_do2d_xz '
WRITE ( 14 ) time_do2d_xz
WRITE ( 14 ) 'time_do2d_yz '
WRITE ( 14 ) time_do2d_yz
WRITE ( 14 ) 'time_do3d '
WRITE ( 14 ) time_do3d
WRITE ( 14 ) 'time_do_av '
WRITE ( 14 ) time_do_av
WRITE ( 14 ) 'time_do_sla '
WRITE ( 14 ) time_do_sla
WRITE ( 14 ) 'time_dvrp '
WRITE ( 14 ) time_dvrp
WRITE ( 14 ) 'time_radiation '
WRITE ( 14 ) time_radiation
WRITE ( 14 ) 'time_restart '
WRITE ( 14 ) time_restart
WRITE ( 14 ) 'time_run_control '
WRITE ( 14 ) time_run_control
WRITE ( 14 ) 'time_since_reference_point '
WRITE ( 14 ) time_since_reference_point
WRITE ( 14 ) 'timestep_scheme '
WRITE ( 14 ) timestep_scheme
WRITE ( 14 ) 'topography '
WRITE ( 14 ) topography
WRITE ( 14 ) 'topography_grid_convention '
WRITE ( 14 ) topography_grid_convention
WRITE ( 14 ) 'top_heatflux '
WRITE ( 14 ) top_heatflux
WRITE ( 14 ) 'top_momentumflux_u '
WRITE ( 14 ) top_momentumflux_u
WRITE ( 14 ) 'top_momentumflux_v '
WRITE ( 14 ) top_momentumflux_v
WRITE ( 14 ) 'top_salinityflux '
WRITE ( 14 ) top_salinityflux
WRITE ( 14 ) 'top_scalarflux '
WRITE ( 14 ) top_scalarflux
WRITE ( 14 ) 'tsc '
WRITE ( 14 ) tsc
WRITE ( 14 ) 'tunnel_height '
WRITE ( 14 ) tunnel_height
WRITE ( 14 ) 'tunnel_length '
WRITE ( 14 ) tunnel_length
WRITE ( 14 ) 'tunnel_width_x '
WRITE ( 14 ) tunnel_width_x
WRITE ( 14 ) 'tunnel_width_y '
WRITE ( 14 ) tunnel_width_y
WRITE ( 14 ) 'tunnel_wall_depth '
WRITE ( 14 ) tunnel_wall_depth
WRITE ( 14 ) 'turbulence_closure '
WRITE ( 14 ) turbulence_closure
WRITE ( 14 ) 'collision_turbulence '
WRITE ( 14 ) collision_turbulence
WRITE ( 14 ) 'turbulent_inflow '
WRITE ( 14 ) turbulent_inflow
WRITE ( 14 ) 'u_bulk '
WRITE ( 14 ) u_bulk
WRITE ( 14 ) 'u_init '
WRITE ( 14 ) u_init
WRITE ( 14 ) 'u_max '
WRITE ( 14 ) u_max
WRITE ( 14 ) 'u_max_ijk '
WRITE ( 14 ) u_max_ijk
WRITE ( 14 ) 'ug '
WRITE ( 14 ) ug
WRITE ( 14 ) 'ug_surface '
WRITE ( 14 ) ug_surface
WRITE ( 14 ) 'ug_vertical_gradient '
WRITE ( 14 ) ug_vertical_gradient
WRITE ( 14 ) 'ug_vertical_gradient_level '
WRITE ( 14 ) ug_vertical_gradient_level
WRITE ( 14 ) 'ug_vertical_gradient_level_ind'
WRITE ( 14 ) ug_vertical_gradient_level_ind
WRITE ( 14 ) 'use_surface_fluxes '
WRITE ( 14 ) use_surface_fluxes
WRITE ( 14 ) 'use_top_fluxes '
WRITE ( 14 ) use_top_fluxes
WRITE ( 14 ) 'use_ug_for_galilei_tr '
WRITE ( 14 ) use_ug_for_galilei_tr
WRITE ( 14 ) 'use_upstream_for_tke '
WRITE ( 14 ) use_upstream_for_tke
WRITE ( 14 ) 'v_bulk '
WRITE ( 14 ) v_bulk
WRITE ( 14 ) 'v_init '
WRITE ( 14 ) v_init
WRITE ( 14 ) 'v_max '
WRITE ( 14 ) v_max
WRITE ( 14 ) 'v_max_ijk '
WRITE ( 14 ) v_max_ijk
WRITE ( 14 ) 'ventilation_effect '
WRITE ( 14 ) ventilation_effect
WRITE ( 14 ) 'vg '
WRITE ( 14 ) vg
WRITE ( 14 ) 'vg_surface '
WRITE ( 14 ) vg_surface
WRITE ( 14 ) 'vg_vertical_gradient '
WRITE ( 14 ) vg_vertical_gradient
WRITE ( 14 ) 'vg_vertical_gradient_level '
WRITE ( 14 ) vg_vertical_gradient_level
WRITE ( 14 ) 'vg_vertical_gradient_level_ind'
WRITE ( 14 ) vg_vertical_gradient_level_ind
WRITE ( 14 ) 'virtual_flight '
WRITE ( 14 ) virtual_flight
WRITE ( 14 ) 'vnest_init '
WRITE ( 14 ) vnest_init
WRITE ( 14 ) 'volume_flow_area '
WRITE ( 14 ) volume_flow_area
WRITE ( 14 ) 'volume_flow_initial '
WRITE ( 14 ) volume_flow_initial
WRITE ( 14 ) 'wall_adjustment '
WRITE ( 14 ) wall_adjustment
WRITE ( 14 ) 'subs_vertical_gradient '
WRITE ( 14 ) subs_vertical_gradient
WRITE ( 14 ) 'subs_vertical_gradient_level '
WRITE ( 14 ) subs_vertical_gradient_level
WRITE ( 14 ) 'subs_vertical_gradient_level_i'
WRITE ( 14 ) subs_vertical_gradient_level_i
WRITE ( 14 ) 'wall_heatflux '
WRITE ( 14 ) wall_heatflux
WRITE ( 14 ) 'wall_humidityflux '
WRITE ( 14 ) wall_humidityflux
WRITE ( 14 ) 'wall_scalarflux '
WRITE ( 14 ) wall_scalarflux
WRITE ( 14 ) 'wall_salinityflux '
WRITE ( 14 ) wall_salinityflux
WRITE ( 14 ) 'w_max '
WRITE ( 14 ) w_max
WRITE ( 14 ) 'w_max_ijk '
WRITE ( 14 ) w_max_ijk
WRITE ( 14 ) 'y_shift '
WRITE ( 14 ) y_shift
WRITE ( 14 ) 'zeta_max '
WRITE ( 14 ) zeta_max
WRITE ( 14 ) 'zeta_min '
WRITE ( 14 ) zeta_min
WRITE ( 14 ) 'z0h_factor '
WRITE ( 14 ) z0h_factor
!
!-- Set the end-of-file mark for default parameter
WRITE ( 14 ) '*** end *** '
!
!-- ADD NEW "CALL _skip_var_list" BELOW THE LAST CALL
!-- (The order of the calls MUST be the same as in parin, and
!-- read/skip_var_list)!
!
!-- If required, write restart data for wind turbine model.
IF ( wind_turbine ) CALL wtm_write_restart_data
!
!-- If required, write restart data for virtual measurements.
IF ( virtual_flight ) CALL flight_write_restart_data
!
!-- If required, write restart data for virtual measurements.
IF ( synthetic_turbulence_generator ) CALL stg_write_restart_data
END SUBROUTINE write_var_list