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

    r3049 r3065  
    2525! -----------------
    2626! $Id$
     27! dz was replaced by dz(1) to allow for right vertical stretching
     28!
     29! 3049 2018-05-29 13:52:36Z Giersch
    2730! Error messages revised
    2831!
     
    910913       ip = particle_array(n)%x * ddx
    911914       jp = particle_array(n)%y * ddy
    912        kp = particle_array(n)%z / dz + 1 + offset_ocean_nzt
     915       kp = particle_array(n)%z / dz(1) + 1 + offset_ocean_nzt
    913916!
    914917!--    In case of grid stretching a particle might be above or below the 
Note: See TracChangeset for help on using the changeset viewer.