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/init_pegrid.f90

    r163 r181  
    44! Actual revisions:
    55! -----------------
     6! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!!
     7! nz is used instead nnz for calculating mg-levels
    68! Collect on PE0 horizontal index bounds from all other PEs,
    79! broadcast the id of the inflow PE (using the respective communicator)
     
    340342
    341343       sendrecvcount_zx = nnx * nny * nnz_x
     344
     345    ELSE
     346!
     347!---   Setting of dummy values because otherwise variables are undefined in
     348!---   the next step  x --> y
     349!---   WARNING: This case has still to be clarified!!!!!!!!!!!!
     350       nnz_x  = 1
     351       nzb_x  = 1
     352       nzt_xa = 1
     353       nzt_x  = 1
     354       nny_x  = nny
    342355
    343356    ENDIF
     
    694707       ENDDO
    695708
    696        k = nnz
     709       k = nz    ! do not use nnz because it might be > nz due to transposition
     710                 ! requirements
    697711       DO WHILE ( MOD( k, 2 ) == 0  .AND.  k /= 2 )
    698712          k = k / 2
Note: See TracChangeset for help on using the changeset viewer.