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

palm/trunk/SOURCE/buoyancy.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Log: buoyancy.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.19  2006/04/26 12:09:56  raasch
 ! OpenMP optimization (one dimension added to sums_l)
-!
-! Revision 1.18  2006/02/23 09:55:33  raasch
-! nzb_2d replaced by nzb_s_inner/outer, nanz_2dh(0) replaced by
-! ngp_2dh_outer(:,0)
-!
-! Revision 1.17  2005/12/06 15:29:16  raasch
-! Mean pt profile is calculated only in case of the first intermediate timestep
-!
-! Revision 1.16  2004/01/30 10:14:31  raasch
-! Scalar lower k index nzb replaced by 2d-array nzb_2d
-!
-! Revision 1.15  2003/10/29 08:41:47  raasch
-! Horizontal mean temperature is now taken from array hom instead of array sums
-!
-! Revision 1.14  2003/03/16 09:27:22  raasch
-! Two underscores (_) are placed in front of all define-strings
-!
-! Revision 1.13  2003/03/12 16:20:47  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.12  2002/12/19 13:47:38  raasch
-! STOP statement replaced by call of subroutine local_stop
-!
-! Revision 1.11  2002/06/11 12:33:07  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 the horizontally averaged temperature profile moved to new
-! subroutine calc_mean_pt_profile, which is part of this module.
-!
-! Revision 1.10  2001/03/30 06:54:56  raasch
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.9  2001/01/22 05:27:03  raasch
-! Module test_variables removed
-!
-! Revision 1.8  2000/07/03 12:55:56  raasch
-! Argument theta declared as pointer
-!
-! Revision 1.7  2000/04/27 07:04:19  raasch
-! in case of a sloping surface the temperature difference is computed relative
-! to the initial (2D) temperature field
-!
-! Revision 1.6  2000/04/13 14:27:34  schroeter
-! considering the influence of humidity to the buoyancy term
-! (only for sloping_surface = false),
-!
-! Revision 1.5  2000/01/21  16:17:23  16:17:23  letzel (Marcus Letzel)
-! All comments translated into English
-! 
-! Revision 1.4  1998/09/22 17:16:22  raasch
-! Auftriebsterm erweitert fuer Rechnungen mit geneigter Ebene
-!
-! Revision 1.3  1998/07/06 12:07:27  raasch
-! + USE test_variables
-!
-! Revision 1.2  1998/03/30 11:33:29  raasch
-! nanz_2dh in nanz_2dh(0) geaendert
 !
 ! Revision 1.1  1997/08/29 08:56:48  raasch