Changeset 3 for palm/trunk/SOURCE/init_1d_model.f90

Timestamp:

Feb 13, 2007 11:30:58 AM (17 years ago)

Author:

raasch

Message:

RCS Log replace by Id keyword, revision history cleaned up

File:

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

palm/trunk/SOURCE/init_1d_model.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Log: init_1d_model.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.21  2006/06/02 15:19:57  raasch
 ! cpp-directives extended for lctit
 !
-! Revision 1.20  2006/04/20 13:16:24  letzel
-! Errors removed in the computation of the diabatic mixing length
-!
-! Revision 1.19  2006/03/14 12:48:52  raasch
-! Error in initializing l_black removed,
-! maximum possible timestep for runge schemes reduced, output for units 15 and
-! 17 is flushed
-!
-! Revision 1.18  2006/02/23 12:27:38  raasch
-! Switches for calculating the mixing length and the dissipation,
-! remaining e1d_m**1.5 replaced by e1d_m*SQRT(e1d_m),
-! nt_anz_1d renamed current_timestep_number_1d
-!
-! Revision 1.17  2005/06/29 09:58:25  steinfeld
-! A potential dependency of ug and vg on height is considered in the
-! tendency terms of u and v; calculation of lambda is commented out
-!
-! Revision 1.16  2005/04/23 09:22:04  raasch
-! Initial horizontal velocities at the lowest grid levels are set to a very
-! small value in order to avoid too small time steps caused by the diffusion
-! criterion
-!
-! Revision 1.15  2005/03/26 20:27:33  raasch
-! Output format of timestep changed, e1d_m**1.5 replaced by e1d_m*SQRT(e1d_m)
-! because of wrong results on NEC-SX6
-!
-! Revision 1.14  2004/04/30 11:55:02  raasch
-! Runge-Kutta scheme implemented, routine leap_frog_1d renamed to
-! time_integration_1d
-!
-! Revision 1.13  2001/03/30 07:24:10  raasch
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.12  2001/01/29 12:26:57  raasch
-! Passive scalar is considered
-!
-! Revision 1.11  2001/01/22 06:54:13  raasch
-! Module test_variables removed
-!
-! Revision 1.10  2001/01/02 17:28:35  raasch
-! Adjustment of computations of energy dissipation, mixing length and
-! eddy diffusivities to methods used in the 3D-model:
-! cm changed from 0.4 to 0.1, grid dependend mixing length instead of
-! Blackadar mixing length is used, Deardorff modification of mxixing length
-! when stratification is stable
-!
-! Revision 1.9  2000/12/21 14:16:15  letzel
-! All comments translated into English.
-!
-! Revision 1.8  2000/04/13 13:23:47  schroeter
-! + 1D-Modell an Rechnungen mit Feuchte angepasst
-!
-! Revision 1.7  2000/03/14  12:56:02  12:56:02  schroeter (Michael Schroeter)
-! Asselin-filter is called before swapping timelevels
-! 
 ! Revision 1.1  1998/03/09 16:22:10  raasch
 ! Initial revision