Changes in palm/trunk/SOURCE/diffusion_e.f90 [3:1]

File:

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

palm/trunk/SOURCE/diffusion_e.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Id$
-! RCS Log replace by Id keyword, revision history cleaned up
-!
+! $Log: diffusion_e.f90,v $
 ! 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