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

palm/trunk/SOURCE/diffusion_e.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Log: diffusion_e.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.18  2006/08/04 14:29:43  raasch
 ! dissipation is stored in extra array diss if needed later on for calculating
 ! the sgs particle velocities
-!
-! Revision 1.17  2006/02/23 10:31:46  raasch
-! nzb_2d replaced by nzb_s_inner
-!
-! Revision 1.16  2004/01/30 10:18:18  raasch
-! Scalar lower k index nzb replaced by 2d-array nzb_2d
-!
-! Revision 1.15  2003/03/14 13:39:33  raasch
-! Loop optimization for diffusion_e, l and ll are now automatic arrays
-!
-! Revision 1.14  2003/03/12 16:25:03  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.13  2002/12/19 14:25:28  raasch
-! Correction of mixing length term (l(k)/ll(k)). The condition kh=3*km in
-! the unstable case is now also exactly met in the wall adjustment region.
-! Factor 0.7 in wall adjustment part replaced by variable
-! wall_adjustment_factor, which is set to ... in modules.f90.
-!
-! Revision 1.12  2002/06/11 12:51:59  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.
-! 1D-array l is allocated only once in the first call.
-!
-! Revision 1.11  2001/08/21 08:24:34  raasch
-! Wall adjustment of mixing length to 0.7 z can be switched off
-!
-! Revision 1.10  2001/03/30 07:06:30  raasch
-! Near surface mixing length is limited to 0.7*zu,
-! e**1.5 replaced by e*SQRT(e) (more than 10% total increase in performance
-! of this routine),
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.9  2001/01/22 06:05:28  raasch
-! Module test_variables removed
-!
-! Revision 1.8  2001/01/02 17:27:00  raasch
-! -dpt_dz_d, dpt_dz_u
-!
-! Revision 1.7  2000/07/03 12:56:34  raasch
-! array l changed from dummy argument to local allocatable array,
-! dummy arguments, whose corresponding actual arguments are pointers,
-! are now also defined as pointers
-! all comments translated into English
-!
-! Revision 1.6  2000/04/18 08:10:12  schroeter
-! Revision 1.4 wieder rueckgaengig gemacht, das Stabilitaets-
-! kriterium basiert nun wieder auf zentralen Differenzen
-!
-! Revision 1.5  2000/04/13 14:33:08  schroeter
-! je nach Initialisierungsmodus (trocken/feucht) fliesst in die
-! Berechnung des Mischungsweges pt oder vpt ein, wird durch
-! entsprechende Variablenuebergabe geregelt
-!
-! Revision 1.4  99/02/17  09:15:52  09:15:52  raasch (Siegfried Raasch)
-! Dissipation jetzt gemaess dem originalen Deardorff-Ansatz
-! Kriterium fuer reduzierten Mischungsweg im stabil geschichteten Fall enger
-! gefasst (Schichtung muss sowohl oberhalb als auch unterhalb des betrachteten
-! Gitterpunkts stabil sein)
-! 
-! Revision 1.3  1998/07/06 12:10:56  raasch
-! + USE test_variables
-!
-! Revision 1.2  1998/03/11 11:48:59  raasch
-! Anpassung des Mischungsweges an den Prandtlschen Mischungsweg moeglich
 !
 ! Revision 1.1  1997/09/19 07:40:24  raasch