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

palm/trunk/SOURCE/prandtl_fluxes.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Log: prandtl_fluxes.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.19  2006/04/26 12:24:35  raasch
 ! +OpenMP directives and optimization (array assignments replaced by DO loops)
-!
-! Revision 1.18  2006/02/23 12:49:32  raasch
-! shf, ts, rif, us, usws, vsws, qs and qsws are now defined at the actual
-! surface of the model domain, i.e. either at the bottom or at the height
-! of the topography. Thus, zu(1) is replaced
-! by zp = ( zu(nzb_[variable]_inner(j,i)+1 - zw(nzb_[variable]_inner(j,i) ),
-! [variable](1,j,i) by [variable](nzb_[variable]_inner(j,i)+1,j,i) and
-! [variable](0,j,i) by [variable](nzb_[variable]_inner(j,i)  ,j,i).
-!
-! Revision 1.17  2004/04/30 12:43:50  raasch
-! rif_m replaced by rif (they are the same when used here)
-!
-! Revision 1.16  2003/11/20 15:13:26  raasch
-! Variable name (B) changed from capital to small
-!
-! Revision 1.15  2001/03/30 07:46:47  raasch
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.14  2001/01/29 12:33:38  raasch
-! Passive scalar is considered
-!
-! Revision 1.13  2001/01/25 07:23:22  raasch
-! Range of ts is limited, since otherwise overflow may occur on REAL*4
-! machines
-!
-! Revision 1.11  2001/01/22 07:50:34  raasch
-! Module test_variables removed
-!
-! Revision 1.10  2000/04/13 13:44:41  schroeter
-! + implentation of the Prandtl layer for the total water content
-!
-! Revision 1.9  2000/01/26  14:48:48  14:48:48  letzel (Marcus Letzel)
-! correct wrong time level of rif in computation of theta*,
-! all comments translated into English
-! 
-! Revision 1.8  1998/09/22 17:27:15  raasch
-! Testweise Randbedingung fuer TKE mit cm = 0.4, aber vorerst auskommentiert
-!
-! Revision 1.7  1998/08/05 06:54:23  raasch
-! Begrenzung von rif ist jetzt variabel (rif_max, rif_min)
-!
-! Revision 1.6  1998/07/06 12:30:01  raasch
-! + USE test_variables
-!
-! Revision 1.5  1998/04/15 11:22:58  raasch
-! Berechnung von theta* ueber Oberflaechentemperatur moeglich
-!
-! Revision 1.4  1998/03/11 11:53:22  raasch
-! Zusaetzliche untere Randbedingung fuer TKE ( (u*/0.1)**2 )
-!
-! Revision 1.3  1998/02/10 15:08:53  raasch
-! Grenzfall bei labiler Schichtung ( a=1, b=1 ) wird stabil gerechnet
-! Begrenzung von rif aktiviert
-!
-! Revision 1.2  1998/02/04 16:09:29  raasch
-! Berechnung der Waermefluesse
 !
 ! Revision 1.1  1998/01/23 10:06:06  raasch