Changes in palm/trunk/SOURCE/modules.f90 [3:1]

File:

• palm/trunk/SOURCE/modules.f90 (modified) (1 diff)

palm/trunk/SOURCE/modules.f90

@@ -9 +9 @@
 ! Former revisions:
 ! -----------------
-! $Id$
-! RCS Log replace by Id keyword, revision history cleaned up
-!
+! $Log: modules.f90,v $
 ! Revision 1.95  2007/02/11 13:18:30  raasch
 ! version 3.1b (last under RCS control)
+!
+! Revision 1.94  2006/08/22 14:12:18  raasch
+! +dz_max,
+! id_var_dopts extended for second dimension
+!
+! Revision 1.93  2006/08/04 14:50:58  raasch
+! +c_0, diss, dt_min_part, end_time_prel, particles_per_point, sgs_wfu/v/w_part,
+! use_sgs_for_particles, use_upstream_for_tke needed for the particle package,
+! +dt_sum, e_m, speed_x/y/z/_sgs in particle_type,
+! +dt_dopts, time_dopts, netcdf ids for output of particle time series,
+! do2d_unit and do3d_unit now defined as 2d-arrays, izuf renamed iran
+!
+! Revision 1.92  2006/06/02 15:21:45  raasch
+! +NetCDF ids for the shifted u- and v-grid, +data_output_xy/xz/yz
+!
+! Revision 1.91  2006/04/26 12:22:52  raasch
+! +threads_per_task,
+! sums_l, sums_l_l arrays changed to three dimensions
+!
+! Revision 1.90  2006/04/11 14:58:27  raasch
+! pl_spectra renamed data_output_sp, length of run_identifier increased to 80
+!
+! Revision 1.89  2006/03/14 12:55:52  raasch
+! Default for number_of_particle_groups changed to 1
+!
+! Revision 1.88  2006/03/03 14:26:53  letzel
+! control parameter topography now has length 40
+!
+! Revision 1.87  2006/03/03 08:50:25  raasch
+! Default value for surface_heatflux changed to 9999999.9
+!
+! Revision 1.86  2006/02/23 12:39:14  raasch
+! Version 3.0 with topography
+! index arrays nzb_2d replaced by several new variable dependend arrays
+! (e.g. nzb_u_inner), nzb_diff_2d removed, +new grid point
+! counters ngp_2dh_outer and ngp_3d_inner,
+! +skip time control parameters skip_time_..., +log_message,
+! particle parameters psl, psr, pss, psn, psb, pst, pdx, pdy, pdz
+! are now 1D arrays (1:max_number_of_particle_groups), default of
+! number_of_particle_groups changed to 999999, idum in particle_type renamed
+! tail_id,
+! +data_output, data_output_user, do2d, do3d, doav for new steering of data
+! output,
+! +type_x_int for ghost exchange of integer arrays,
+! +netcdf_64bit for supporting NetCDF 64-bit offset format,
+! +mixing_length_1d, dissipation_1d for steering the 1d-model,
+! +e_min (control parameter for minimum tke), +parameters for assuring a
+! constant volume flow, +prt_count, prt_start_index, particle_advection,
+! ebene renamed section, nt_anz renamed current_timestep_number, anz_y..
+! renamed ngp_y.., nanz_sums, nanz_2dh, nanz_3d renamed ngp_sums, ngp_2dh,
+! ngp_3d, respectively, pl1d_anz, pl2d_.._anz, plts_anz, pl3d_anz renamed
+! dopr_n, pl2d_.._no, dots_n, do3d_n, respectively,
+! ql_v and ql_vp now have the target attribute,
+! average_period_pr1d removed
+!
+! Revision 1.85  2005/12/06 16:40:56  raasch
+! Version 2.11c
+!
+! Revision 1.84  2005/10/20 15:38:23  raasch
+! +id_var_rnop_prt, some values of prt_var_names and prt_var_units changed
+!
+! Revision 1.83  2005/06/29 10:40:30  steinfeld
+! Scalars ug and vg changed into one-dimensional arrays;
+! +ug_surface, ug_vertical_gradient, ug_vertical_gradient_level,
+!  ug_vertical_gradient_level_ind,
+!  vg_surface, vg_vertical_gradient, vg_vertical_gradient_level,
+!  vg_vertical_gradient_level_ind
+!
+! Revision 1.82  2005/06/26 20:03:33  raasch
+! +ql_1, ql_2, ql_m, ql is now a pointer, +variables for cloud droplets (arrays
+! ql_v,ql_vp, pointer ql_c), gas_constant renamed r_d, latent_heat renamed l_v,
+! radius instead of diameter, radius + weighting factor included in
+! particle_type, pl2d and pl3d string length increased from 6 to 10,
+! default of call_psolver_at_all_substeps is TRUE
+!
+! Revision 1.81  2005/05/18 15:36:46  raasch
+! New module netcdf_control, +data_output_format, pl1d_callcount renamed
+! dopr_time_count,
+! default values of pl_spectra and spectra_direction changed
+!
+! Revision 1.80  2005/04/23 09:31:14  raasch
+! Implicit counters i renamed i9 due to declaration conflicts with i in other
+! subroutines (reported by Portland compiler),
+! crmax increased to 100, fcl_factor renamed cfl_factor
+!
+! Revision 1.79  2005/03/26 20:40:48  raasch
+! +variables for non-cyclic boundary conditions, call_psolver_at_all_substeps,
+! default value for residual limit increased from 1E-6 to 1E-4
+!
+! Revision 1.78  2004/04/30 12:30:01  raasch
+! idum added in particle_type for better alignment (decalpha),
+! DATA statements replaced by (/ .../) because of internal compiler errors
+! on decalpha, + indices for direct transpositions z --> y,
+! dt_max_1d increased to 300.0 (from 60.0), +grid_matching,
+! arrays cross_ts_numbers and cross_ts_number_count enlarged,
+! impulse_advec renamed momentum_advec
+!
+! Revision 1.77  2004/01/30 10:30:26  raasch
+! +index arrays nzb_2d, nzb_diff_2d
+!
+! Revision 1.76  2004/01/28 15:25:15  raasch
+! +array tsc for timestep steering, +tu_m, tv_m etc. pointer for additional
+! tendencies needed for Runge-Kutta scheme, +intermediate_timestep_count(_max)
+! type log changed to logpoint due to name conflict with intrinsic log
+!
+! Revision 1.75  2003/10/29 08:58:54  raasch
+! +mg_cycles, mg_switch_to_pe0, mg_switch_to_pe0_level in module
+! control_parameters,
+! +mg_loc_ind in module indices, variables related to particle groups added
+! to module particle_attributes
+!
+! Revision 1.74  2003/08/01 08:40:59  raasch
+! +isclice_dvrp, lock_steering_update, slicer_position_dvrp,
+! slicer_range_limits_dvrp in module dvrp_variables
+!
+! Revision 1.73  2003/05/09 14:41:11  raasch
+! New version number 2.7
+!
+! Revision 1.72  2003/04/25 18:54:39  raasch
+! Module mpi added in module pegrid in case of linux cluster
+!
+! Revision 1.71  2003/04/16 13:27:33  raasch
+! Arrays cross_ts_uy... enlarged
+!
+! Revision 1.70  2003/04/16 13:07:43  raasch
+! Array cross_ts_profiles enlarged
+!
+! Revision 1.69  2003/03/16 09:42:07  raasch
+! Two underscores (_) are placed in front of all define-strings
+!
+! Revision 1.68  2003/03/14 13:44:52  raasch
+! +random_generator in control_parameters
+!
+! Revision 1.67  2003/03/12 16:34:19  raasch
+! +tasks_per_node in pegrid
+!
+! Revision 1.66  2003/03/04 11:32:50  raasch
+! +type steering, +steering_dvrp in dvrp_variables
+!
+! Revision 1.65  2002/12/19 15:52:37  raasch
+! +initial_wallclock_time in cpulog, +myid_char_14 in pegrid,
+! default value for termination_time_needed now set in check_parameters,
+! array dl_grid removed, +wall_adjustment_factor, dt_restart, restart_time,
+! time_restart
+!
+! Revision 1.64  2002/09/12 13:05:44  raasch
+! Default values of *_vertical_gradient_level changed from 100000.0 to -1.0,
+! +molecular_viscosity, density_ratio
+!
+! Revision 1.63  2002/06/11 13:12:29  raasch
+! Entrys buoyancy, diffusion_e, diffusion_s, diffusion_u, diffusion_v and
+! diffusion_w removed from module pointer_interfaces,
+! length of character variables host + psolver increased to 64 and 16
+!
+! Revision 1.62  2002/05/02 18:53:18  raasch
+! Module singleton moved to a separate file. Arrays e_3, pt_3, q_3, u_3, v_3,
+! w_3 re-introduced. Pointer e_p, pt_p, q_p, u_p, v_p, w_p re-introduced.
+!
+! Revision 1.61  2002/04/16 08:09:32  raasch
+! Information about speed components and start positions included in
+! particle_type, +dt_write_particle_data, particle_advection_start,
+! time_write_particle_data and parameters for particle boundary conditions,
+! +vertical_particle_advection,
+! + variables for scalar boundary conditions and initialization
+!
+! Revision 1.60  2001/11/12 16:05:01  raasch
+! +read_particles_from_restartfile
+!
+! Revision 1.58  2001/09/04 12:00:52  raasch
+! New version number 2.3b
+!
+! Revision 1.57  2001/08/21 09:52:08  raasch
+! +comm_palm, maximum_number_of_tailpoints, maximum_tailpoint_age,
+! minimum_tailpoint_distance, particle_tail_coordinates, superelevation_x,
+! superelevation_y, wall_adjustment
+!
+! Revision 1.56  2001/07/20 13:09:07  raasch
+! +grid_level, maximum_grid_level, cycle_mg, gamma_mg, ngsrb,
+! residual_limit in control_parameters, +dzu_mg, dzw_mg, f1_mg, f2_mg, f3_mg
+! in arrays_3d, +superelevation in dvrp_variables, +nxl_mg .. nzt_mg in
+! indices, +ddx2_mg, ddy2_mg in grid_variables
+!
+! Revision 1.55  2001/07/12 12:13:24  raasch
+! default of bc_e_b changed from (u*)**2+neumann to neumann,
+! +particle_maximum_age, psl-pst, pdx-pdz,
+! default values defined for dvrp_directory, dvrp_file, dvrp_host, dvrp_password
+! SAVE-statements added to all modules
+!
+! Revision 1.54  2001/03/30 07:35:57  raasch
+! Interface for advec_s_bc changed, interface for production_e eliminated,
+! arrays work, work1, e_3, pt_3, q_3, u_3, v_3, w_3 removed,
+! pointer e_p, pt_p, q_p, u_p, v_p, w_p removed,
+! -nw, nw1,
+! Translation of remaining German identifiers (variables, subroutines, etc.)
+!
+! Revision 1.53  2001/01/30 01:57:16  raasch
+! +passive_scalar
+!
+! Revision 1.51  2001/01/26 00:31:49  raasch
+! +fft_method, use_surface_fluxes in steuer, +module singleton,
+! +write_particle_informations in particle_attributes
+!
+! Revision 1.49  2001/01/05 15:13:16  raasch
+! new module spectrum for computing spectra, +average_count_sp,
+! averaging_interval_sp, dt_dosp, time_average_sp, time_dosp in module steuer,
+! +spectrum_x, spectrum_y in module statistik
+!
+! Revision 1.48  2001/01/02 17:31:36  raasch
+! openfile has the new type file_status, version updated to 2.1a
+!
+! Revision 1.47  2000/12/30 18:48:53  raasch
+! Default value of mode_dvrp changed
+!
+! Revision 1.46  2000/12/28 13:21:35  raasch
+! version updated to 2.1
+!
+! Revision 1.45  2000/12/28 13:19:35  raasch
+! +mode_dvrp, +interval_..._dvrp, REAL*4 changed to REAL in particle_attributes,
+! +dt_prel, time_prel, -particle_transport
+!
+! Revision 1.44  2000/07/03 13:02:32  raasch
+! version updated to 2.0b
+!
+! Revision 1.43  2000/07/03 12:59:53  raasch
+! +dvrp_directory, dvrp_host, dvrp_password, dvrp_username,
+! new module pointer_interfaces which includes interfaces for subroutines with
+! pointer arguments called in prognostic_equations
+!
+! Revision 1.42  2000/04/27 07:35:56  raasch
+! npex and npey must be defined in general (not only for parallel case)
+!
+! Revision 1.41  2000/04/27 07:07:14  raasch
+! +pt_slope_offset, pt_slope_ref, npex, npey, dt_dvrp, time_dvrp,
+! new module dvrp_variables
+! -dt_plisos, dt_plpart, isosurface_filecount, time_plisos, time_plpart
+! Version 2.0a, all comments translated into English, old revision remarks
+! deleted
+!
+! Revision 1.40  2000/04/13 13:17:25  schroeter
+! Felder fuer Wolkenphysik zu Modul arrays3d hinzugefuegt, neues Modul
+! (cloud_parameters) fuer Wolkenphysikparameter eingefuegt
+!
+! Revision 1.39  2000/01/10  10:05:11  10:05:11  raasch (Siegfried Raasch)
+! +use_ug_for_galilei_tr, Aufteilung der zeitabhaengigen Groessen in pointer
+! und targets, + timestep_count
+! 
+! Revision 1.38  1999/12/28 10:06:52  raasch
+! +Variablen fuer Plot von Isooberflaechen
+!
+! Revision 1.37  1999/11/25 16:26:38  raasch
+! Neues Modul particle_attributes,
+! +Variablen fuer Partikelverlagerung: particle_transport, dt_plpart,
+! Version 1.1e
 !
 ! Revision 1.1  1997/07/24 11:21:26  raasch