Changeset 3 for palm/trunk/SOURCE/diffusion_s.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/diffusion_s.f90 (modified) (1 diff)

palm/trunk/SOURCE/diffusion_s.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Log: diffusion_s.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.8  2006/02/23 10:34:17  raasch
 ! nzb_2d replaced by nzb_s_outer in horizontal diffusion and by nzb_s_inner
 ! or nzb_diff_s_inner, respectively, in vertical diffusion, prescribed surface
 ! fluxes at vertically oriented topography
-!
-! Revision 1.7  2004/01/30 10:20:56  raasch
-! Scalar lower k index nzb replaced by 2d-array nzb_2d
-!
-! Revision 1.6  2003/03/12 16:25:32  raasch
-! Full code replaced in the call for all gridpoints instead of calling the
-! _ij version (required by NEC, because otherwise no vectorization)
-!
-! Revision 1.5  2002/06/11 12:52:41  raasch
-! Former subroutine changed to a module which allows to be called for all grid
-! points of a single vertical column with index i,j or for all grid points by
-! using function overloading.
-!
-! Revision 1.4  2001/03/30 07:11:44  raasch
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.3  2001/01/25 06:58:14  raasch
-! Variable "prandtl_layer replaced by "use_surface_fluxes"
-!
-! Revision 1.2  2000/07/03 12:57:13  raasch
-! dummy arguments, whose corresponding actual arguments are pointers,
-! are now also defined as pointers,
-! all comments translated into English
 !
 ! Revision 1.1  2000/04/13 14:54:02  schroeter