Changeset 2232 for palm/trunk/SOURCE/lpm.f90

Timestamp:

May 30, 2017 5:47:52 PM (7 years ago)

Author:

suehring

Message:

Adjustments according new topography and surface-modelling concept implemented

File:

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

palm/trunk/SOURCE/lpm.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Adjustments to new topography concept
 ! 
 ! Former revisions:
@@ -123 +123 @@
 
     USE indices,                                                               &
-        ONLY: nxl, nxr, nys, nyn, nzb, nzb_max, nzt, nzb_w_inner
+        ONLY: nxl, nxr, nys, nyn, nzb, nzb_max, nzt
 
     USE kinds
@@ -365 +365 @@
 !--    Increment time since last release
        IF ( dt_3d_reached )  time_prel = time_prel + dt_3d
-
 !
 !--    Move Particles local to PE to a different grid cell