Changeset 1320 for palm/trunk/SOURCE/lpm_extend_tail_array.f90

Timestamp:

Mar 20, 2014 8:40:49 AM (11 years ago)

Author:

raasch

Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:

• palm/trunk/SOURCE/lpm_extend_tail_array.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_extend_tail_array.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! ONLY-attribute added to USE-statements,
+! kind-parameters added to all INTEGER and REAL declaration statements,
+! kinds are defined in new module kinds,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements
 !
 ! Former revisions:
@@ -38 +42 @@
 !------------------------------------------------------------------------------!
 
-    USE particle_attributes
+    USE kinds
+
+    USE particle_attributes,                                                   &
+        ONLY:  maximum_number_of_tails, maximum_number_of_tailpoints,          &
+               new_tail_id, number_of_initial_tails, number_of_tails,          &
+               particle_tail_coordinates, tail_mask, write_particle_statistics
 
     IMPLICIT NONE
 
-    INTEGER ::  new_maximum_number, number_of_new_tails
+    INTEGER(iwp) ::  new_maximum_number                           !:
+    INTEGER(iwp) ::  number_of_new_tails                          !:
 
-    LOGICAL, DIMENSION(maximum_number_of_tails) ::  tmp_tail_mask
+    LOGICAL, DIMENSION(maximum_number_of_tails) ::  tmp_tail_mask !:
 
-    REAL, DIMENSION(maximum_number_of_tailpoints,5,maximum_number_of_tails) :: &
-                                                    tmp_tail
+    REAL(wp), DIMENSION(maximum_number_of_tailpoints,5,maximum_number_of_tails) :: &
+                                                    tmp_tail      !: