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

Timestamp:

Jan 5, 2021 11:21:41 AM (3 years ago)

Author:

Giersch

Message:

Copyright updated to year 2021, interface pmc_sort removed to accelarate the nesting code

File:

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

palm/trunk/SOURCE/pmc_general_mod.f90

@@ -15 +15 @@
 ! <http://www.gnu.org/licenses/>.
 !
-! Copyright 1997-2020 Leibniz Universitaet Hannover
+! Copyright 1997-2021 Leibniz Universitaet Hannover
 !--------------------------------------------------------------------------------------------------!
 !
@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Interface pmc_sort removed. Subroutine description added.
+!
+! 4649 2020-08-25 12:11:17Z raasch
 ! File re-formatted to follow the PALM coding standard
 !
@@ -143 +146 @@
     END INTERFACE pmc_g_setname
 
-    INTERFACE pmc_sort
-       MODULE PROCEDURE sort_2d_i
-    END INTERFACE pmc_sort
-
-    PUBLIC pmc_g_setname, pmc_sort
+    PUBLIC pmc_g_setname
 
  CONTAINS
 
-!--------------------------------------------------------------------------------------------------!
+!---------------------------------------------------------------------------------------------------!
 ! Description:
 ! ------------
-!> @Todo: Missing subroutine description.
-!--------------------------------------------------------------------------------------------------!
+!> Add array to list of arraydef structure. No the arra "name" is schedules for parent child transfer
+!---------------------------------------------------------------------------------------------------!
  SUBROUTINE pmc_g_setname( mychild, couple_index, aname )
 
@@ -182 +181 @@
  END SUBROUTINE pmc_g_setname
 
-
-!--------------------------------------------------------------------------------------------------!
-! Description:
-! ------------
-!> @Todo: Missing subroutine description.
-!--------------------------------------------------------------------------------------------------!
- SUBROUTINE sort_2d_i( array, sort_ind )
-
-    IMPLICIT NONE
-
-    INTEGER(iwp), INTENT(IN)                    ::  sort_ind
-    INTEGER(iwp), DIMENSION(:,:), INTENT(INOUT) ::  array
-
-    INTEGER(iwp) ::  i  !<
-    INTEGER(iwp) ::  j  !<
-    INTEGER(iwp) ::  n  !<
-
-    INTEGER(iwp), DIMENSION(SIZE(array,1)) ::  tmp  !<
-
-    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)
-             array(:,i) = array(:,j)
-             array(:,j) = tmp
-          ENDIF
-       ENDDO
-    ENDDO
-
- END  SUBROUTINE sort_2d_i
-
 #endif
  END MODULE pmc_general