Changeset 1359 for palm/trunk/SOURCE/user_lpm_set_attributes.f90

Timestamp:

Apr 11, 2014 5:15:14 PM (10 years ago)

Author:

hoffmann

Message:

new Lagrangian particle structure integrated

File:

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

palm/trunk/SOURCE/user_lpm_set_attributes.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! New particle structure integrated. 
 !
 ! Former revisions:
@@ -47 +47 @@
 !------------------------------------------------------------------------------!
 
+    USE indices,                                                               &
+        ONLY:  nxl, nxr, nys, nyn, nzb, nzt
+
     USE kinds
     
@@ -55 +58 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  n   !: 
+    INTEGER(iwp) ::  ip   !:
+    INTEGER(iwp) ::  jp   !: 
+    INTEGER(iwp) ::  kp   !: 
+    INTEGER(iwp) ::  n    !: 
 
 !
 !-- Here the user-defined actions follow
-!    DO  n = 1, number_of_initial_particles
-!    ENDDO
+!     DO  ip = nxl, nxr
+!        DO  jp = nys, nyn
+!           DO  kp = nzb+1, nzt
+!              number_of_particles = prt_count(kp,jp,ip)
+!              particles => grid_particles(kp,jp,ip)%particles(1:number_of_particles)
+!              IF ( number_of_particles <= 0 )  CYCLE
+!              DO  n = 1, number_of_particles
+!
+!              ENDDO
+!           ENDDO
+!        ENDDO
+!     ENDDO
+    
 
  END SUBROUTINE user_lpm_set_attributes