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/diffusivities.f90

    r1 r3  
    88! Former revisions:
    99! -----------------
    10 ! $Log: diffusivities.f90,v $
     10! $Id$
     11! RCS Log replace by Id keyword, revision history cleaned up
     12!
    1113! Revision 1.24  2006/04/26 12:16:26  raasch
    1214! OpenMP optimization (+sums_l_l_t), sqrt_e must be private
    13 !
    14 ! Revision 1.23  2006/02/23 12:13:29  raasch
    15 ! nzb_2d replaced by nzb_s_inner/outer, option of a minimum tke
    16 ! quasi boundary conditions is now set for sums_l_l instead of sums_l
    17 !
    18 ! Revision 1.22  2005/03/26 20:16:26  raasch
    19 ! Eddy diffusivities are also calculated for the ghost points in order to spare
    20 ! the communication otherwise needed for the exchange of these points.
    21 ! Neumann boundary conditions set at the outflow boundaries in case of
    22 ! non-cyclic lateral boundaries
    23 !
    24 ! Revision 1.21  2004/01/30 10:23:12  raasch
    25 ! Scalar lower k index nzb replaced by 2d-array nzb_2d
    26 !
    27 ! Revision 1.20  2003/03/14 13:40:09  raasch
    28 ! Loop optimization (SQRT(e) solved in a seperate loop, joining of loops)
    29 !
    30 ! Revision 1.19  2003/03/12 16:28:56  raasch
    31 ! phi_m is initialized in declaration statement in order to avoid run time
    32 ! errors due to compiler problems on ibm and nec
    33 !
    34 ! Revision 1.18  2002/12/19 14:32:23  raasch
    35 ! Correction of mixing length term (l(k)/ll(k)). The condition kh=3*km in
    36 ! the unstable case is now also exactly met in the wall adjustment region.
    37 ! Factor 0.7 in wall adjustment part replaced by variable
    38 ! wall_adjustment_factor, which is set to 1.8 in modules.f90.
    39 ! Missing OMP DO statement added.
    40 !
    41 ! Revision 1.17  2002/06/11 12:56:49  raasch
    42 ! OpenMP directives added,
    43 ! array l changed from allocatable to automatic, because it must be on the stack
    44 ! in case of using OpenMP
    45 !
    46 ! Revision 1.16  2001/08/21  08:30:34  08:30:34  raasch (Siegfried Raasch)
    47 ! Wall adjustment of mixing length to 0.7 z can be switched off
    48 ! Lower boundary condition for km and kh changed to Neumann
    49 !
    50 ! Revision 1.15  2001/03/30 07:22:09  raasch
    51 ! Near surface mixing length is limited to 0.7*zu,
    52 ! if adjust_mixing_length=T, l is modified at all gridpoints (previously at
    53 ! k=1 only),
    54 ! Translation of remaining German identifiers (variables, subroutines, etc.)
    55 !
    56 ! Revision 1.14  2001/01/22 06:31:36  raasch
    57 ! Module test_variables removed
    58 !
    59 ! Revision 1.13  2001/01/02 17:27:41  raasch
    60 ! -dpt_dz_d, dpt_dz_u
    61 !
    62 ! Revision 1.12  2000/12/20 10:35:47  letzel
    63 ! All comments translated into English.
    64 !
    65 ! Revision 1.11  2000/04/18 08:10:42  schroeter
    66 ! Revision 1.4 wieder rueckgaengig gemacht, das Stabilitaets-
    67 ! kriterium basiert nun wieder auf zentralen Differenzen
    68 !
    69 ! Revision 1.9  2000/04/13 13:42:14  schroeter
    70 ! je nach Initialisierungsmodus (trocken/feucht) fliesst in
    71 ! Mischungswegberechnung pt oder vpt ein, wird durch entsprechende
    72 ! Variablenuebergabe geregelt
    73 !
    74 ! Revision 1.8  99/02/17  09:17:39  09:17:39  raasch (Siegfried Raasch)
    75 ! Kriterium fuer reduzierten Mischungsweg im stabil geschichteten Fall enger
    76 ! gefasst (Schichtung muss sowohl oberhalb als auch unterhalb des betrachteten
    77 ! Gitterpunkts stabil sein)
    78 !
    79 ! Revision 1.7  1998/09/22 17:18:41  raasch
    80 ! Testweise cm = 0.4 bei k=1, aber vorerst auskommentiert
    81 !
    82 ! Revision 1.6  1998/08/05 06:52:44  raasch
    83 ! Mischungsweganpassung an Prandtl nur bei k=1
    84 !
    85 ! Revision 1.2  1998/03/11 11:49:26  raasch
    86 ! Anpassung des Mischungsweges an den Prandtlschen Mischungsweg moeglich
    8715!
    8816! Revision 1.1  1997/09/19 07:41:10  raasch
Note: See TracChangeset for help on using the changeset viewer.