Ignore:
Timestamp:
Dec 14, 2017 6:46:24 PM (4 years ago)
Author:
suehring
Message:

Particle reflections at downward-facing walls; revision of particle speed interpolations at walls; bugfixes in get_topography_index and in date constants

File:
1 edited

Legend:

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

    r2696 r2698  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix in get_topography_top_index
    2323!
    2424! Former revisions:
     
    298298
    299299    USE surface_mod,                                                           &
    300         ONLY:  get_topography_top_index, init_bc
     300        ONLY:  get_topography_top_index, get_topography_top_index_ji, init_bc
    301301
    302302    USE vertical_nesting_mod,                                                  &
     
    552552!--          Topography height on scalar grid. Therefore, determine index of
    553553!--          upward-facing surface element on scalar grid.
    554              zu_s_inner(i,j) = zu( get_topography_top_index( j, i, 's' ) )
     554             zu_s_inner(i,j) = zu( get_topography_top_index_ji( j, i, 's' ) )
    555555!
    556556!--          Topography height on w grid. Therefore, determine index of
    557557!--          upward-facing surface element on w grid.
    558              zw_w_inner(i,j) = zw( get_topography_top_index( j, i, 's' ) )
     558             zw_w_inner(i,j) = zw( get_topography_top_index_ji( j, i, 's' ) )
    559559          ENDDO
    560560       ENDDO
     
    14711471
    14721472    USE surface_mod,                                                           &
    1473         ONLY:  get_topography_top_index
     1473        ONLY:  get_topography_top_index, get_topography_top_index_ji
    14741474
    14751475    IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.