Changeset 1320 for palm/trunk/SOURCE/write_var_list.f90

Timestamp:

Mar 20, 2014 8:40:49 AM (10 years ago)

Author:

raasch

Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:

• palm/trunk/SOURCE/write_var_list.f90 (modified) (3 diffs)

palm/trunk/SOURCE/write_var_list.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! revision history before 2012 removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements 
 !
 !
@@ -85 +88 @@
 ! +curvature_solution_effects
 !
-! 622 2010-12-10 08:08:13Z raasch
-! +collective_wait
-!
-! 600 2010-11-24 16:10:51Z raasch
-! +call_psolver_at_all_substeps, cfl_factor, cycle_mg, mg_cycles,
-! mg_switch_to_pe0_level, ngsrb, nsor, omega_sor, psolver,
-! rayleigh_damping_factor, rayleigh_damping_height, residual_limit
-!
-! 589 2010-10-27 14:21:29Z heinze
-! bugfix: character string of subs_vertical_gradient and 
-! subs_vertical_gradient_level shortened to 30 characters
-!
-! 587 2010-10-27 08:36:51Z helmke
-! +time_domask
-!
-! 580 2010-10-05 13:59:11Z heinze
-! Renaming of ws_vertical_gradient to subs_vertical_gradient,
-! ws_vertical_gradient_level to subs_vertical_gradient_level and
-! ws_vertical_gradient_level_ind to subs_vertical_gradient_level_i
-!
-! 411 2009-12-11 14:15:58Z heinze
-! +large_scale_subsidence, ws_vertical_gradient, ws_vertical_gradient_level,
-! ws_vertical_gradient_level_ind
-!
-! 345 2009-07-01 14:37:56Z heinze
-! +output_for_t0 
-! bugfix: -dt_fixed, because otherwise, restart runs cannot change from a
-! fixed to a free timestep.
-! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left, 
-! canyon_wall_south, conserve_volume_flow_mode, coupling_start_time,
-! dp_external, dp_level_b, dp_smooth, dpdxy, run_coupled,
-! time_since_reference_point, topography_grid_convention, u_bulk, v_bulk
-!
-! 153 2008-03-19 09:41:30Z steinfeld
-! +cthf, leaf_surface_concentration, scalar_exchange_coefficient
-! +numprocs, hor_index_bounds, inflow_damping_height, inflow_damping_width,
-! mean_inflow_profiles, recycling_width, turbulent_inflow,
-! -cross_ts_*, npex, npey
-! hom_sum, volume_flow_area, volume_flow_initial moved from write_3d_binary
-! to here
-!
-! 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
@@ -162 +98 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE averaging
-    USE cloud_parameters
+    USE arrays_3d,                                                             &
+        ONLY:  inflow_damping_factor, lad, mean_inflow_profiles, pt_init,      &
+               q_init, ref_state, sa_init, u_init, ug, v_init, vg
+    
+    USE cloud_parameters,                                                      &
+        ONLY:  c_sedimentation, curvature_solution_effects,                    &
+               limiter_sedimentation, nc_const, ventilation_effect
+    
     USE control_parameters
-    USE grid_variables
-    USE indices
-    USE model_1d
-    USE netcdf_control
-    USE particle_attributes
+    
+    USE grid_variables,                                                        &
+        ONLY:  dx, dy
+    
+    USE indices,                                                               &
+        ONLY:  nz, nx, ny
+    
+    USE model_1d,                                                              &
+        ONLY:  damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d
+    
+    USE netcdf_control,                                                        &
+        ONLY:  output_for_t0
+    
+    USE particle_attributes,                                                   &
+        ONLY:  time_sort_particles
+    
     USE pegrid
-    USE profil_parameter
-    USE statistics
-
+    
+    USE statistics,                                                            &
+        ONLY:  statistic_regions, hom, hom_sum, u_max, u_max_ijk, v_max,       &
+               v_max_ijk, w_max, w_max_ijk
+    
     IMPLICIT NONE
 
-    CHARACTER (LEN=10) ::  binary_version
+    CHARACTER (LEN=10) ::  binary_version   !: