Changeset 197 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Sep 16, 2008 3:29:03 PM (16 years ago)

Author:

raasch

Message:

further adjustments for SGI and other small changes

File:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -5 +5 @@
 ! -----------------
 ! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!!
+! multigrid levels are limited by subdomains if mg_switch_to_pe0_level = -1,
 ! nz is used instead nnz for calculating mg-levels
 ! Collect on PE0 horizontal index bounds from all other PEs,
@@ -719 +720 @@
 !--    Find out, if the total domain allows more levels. These additional
 !--    levels are processed on PE0 only.
-       IF ( numprocs > 1 )  THEN
+       IF ( numprocs > 1  .AND.  mg_switch_to_pe0_level /= -1 )  THEN
           IF ( mg_levels_z > MIN( mg_levels_x, mg_levels_y ) )  THEN
              mg_switch_to_pe0_level_l = maximum_grid_level