Ignore:
Timestamp:
Apr 13, 2012 6:28:59 AM (9 years ago)
Author:
raasch
Message:

Bugfix: preprocessor statements for parallel execution added

File:
1 edited

Legend:

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

    r879 r880  
    9191!-- on PE0, is larger than the number of grid points of an PE, than array
    9292!-- p3 will be enlarged.
    93 #if defined( __parallel )
    9493    IF ( gathered_size > subdomain_size )  THEN
    9594       ALLOCATE( p3(nzb:nzt_mg(mg_switch_to_pe0_level)+1,nys_mg(               &
     
    10099       ALLOCATE ( p3(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
    101100    ENDIF
    102 #else
    103    ALLOCATE ( p3(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
    104 #endif
    105101 
    106102!
Note: See TracChangeset for help on using the changeset viewer.