Changeset 1416 for palm/trunk/SOURCE/user_lpm_advec.f90

Timestamp:

Jun 4, 2014 4:04:03 PM (10 years ago)

Author:

suehring

Message:

Bugfixes concerning new particle structure

File:

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

palm/trunk/SOURCE/user_lpm_advec.f90

@@ -1 @@
- SUBROUTINE user_lpm_advec
+ SUBROUTINE user_lpm_advec( ip, jp, kp )
 
 !--------------------------------------------------------------------------------!
@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Provide template for new particle structure.
+! Moreover, user_lpm_advec is called for each gridpoint.
 ! 
 ! Former revisions:
@@ -65 +66 @@
 !
 !-- Here the user-defined actions follow
-!     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
+!   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
-    
+!   ENDDO
 
  END SUBROUTINE user_lpm_advec