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

Timestamp:

Jul 30, 2008 7:07:47 AM (16 years ago)

Author:

raasch

Message:

bugfixes + adjustments for SGI ICE system

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!!
+! nz is used instead nnz for calculating mg-levels
 ! Collect on PE0 horizontal index bounds from all other PEs,
 ! broadcast the id of the inflow PE (using the respective communicator)
@@ -340 +342 @@
 
        sendrecvcount_zx = nnx * nny * nnz_x
+
+    ELSE
+!
+!---   Setting of dummy values because otherwise variables are undefined in
+!---   the next step  x --> y
+!---   WARNING: This case has still to be clarified!!!!!!!!!!!!
+       nnz_x  = 1
+       nzb_x  = 1
+       nzt_xa = 1
+       nzt_x  = 1
+       nny_x  = nny
 
     ENDIF
@@ -694 +707 @@
        ENDDO
 
-       k = nnz
+       k = nz    ! do not use nnz because it might be > nz due to transposition
+                 ! requirements
        DO WHILE ( MOD( k, 2 ) == 0  .AND.  k /= 2 )
           k = k / 2