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

File:

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

palm/trunk/SOURCE/diffusivities.f90

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