Changeset 4212

Timestamp:

Sep 2, 2019 2:23:05 PM (5 years ago)

Author:

suehring

Message:

Allocate array for index lists in nesting also for zero-size arrays, in order to avoid error when array bound checks are enabled

File:

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

palm/trunk/SOURCE/pmc_parent_mod.f90

@@ -21 +21 @@
 ! Current revisions:
 ! ------------------
-! 
+! Allocate array for index_list_2d also for zero-size arrays, in order to  
+! avoid errors when array bound checks are enabled 
 ! 
 ! Former revisions:
@@ -221 +222 @@
            IF ( ip == 0 )  THEN
               indchildren(childid)%nrpoints = ian
+!
+!--           Allocate array for index_list_2d. Note, the array will also be 
+!--           allocated in case ian=0, in order to avoid errors when
+!--           array bounds are checked. 
+              ALLOCATE( indchildren(childid)%index_list_2d(6,1:ian) )
               IF ( ian > 0)  THEN
-                  ALLOCATE( indchildren(childid)%index_list_2d(6,ian) )
                   indchildren(childid)%index_list_2d(:,1:ian) =                &
                                                              index_list(:,is:ie)
@@ -240 +245 @@
                        m_model_comm, MPI_STATUS_IGNORE, istat )
         ian = indchildren(childid)%nrpoints
+!
+!--     Allocate array for index_list_2d. Note, the array will also be 
+!--     allocated in case ian=0, in order to avoid errors when
+!--     array bounds are checked. 
+        ALLOCATE( indchildren(childid)%index_list_2d(6,1:ian) )
         IF ( ian > 0 )  THEN
-           ALLOCATE( indchildren(childid)%index_list_2d(6,ian) )
            CALL MPI_RECV( indchildren(childid)%index_list_2d, 6*ian,           &
                           MPI_INTEGER, 0, 1001, m_model_comm,                  &