Changeset 2346 for palm


Ignore:
Timestamp:
Aug 9, 2017 4:39:17 PM (7 years ago)
Author:
suehring
Message:

Determination of topography-top index corrected

File:
1 edited

Legend:

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

    r2318 r2346  
    2525! -----------------
    2626! $Id$
     27! Bugfix, correct determination of topography top index
     28!
     29! 2318 2017-07-20 17:27:44Z suehring
    2730! Get topography top index via Function call
    2831!
     
    729732!--                            Determine surface level. Therefore, check for
    730733!--                            upward-facing wall on w-grid.
    731                                k_surf = get_topography_top_index( j, i, 'w' )
     734                               k_surf = get_topography_top_index( jp, ip, 'w' )
    732735
    733736                               IF ( seed_follows_topography )  THEN
Note: See TracChangeset for help on using the changeset viewer.