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

File:

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

palm/trunk/SOURCE/pres.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Log: pres.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.25  2006/04/26 13:26:12  raasch
 ! OpenMP optimization (+localsum, threadsum)
-!
-! Revision 1.24  2006/02/23 12:50:08  raasch
-! nzb replaced by nzb_.._inner, optional volume flow control, calculation of
-! divergence sum reordered due to optimization
-!
-! Revision 1.23  2005/05/18 15:53:44  raasch
-! call conditions for poisfft_hybrid modified
-!
-! Revision 1.22  2005/03/26 20:57:24  raasch
-! Adjustments for non-cyclic boundary conditions: arguments added to routine
-! exchange_horiz, mean horizontal wind parallel to the outflow is calculated.
-!
-! Revision 1.21  2004/04/30 12:45:00  raasch
-! Most of the arguments removed from poisfft call, +module poisfft_mod,
-! poisfft is also used for 1d-decompositions, more memory has to be
-! allocated for tend, when an enlarged domain is used for transposition
-!
-! Revision 1.20  2003/03/16 09:46:02  raasch
-! Two underscores (_) are placed in front of all define-strings
-!
-! Revision 1.19  2003/03/14 13:46:32  raasch
-! Optimization of loops (IBM-version and vectorizable version)
-!
-! Revision 1.18  2003/03/12 16:38:20  raasch
-! Simulated_time has been replaced by sums(nzb+1,4) in first if clause
-! in order to avoid run time errors due to compiler bugs on ibm and nec
-! machines, due to optimization, dividing d by dt_3d is now done in the
-! first loop (not in a seperated loop),
-! error removed: tend=p added after calling sor method
-!
-! Revision 1.17  2002/06/11 13:17:03  raasch
-! Hybrid solver included, array operations on d removed due to bad performance
-! on IBM, loops including the array d are combined, OpenMP directives added.
-! Total perturbation pressure is no more obtained iteratively (p=p+tend) from
-! the current perturbation pressure.
-!
-! Revision 1.16  2001/09/04  12:05:52  12:05:52  raasch (Siegfried Raasch)
-! Value of perturbation pressure is no more obtained iteratively (p = p + tend,
-! FFT-solver only)
-! 
-! Revision 1.15  2001/07/20 13:12:54  raasch
-! Multigrid method included
-!
-! Revision 1.14  2001/03/30 07:47:29  raasch
-! All arguments removed, dp replaced by tend, array work removed from
-! sor argument list,
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.13  2001/01/22 07:53:53  raasch
-! Module test_variables removed
-!
-! Revision 1.12  2000/01/26 13:23:32  letzel
-! All comments translated into English
-!
-! Revision 1.11  1998/09/22 17:28:14  raasch
-! dp war bei SOR-Aufrufen bisher nicht initialisiert, entsprechend geaendert
-!
-! Revision 1.10  1998/07/06 12:30:22  raasch
-! + USE test_variables
-!
-! Revision 1.9  1998/04/15 11:23:20  raasch
-! Testweise Zusatzbedingung fuer den Druck am unteren Rand bei inhomogener
-! Oberflaechentemperatur (pt wird uebergeben)
-!
-! Revision 1.8  1998/03/30 11:37:59  raasch
-! Divergenzsummenberechnung (PEs) nach flow_statistics verlagert
-!
-! Revision 1.7  1998/03/25 13:56:16  raasch
-! dt in dt_3d umbenannt
-!
-! Revision 1.6  1997/09/16 06:38:37  raasch
-! Ueberfluessige Initialisierung von d entfernt
-!
-! Revision 1.5  1997/09/12 06:29:56  raasch
-! Randbedingungen umbenannt
-!
-! Revision 1.4  1997/09/09 08:30:27  raasch
-! Kehrwerte der Gitterweiten implementiert
-!
-! Revision 1.3  1997/08/26 06:34:16  raasch
-! Gesamtstoerdruck p wird in Bew.gleichungen mitgerechnet und ergibt sich
-! durch Summation des aktuellen Stoerdrucks dp, mit dem hier korrigiert wird
-!
-! Revision 1.2  1997/08/11 06:25:24  raasch
-! Felder werden ueber Formalparameterliste uebergeben.
 !
 ! Revision 1.1  1997/07/24 11:24:44  raasch