Ignore:
Timestamp:
Jun 12, 2018 7:03:02 AM (3 years ago)
Author:
Giersch
Message:

New vertical stretching procedure has been introduced

File:
1 edited

Legend:

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

    r3049 r3065  
    2525! -----------------
    2626! $Id$
     27! IF statement revised to consider new vertical grid stretching
     28!
     29! 3049 2018-05-29 13:52:36Z Giersch
    2730! Error messages revised
    2831!
     
    734737
    735738       USE control_parameters,                                                 &
    736            ONLY:  dz, dz_stretch_level   
     739           ONLY:  dz, dz_stretch_level_start   
    737740 
    738741      USE grid_variables,                                                     &
     
    777780!--    if flight position is above the vertical grid-stretching level.
    778781!--    fac=1 if variable is on scalar grid level, fac=0 for w-component.
    779        IF ( z_pos(l) < dz_stretch_level )  THEN
    780           k = ( z_pos(l) + fac * 0.5_wp * dz ) / dz
     782       IF ( z_pos(l) < dz_stretch_level_start(1) )  THEN
     783          k = ( z_pos(l) + fac * 0.5_wp * dz(1) ) / dz(1)
    781784       ELSE
    782785!
Note: See TracChangeset for help on using the changeset viewer.