Ignore:
Timestamp:
Sep 16, 2008 3:29:03 PM (13 years ago)
Author:
raasch
Message:

further adjustments for SGI and other small changes

File:
1 edited

Legend:

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

    r181 r197  
    55! -----------------
    66! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!!
     7! multigrid levels are limited by subdomains if mg_switch_to_pe0_level = -1,
    78! nz is used instead nnz for calculating mg-levels
    89! Collect on PE0 horizontal index bounds from all other PEs,
     
    719720!--    Find out, if the total domain allows more levels. These additional
    720721!--    levels are processed on PE0 only.
    721        IF ( numprocs > 1 )  THEN
     722       IF ( numprocs > 1  .AND.  mg_switch_to_pe0_level /= -1 )  THEN
    722723          IF ( mg_levels_z > MIN( mg_levels_x, mg_levels_y ) )  THEN
    723724             mg_switch_to_pe0_level_l = maximum_grid_level
Note: See TracChangeset for help on using the changeset viewer.