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

palm/trunk/SOURCE/diffusivities.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Log: diffusivities.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.24  2006/04/26 12:16:26  raasch
 ! OpenMP optimization (+sums_l_l_t), sqrt_e must be private
-!
-! Revision 1.23  2006/02/23 12:13:29  raasch
-! nzb_2d replaced by nzb_s_inner/outer, option of a minimum tke
-! quasi boundary conditions is now set for sums_l_l instead of sums_l
-!
-! Revision 1.22  2005/03/26 20:16:26  raasch
-! Eddy diffusivities are also calculated for the ghost points in order to spare
-! the communication otherwise needed for the exchange of these points.
-! Neumann boundary conditions set at the outflow boundaries in case of
-! non-cyclic lateral boundaries
-!
-! Revision 1.21  2004/01/30 10:23:12  raasch
-! Scalar lower k index nzb replaced by 2d-array nzb_2d
-!
-! Revision 1.20  2003/03/14 13:40:09  raasch
-! Loop optimization (SQRT(e) solved in a seperate loop, joining of loops)
-!
-! Revision 1.19  2003/03/12 16:28:56  raasch
-! phi_m is initialized in declaration statement in order to avoid run time
-! errors due to compiler problems on ibm and nec
-!
-! Revision 1.18  2002/12/19 14:32:23  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 1.8 in modules.f90.
-! Missing OMP DO statement added.
-!
-! Revision 1.17  2002/06/11 12:56:49  raasch
-! OpenMP directives added,
-! array l changed from allocatable to automatic, because it must be on the stack
-! in case of using OpenMP
-!
-! Revision 1.16  2001/08/21  08:30:34  08:30:34  raasch (Siegfried Raasch)
-! Wall adjustment of mixing length to 0.7 z can be switched off
-! Lower boundary condition for km and kh changed to Neumann
-! 
-! Revision 1.15  2001/03/30 07:22:09  raasch
-! Near surface mixing length is limited to 0.7*zu,
-! if adjust_mixing_length=T, l is modified at all gridpoints (previously at
-! k=1 only),
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.14  2001/01/22 06:31:36  raasch
-! Module test_variables removed
-!
-! Revision 1.13  2001/01/02 17:27:41  raasch
-! -dpt_dz_d, dpt_dz_u
-!
-! Revision 1.12  2000/12/20 10:35:47  letzel
-! All comments translated into English.
-!
-! Revision 1.11  2000/04/18 08:10:42  schroeter
-! Revision 1.4 wieder rueckgaengig gemacht, das Stabilitaets-
-! kriterium basiert nun wieder auf zentralen Differenzen
-!
-! Revision 1.9  2000/04/13 13:42:14  schroeter
-! je nach Initialisierungsmodus (trocken/feucht) fliesst in
-! Mischungswegberechnung pt oder vpt ein, wird durch entsprechende
-! Variablenuebergabe geregelt
-!
-! Revision 1.8  99/02/17  09:17:39  09:17:39  raasch (Siegfried Raasch)
-! Kriterium fuer reduzierten Mischungsweg im stabil geschichteten Fall enger
-! gefasst (Schichtung muss sowohl oberhalb als auch unterhalb des betrachteten
-! Gitterpunkts stabil sein)
-! 
-! Revision 1.7  1998/09/22 17:18:41  raasch
-! Testweise cm = 0.4 bei k=1, aber vorerst auskommentiert
-!
-! Revision 1.6  1998/08/05 06:52:44  raasch
-! Mischungsweganpassung an Prandtl nur bei k=1
-!
-! Revision 1.2  1998/03/11 11:49:26  raasch
-! Anpassung des Mischungsweges an den Prandtlschen Mischungsweg moeglich
 !
 ! Revision 1.1  1997/09/19 07:41:10  raasch