Changeset 1015 for palm/trunk/SOURCE/header.f90

Timestamp:

Sep 27, 2012 9:23:24 AM (12 years ago)

Author:

raasch

Message:

Starting with changes required for GPU optimization. OpenACC statements for using NVIDIA GPUs added.
Adjustment of mixing length to the Prandtl mixing length at first grid point above ground removed.
mask array is set zero for ghost boundaries

File:

• palm/trunk/SOURCE/header.f90 (modified) (3 diffs)

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! output of Aajustment of mixing length to the Prandtl mixing length at first
+! grid point above ground removed
 !
 ! Former revisions:
@@ -1482 +1483 @@
        IF ( e_min > 0.0 )  WRITE ( io, 454 )  e_min
        IF ( wall_adjustment )  WRITE ( io, 453 )  wall_adjustment_factor
-       IF ( adjust_mixing_length  .AND.  prandtl_layer )  WRITE ( io, 452 )
     ENDIF
 
@@ -1936 +1936 @@
 451 FORMAT ('    Diffusion coefficients are constant:'/ &
             '    Km = ',F6.2,' m**2/s   Kh = ',F6.2,' m**2/s   Pr = ',F5.2)
-452 FORMAT ('    Mixing length is limited to the Prandtl mixing lenth.')
 453 FORMAT ('    Mixing length is limited to ',F4.2,' * z')
 454 FORMAT ('    TKE is not allowed to fall below ',E9.2,' (m/s)**2')