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

File:

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

palm/trunk/SOURCE/pres.f90

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