Ignore:
Timestamp:
Jul 30, 2008 7:07:47 AM (13 years ago)
Author:
raasch
Message:

bugfixes + adjustments for SGI ICE system

File:
1 edited

Legend:

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

    r139 r181  
    88! Actual revisions:
    99! -----------------
    10 !
     10! Bugfix: grid_level+1 has to be used in restrict for flags-array
    1111!
    1212! Former revisions:
     
    274274!
    275275!-- Choose flag array of the upper level
    276     SELECT CASE ( l )
     276    SELECT CASE ( l+1 )
    277277       CASE ( 1 )
    278278          flags => wall_flags_1
Note: See TracChangeset for help on using the changeset viewer.