Ignore:
Timestamp:
Feb 13, 2007 11:30:58 AM (15 years ago)
Author:
raasch
Message:

RCS Log replace by Id keyword, revision history cleaned up

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pres.f90

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