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

palm/trunk/SOURCE/production_e.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Log: production_e.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.21  2006/04/26 12:45:35  raasch
 ! OpenMP parallelization of production_e_init
-!
-! Revision 1.20  2006/02/23 12:51:25  raasch
-! nzb_2d and nzb_diff_2d replaced by nzb_s_outer and nzb_diff_s_outer
-! respectively, momentum flux calculation at vertical walls using profile
-! functions, loop rearrangement for better vectorization
-!
-! Revision 1.19  2005/06/29 08:15:33  steinfeld
-! Error in calculating u_0 and v_0 removed (multiplication instead of
-! division by 2dz)
-!
-! Revision 1.18  2004/04/30 12:45:54  raasch
-! dptdz eliminated
-!
-! Revision 1.17  2004/01/30 10:36:00  raasch
-! Velocity gradients at the surface limited (see u_0, v_0),
-! scalar lower k index nzb_diff replaced by 2d-array nzb_diff_2d
-!
-! Revision 1.16  2003/03/12 16:40:22  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.15  2002/12/19 16:16:34  raasch
-! Calculation of deformation tensor re-designed (most of the finite
-! differences are now formed over two grid spacings, errors in derivatives
-! along y removed)
-!
-! Revision 1.14  2002/09/12 13:09:44  raasch
-! Error in calculating v_0 removed
-!
-! Revision 1.13  2002/06/11 13:19:04  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.
-! Calculation of u_0 and v_0 moved to the new subroutine production_e_init
-! due to the global communication necessary. These arrays are allocated only
-! once during the first call.
-!
-! Revision 1.12  2001/08/21 09:59:47  raasch
-! Special treatment at k=1 generally if surface fluxes are prescribed (not only
-! in case of a Prandtl layer). In these cases, the boundary conditions are
-! also included in the shear production term.
-!
-! Revision 1.11  2001/03/30 07:48:54  raasch
-! Calculation of shear production and buoyancy production is split into
-! two loops, arguments k1 and k2 are eliminated and now used as scalars,
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.10  2001/01/22 07:56:19  raasch
-! Module test_variables removed
-!
-! Revision 1.9  2001/01/02 17:34:12  raasch
-! -dpt_dz_d, dpt_dz_u
-!
-! Revision 1.8  2000/07/03 13:00:24  raasch
-! Arguments k1 and k2 declared as pointers,
-! all comments tranlated into English
-!
-! Revision 1.7  2000/04/18 08:13:00  schroeter
-! Revision 1.5 rueckgaengig gemacht, Temperaturgrandient im
-! Auftriebtrem wird wieder durch zentrale Differenzen gebildet
-!
-! Revision 1.6  2000/04/13 14:24:02  schroeter
-! condsidering the influence of humidity to TKE-production
-!
-! Revision 1.5  99/02/17  09:29:18  09:29:18  raasch (Siegfried Raasch)
-! Vertikalscherung des Windes exakter formuliert
-! Temperaturgradient im Auftriebsterm enger gefasst, im stabilen Fall wird
-! jetzt das Minimum vom oberen und unteren Differenzenquotienten verwendet
-! 
-! Revision 1.4  1998/07/06 12:31:52  raasch
-! + USE test_variables
-!
-! Revision 1.3  1998/04/15 11:23:49  raasch
-! Im Fall einer Prandtl-Schicht wird die Energieproduktion bei nzb+1
-! jetzt immer mittels shf und sonst ueber dpt/dz berechnet (bisher nur bei
-! vorgegebenem Waermestrom)
-!
-! Revision 1.2  1998/02/19 07:10:51  raasch
-! vorgegebener Waermestrom wird gegebenenfalls im Auftriebsterm bei
-! k=nzb+1 direkt angegeben
 !
 ! Revision 1.1  1997/09/19 07:45:35  raasch