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

palm/trunk/SOURCE/flow_statistics.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Log: flow_statistics.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.41  2006/08/04 14:37:50  raasch
 ! Error removed in non-parallel part (sums_l)
-!
-! Revision 1.40  2006/04/26 14:06:01  raasch
-! Call of omp_get_thread_num written as comment line. Since lcmuk does not
-! understand this comment, a cpp-directive is required.
-!
-! Revision 1.39  2006/04/26 12:19:16  raasch
-! OpenMP optimization, thread number added as third dimension of sums_l,
-! nzb_s_inner(j,i) replaced by nzb in determination of z_i
-!
-! Revision 1.38  2006/02/23 12:23:15  raasch
-! nzb and nzb_diff replaced by nzb_s_outer and nzb_diff_s_outer resrectively,
-! nanz_sums, nanz_2dh, nanz_3d renamed ngp_sums, ngp_2dh and ngp_3d,
-! respectively,
-! ngp_2dh and ngp_3d partially replaced by ngp_2dh_outer and ngp_3d_inner,
-! respectively
-!
-! Revision 1.37  2005/12/06 16:40:21  raasch
-! Calculation of ql (54) profile in case of using cloud droplets
-!
-! Revision 1.36  2005/04/23 09:10:27  raasch
-! +local array sums_ll instead of temporarily using sums_l
-!
-! Revision 1.35  2004/04/30 11:46:56  raasch
-! leap_frog changed to time_integration
-!
-! Revision 1.34  2003/05/09 14:25:12  raasch
-! Parameters in MPI_ALLREDUCE call changed
-!
-! Revision 1.33  2003/03/31 15:42:53  raasch
-! Calculation of horizontal temperature fluxes modified and cleaned up
-!
-! Revision 1.32  2003/03/16 09:39:07  raasch
-! Two underscores (_) are placed in front of all define-strings
-!
-! Revision 1.31  2003/03/12 16:30:07  raasch
-! Calculation of perturbation and total energy of the total domain
-! re-arranged in order to allow vectorization of the respective loop
-!
-! Revision 1.30  2003/03/04 11:26:35  raasch
-! Error in calculation of the vertical flux of resolved scale energy
-! (profile 57) removed
-!
-! Revision 1.29  2002/12/19 14:50:02  raasch
-! STOP statement replaced by call of subroutine local_stop
-!
-! Revision 1.28  2002/04/16 08:04:19  raasch
-! Error in passive scalar profile (hom(..41..)) removed
-!
-! Revision 1.27  2002/04/11 16:31:03  schroeter
-! No changes.
-!
-! Revision 1.26  2001/09/04  12:00:12  12:00:12  raasch (Siegfried Raasch)
-! Calculation of the vertical flux of resolved scale energy and pressure
-! fluctuations
-! 
-! Revision 1.25  2001/08/21 08:32:24  raasch
-! Special calculation of surface fluxes whenever they are prescribed (not only
-! in case of a Prandtl layer), call of user_interface
-!
-! Revision 1.24  2001/03/30 07:23:34  raasch
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.23  2001/02/07 06:48:25  raasch
-! Error in non-parallel passive scalar code removed
-!
-! Revision 1.22  2001/01/29 12:25:02  raasch
-! Passive scalar is considered
-!
-! Revision 1.21  2001/01/22 06:49:27  raasch
-! Module test_variables removed
-!
-! Revision 1.20  2000/04/13 13:54:15  schroeter
-! + computation of new profiles for calculations with
-!   cloud_physics
-!
-! Revision 1.19  2000/01/26  09:32:58  09:32:58  letzel (Marcus Letzel)
-! All comments translated into English
-! 
-! Revision 1.16  1998/04/21 15:54:54  raasch
-! Berechnung von w* beruecksichtigt jetzt den Fall z_i=0,
-! Faktor 0.5 bei Energietransport hinzugefuegt
-!
-! Revision 1.6  1998/02/10 15:06:02  raasch
-! Berechnung des Gesamtwaermestroms, in aufgeloesten Waermestroemen wird das
-! horizontale Temperaturmittel nicht mehr abgezogen, Berechnung der
-! Gesamtimpulsfluesse
 !
 ! Revision 1.1  1997/08/11 06:15:17  raasch