Changeset 2599 for palm/trunk/SOURCE/pmc_general_mod.f90

Timestamp:

Nov 1, 2017 1:18:45 PM (6 years ago)

Author:

hellstea

Message:

i/o grouping update for nested runs

File:

• palm/trunk/SOURCE/pmc_general_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/pmc_general_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Some cleanup and commenting improvements only.
+! 
+! 2101 2017-01-05 16:42:31Z suehring
 !
 ! 2000 2016-08-20 18:09:15Z knoop
@@ -153 +156 @@
  CONTAINS
 
+
+   
  SUBROUTINE pmc_g_setname( mychild, couple_index, aname )
 
@@ -170 +175 @@
 !-- Set name of array in arraydef structure
     DO  i = 1, mychild%inter_npes
-
        ape => mychild%pes(i)
        ape%nr_arrays = ape%nr_arrays + 1
        ape%array_list(ape%nr_arrays)%name        = aname
        ape%array_list(ape%nr_arrays)%coupleindex = couple_index
-
     ENDDO
 
@@ -196 +199 @@
 
     n = SIZE(array,2)
-
     DO  j = 1, n-1
        DO  i = j+1, n
-
           IF ( array(sort_ind,i) < array(sort_ind,j) )  THEN
              tmp = array(:,i)
@@ -205 +206 @@
              array(:,j) = tmp
           ENDIF
-
        ENDDO
     ENDDO