SUBROUTINE write_var_list !------------------------------------------------------------------------------! ! Actual revisions: ! ----------------- ! +numprocs, hor_index_bounds, -cross_ts_*, npex, npey ! hom_sum, volume_flow_area, volume_flow_initial moved from write_3d_binary ! to here ! ! Former revisions: ! ----------------- ! $Id: write_var_list.f90 145 2008-01-09 08:17:38Z letzel $ ! ! 138 2007-11-28 10:03:58Z letzel ! +canopy_mode, drag_coefficient, lad, lad_surface, lad_vertical_gradient, ! lad_vertical_gradient_level, lad_vertical_gradient_level_ind, pch_index, ! plant_canopy, time_sort_particles ! ! 102 2007-07-27 09:09:17Z raasch ! +top_momentumflux_u|v, time_coupling ! ! 95 2007-06-02 16:48:38Z raasch ! +bc_sa_t, ocean, sa_init, sa_surface, sa_vertical_gradient, ! sa_vertical_gradient_level, bottom/top_salinity_flux ! ! 87 2007-05-22 15:46:47Z raasch ! +max_pr_user (version 3.1) ! ! 75 2007-03-22 09:54:05Z raasch ! +loop_optimization, pt_refrence, moisture renamed humidity ! ! 20 2007-02-26 00:12:32Z raasch ! +top_heatflux, use_top_fluxes ! ! RCS Log replace by Id keyword, revision history cleaned up ! ! Revision 1.34 2006/08/22 14:30:52 raasch ! +dz_max ! ! Revision 1.1 1998/03/18 20:20:38 raasch ! Initial revision ! ! ! Description: ! ------------ ! Writing values of control variables to restart-file (binary format). ! These informations are only written to the file opened by PE0. !------------------------------------------------------------------------------! USE arrays_3d USE averaging USE control_parameters USE grid_variables USE indices USE model_1d USE particle_attributes USE pegrid USE profil_parameter USE statistics IMPLICIT NONE CHARACTER (LEN=10) :: binary_version binary_version = '3.2' 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 ) 'adjust_mixing_length ' WRITE ( 14 ) adjust_mixing_length 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 ) 'canopy_mode ' WRITE ( 14 ) canopy_mode WRITE ( 14 ) 'cloud_droplets ' WRITE ( 14 ) cloud_droplets WRITE ( 14 ) 'cloud_physics ' WRITE ( 14 ) cloud_physics WRITE ( 14 ) 'conserve_volume_flow ' WRITE ( 14 ) conserve_volume_flow WRITE ( 14 ) 'current_timestep_number ' WRITE ( 14 ) current_timestep_number WRITE ( 14 ) 'cut_spline_overshoot ' WRITE ( 14 ) cut_spline_overshoot WRITE ( 14 ) 'damp_level_1d ' WRITE ( 14 ) damp_level_1d WRITE ( 14 ) 'dissipation_1d ' WRITE ( 14 ) dissipation_1d WRITE ( 14 ) 'drag_coefficient ' WRITE ( 14 ) drag_coefficient WRITE ( 14 ) 'dt_fixed ' WRITE ( 14 ) dt_fixed 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_advec_particles ' WRITE ( 14 ) first_call_advec_particles WRITE ( 14 ) 'galilei_transformation ' WRITE ( 14 ) galilei_transformation WRITE ( 14 ) 'grid_matching ' WRITE ( 14 ) grid_matching WRITE ( 14 ) 'hom ' WRITE ( 14 ) hom WRITE ( 14 ) 'hom_sum ' WRITE ( 14 ) hom_sum 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 ) 'km_damp_max ' WRITE ( 14 ) km_damp_max WRITE ( 14 ) 'lad ' WRITE ( 14 ) lad WRITE ( 14 ) 'lad_surface ' WRITE ( 14 ) lad_surface WRITE ( 14 ) 'lad_vertical_gradient ' WRITE ( 14 ) lad_vertical_gradient WRITE ( 14 ) 'lad_vertical_gradient_level ' WRITE ( 14 ) lad_vertical_gradient_level WRITE ( 14 ) 'lad_vertical_gradient_level_in' WRITE ( 14 ) lad_vertical_gradient_level_ind WRITE ( 14 ) 'last_dt_change ' WRITE ( 14 ) last_dt_change WRITE ( 14 ) 'long_filter_factor ' WRITE ( 14 ) long_filter_factor WRITE ( 14 ) 'loop_optimization ' WRITE ( 14 ) loop_optimization WRITE ( 14 ) 'mixing_length_1d ' WRITE ( 14 ) mixing_length_1d WRITE ( 14 ) 'humidity ' WRITE ( 14 ) humidity WRITE ( 14 ) 'momentum_advec ' WRITE ( 14 ) momentum_advec WRITE ( 14 ) 'netcdf_precision ' WRITE ( 14 ) netcdf_precision WRITE ( 14 ) 'nsor_ini ' WRITE ( 14 ) nsor_ini 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 ) 'outflow_damping_width ' WRITE ( 14 ) outflow_damping_width WRITE ( 14 ) 'overshoot_limit_e ' WRITE ( 14 ) overshoot_limit_e WRITE ( 14 ) 'overshoot_limit_pt ' WRITE ( 14 ) overshoot_limit_pt WRITE ( 14 ) 'overshoot_limit_u ' WRITE ( 14 ) overshoot_limit_u WRITE ( 14 ) 'overshoot_limit_v ' WRITE ( 14 ) overshoot_limit_v WRITE ( 14 ) 'overshoot_limit_w ' WRITE ( 14 ) overshoot_limit_w WRITE ( 14 ) 'passive_scalar ' WRITE ( 14 ) passive_scalar WRITE ( 14 ) 'pch_index ' WRITE ( 14 ) pch_index WRITE ( 14 ) 'phi ' WRITE ( 14 ) phi WRITE ( 14 ) 'plant_canopy ' WRITE ( 14 ) plant_canopy WRITE ( 14 ) 'prandtl_layer ' WRITE ( 14 ) prandtl_layer WRITE ( 14 ) 'precipitation ' WRITE ( 14 ) precipitation 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 ) 'radiation ' WRITE ( 14 ) radiation WRITE ( 14 ) 'random_generator ' WRITE ( 14 ) random_generator WRITE ( 14 ) 'random_heatflux ' WRITE ( 14 ) random_heatflux WRITE ( 14 ) 'rif_max ' WRITE ( 14 ) rif_max WRITE ( 14 ) 'rif_min ' WRITE ( 14 ) rif_min WRITE ( 14 ) 'roughness_length ' WRITE ( 14 ) roughness_length WRITE ( 14 ) 'runnr ' WRITE ( 14 ) runnr 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_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_restart ' WRITE ( 14 ) time_restart WRITE ( 14 ) 'time_run_control ' WRITE ( 14 ) time_run_control WRITE ( 14 ) 'time_sort_particles ' WRITE ( 14 ) time_sort_particles WRITE ( 14 ) 'timestep_scheme ' WRITE ( 14 ) timestep_scheme WRITE ( 14 ) 'topography ' WRITE ( 14 ) topography 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 ) 'tsc ' WRITE ( 14 ) tsc 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 ) 'ups_limit_e ' WRITE ( 14 ) ups_limit_e WRITE ( 14 ) 'ups_limit_pt ' WRITE ( 14 ) ups_limit_pt WRITE ( 14 ) 'ups_limit_u ' WRITE ( 14 ) ups_limit_u WRITE ( 14 ) 'ups_limit_v ' WRITE ( 14 ) ups_limit_v WRITE ( 14 ) 'ups_limit_w ' WRITE ( 14 ) ups_limit_w 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_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 ) '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 ) '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 ) 'w_max ' WRITE ( 14 ) w_max WRITE ( 14 ) 'w_max_ijk ' WRITE ( 14 ) w_max_ijk ! !-- Set the end-of-file mark WRITE ( 14 ) '*** end *** ' END SUBROUTINE write_var_list