Changeset 1779 for palm/trunk/SOURCE/interaction_droplets_ptq.f90

Timestamp:

Mar 3, 2016 8:01:28 AM (9 years ago)

Author:

raasch

Message:

pmc array management changed from linked list to sequential loop; further small changes and cosmetics for the pmc

File:

• palm/trunk/SOURCE/interaction_droplets_ptq.f90 (modified) (6 diffs)

palm/trunk/SOURCE/interaction_droplets_ptq.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! module procedure names shortened to avoid Intel compiler warnings about too
+! long names
 ! 
 ! Former revisions:
@@ -60 +61 @@
 
     INTERFACE interaction_droplets_ptq
-       MODULE PROCEDURE interaction_droplets_ptq
-       MODULE PROCEDURE interaction_droplets_ptq_ij
+!
+!--    Internal names shortened in order ro avoid Intel compiler messages
+!--    about too long names
+       MODULE PROCEDURE i_droplets_ptq
+       MODULE PROCEDURE i_droplets_ptq_ij
     END INTERFACE interaction_droplets_ptq
  
@@ -72 +76 @@
 !> Call for all grid points
 !------------------------------------------------------------------------------!
-    SUBROUTINE interaction_droplets_ptq
+    SUBROUTINE i_droplets_ptq
 
        USE arrays_3d,                                                          &
@@ -103 +107 @@
        ENDDO
 
-    END SUBROUTINE interaction_droplets_ptq
+    END SUBROUTINE i_droplets_ptq
 
 
@@ -111 +115 @@
 !> Call for grid point i,j
 !------------------------------------------------------------------------------!
-    SUBROUTINE interaction_droplets_ptq_ij( i, j )
+    SUBROUTINE i_droplets_ptq_ij( i, j )
 
        USE arrays_3d,                                                          &
@@ -139 +143 @@
        ENDDO
 
-    END SUBROUTINE interaction_droplets_ptq_ij
+    END SUBROUTINE i_droplets_ptq_ij
 
  END MODULE interaction_droplets_ptq_mod