Index: palm/trunk/SOURCE/model_1d_mod.f90
===================================================================
--- palm/trunk/SOURCE/model_1d_mod.f90	(revision 3655)
+++ palm/trunk/SOURCE/model_1d_mod.f90	(revision 4180)
@@ -27,134 +27,4 @@
 ! Modularization of all bulk cloud physics code components
 ! 
-! 3135 2018-07-16 14:43:04Z gronemeier
-! Bugfix: add +1 to c_3 according to Sogachev et al. (2012)
-! 
-! 3126 2018-07-13 15:13:54Z gronemeier
-! Bugfix: define c_0 = 0.03^0.25 = 0.416179145
-! 
-! 3083 2018-06-19 14:03:12Z gronemeier
-! Bugfixes:
-!   - preset te_diss and te_e to avoid runtime errors
-!   - implementation of buoyancy term to dissipation
-!     according to Sogachev et al. (2012)
-!   - where diss_p < 0 set diss_p = 0.1 diss
-!   - calculate progn eq(diss) starting from nzb+1
-! Changes:
-!   - add sig_e to TKE equation
-!   - adjust prognostic equation of diss
-!   - set model constants according to Koblitz (2013)
-!   - renamed c_m to c_0
-!   - rename l_black into l1d_init
-!   - calculate l_grid within init_1d_model and save it as l1d_init
-!   - calculate l1d according to DE85 if dissipation is a prognostic value
-!   - made annotations doxygen-readable
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 2965 2018-04-13 07:37:25Z scharf
-! adjusted format string for 1D run control output
-! 
-! 2918 2018-03-21 15:52:14Z gronemeier
-! - rename l_black into l1d_init
-! - calculate l_grid within init_1d_model and save it as l1d_init
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! implement TKE-e closure
-! modification of dissipation production according to Detering and Etling
-! reduced factor for timestep criterion to 0.125 and first dt to 1s (TG)
-! 
-! 2339 2017-08-07 13:55:26Z gronemeier
-! corrected timestamp in header
-! 
-! 2338 2017-08-07 12:15:38Z gronemeier
-! renamed init_1d_model to model_1d_mod and and formatted it as a module;
-! reformatted output of profiles
-! 
-! 2337 2017-08-07 08:59:53Z gronemeier
-! revised calculation of mixing length
-! removed rounding of time step
-! corrected calculation of virtual potential temperature
-! 
-! 2334 2017-08-04 11:57:04Z gronemeier
-! set c_m = 0.4 according to Detering and Etling (1985)
-! 
-! 2299 2017-06-29 10:14:38Z maronga
-! Removed german text
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2059 2016-11-10 14:20:40Z maronga
-! Corrected min/max values of Rif.
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Remove passive_scalar from IF-statements, as 1D-scalar profile is effectively
-! not used.
-! Formatting adjustment
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! routine local_flush replaced by FORTRAN statement
-!
-! 1709 2015-11-04 14:47:01Z maronga
-! Set initial time step to 10 s to avoid instability of the 1d model for small
-! grid spacings
-!
-! 1697 2015-10-28 17:14:10Z raasch
-! small E- and F-FORMAT changes to avoid informative compiler messages about
-! insufficient field width
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Renamed prandtl_layer to constant_flux_layer. rif is replaced by ol and zeta.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute 
-! 
-! 1346 2014-03-27 13:18:20Z heinze
-! Bugfix: REAL constants provided with KIND-attribute especially in call of 
-! intrinsic function like MAX, MIN, SIGN
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! ONLY-attribute added to USE-statements,
-! kind-parameters added to all INTEGER and REAL declaration statements, 
-! kinds are defined in new module kinds, 
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements 
-! 
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! adjustment of mixing length to the Prandtl mixing length at first grid point
-! above ground removed
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! all actions concerning leapfrog scheme removed
-!
-! 996 2012-09-07 10:41:47Z raasch
-! little reformatting
-!
-! 978 2012-08-09 08:28:32Z fricke
-! roughness length for scalar quantities z0h1d added
-!
-! Revision 1.1  1998/03/09 16:22:10  raasch
-! Initial revision
-!
 !
 ! Description:
