Changeset 880 for palm/trunk/SOURCE/poismg.f90

Timestamp:

Apr 13, 2012 6:28:59 AM (12 years ago)

Author:

raasch

Message:

Bugfix: preprocessor statements for parallel execution added

File:

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

palm/trunk/SOURCE/poismg.f90

@@ -91 +91 @@
 !-- on PE0, is larger than the number of grid points of an PE, than array
 !-- p3 will be enlarged.
-#if defined( __parallel ) 
     IF ( gathered_size > subdomain_size )  THEN 
        ALLOCATE( p3(nzb:nzt_mg(mg_switch_to_pe0_level)+1,nys_mg(               &
@@ -100 +99 @@
        ALLOCATE ( p3(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
     ENDIF
-#else
-   ALLOCATE ( p3(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
-#endif
  
 !