Changeset 3065 for palm/trunk/SOURCE/virtual_flight_mod.f90

Timestamp:

Jun 12, 2018 7:03:02 AM (6 years ago)

Author:

Giersch

Message:

New vertical stretching procedure has been introduced

File:

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

palm/trunk/SOURCE/virtual_flight_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! IF statement revised to consider new vertical grid stretching
+! 
+! 3049 2018-05-29 13:52:36Z Giersch
 ! Error messages revised
 ! 
@@ -734 +737 @@
 
        USE control_parameters,                                                 &
-           ONLY:  dz, dz_stretch_level   
+           ONLY:  dz, dz_stretch_level_start   
   
       USE grid_variables,                                                     &
@@ -777 +780 @@
 !--    if flight position is above the vertical grid-stretching level.
 !--    fac=1 if variable is on scalar grid level, fac=0 for w-component.
-       IF ( z_pos(l) < dz_stretch_level )  THEN
-          k = ( z_pos(l) + fac * 0.5_wp * dz ) / dz
+       IF ( z_pos(l) < dz_stretch_level_start(1) )  THEN
+          k = ( z_pos(l) + fac * 0.5_wp * dz(1) ) / dz(1)
        ELSE
 !