Changeset 246 for palm/trunk/SOURCE/user_data_output_dvrp.f90

Timestamp:

Feb 27, 2009 11:42:39 AM (15 years ago)

Author:

raasch

Message:

further changes for dvrp clipping

File:

• palm/trunk/SOURCE/user_data_output_dvrp.f90 (modified) (4 diffs)

palm/trunk/SOURCE/user_data_output_dvrp.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Clipping implemented
 !
 ! Former revisions:
@@ -19 +19 @@
 
     USE control_parameters
+    USE dvrp_variables
     USE indices
     USE pegrid
@@ -29 +30 @@
     INTEGER ::  i, j, k
 
-    REAL, DIMENSION(nxl:nxr+1,nys:nyn+1,nzb:nz_do3d) ::  local_pf
+    REAL, DIMENSION(nxl_dvrp:nxr_dvrp+1,nys_dvrp:nyn_dvrp+1,nzb:nz_do3d) ::  &
+                                                                       local_pf
 
 !
@@ -42 +44 @@
 !!--       Here the user can add user_defined output quantities. 
 !!--       Uncomment and extend the following lines, if necessary.
-!          DO  i = nxl, nxr+1
-!             DO  j = nys, nyn+1
+!          DO  i = nxl_dvrp, nxr_dvrp+1
+!             DO  j = nys_dvrp, nyn_dvrp+1
 !                DO  k = nzb, nz_do3d
 !                   local_pf(i,j,k) = u2(k,j,i)