Changeset 3 for palm/trunk/SOURCE/init_slope.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_slope.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_slope.f90

@@ -1 +1 @@
  SUBROUTINE init_slope
 
-!-------------------------------------------------------------------------------!
+!------------------------------------------------------------------------------!
 ! Actual revisions:
 ! -----------------
@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Log: init_slope.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.5  2006/02/23 12:35:34  raasch
 ! nanz_2dh renamed ngp_2dh
-!
-! Revision 1.4  2003/03/16 09:40:02  raasch
-! Two underscores (_) are placed in front of all define-strings
-!
-! Revision 1.3  2001/03/30 07:33:59  raasch
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.2  2001/01/22 07:21:35  raasch
-! Module test_variables removed
 !
 ! Revision 1.1  2000/04/27 07:06:24  raasch
@@ -31 +24 @@
 ! Remember: when a sloping surface is used, only one constant temperature
 !           gradient is allowed!
-!-------------------------------------------------------------------------------!
+!------------------------------------------------------------------------------!
 
     USE arrays_3d