Changeset 287 for palm/trunk/SOURCE/data_output_dvrp.f90

Timestamp:

Apr 9, 2009 8:59:36 AM (15 years ago)

Author:

raasch

Message:

bugfix concerning dvr

File:

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

palm/trunk/SOURCE/data_output_dvrp.f90

@@ -93 +93 @@
     CHARACTER (LEN=6) ::  output_variable
     INTEGER ::  c_mode, c_size_x, c_size_y, c_size_z, dvrp_nop, dvrp_not,     &
-                gradient_normals, i, ip, j, jp, k, l, m, n, n_isosurfave,     &
+                gradient_normals, i, ip, j, jp, k, l, m, n, n_isosurface,     &
                 n_slicer, nn, section_mode, vn
     INTEGER, DIMENSION(:), ALLOCATABLE ::  p_c, p_t
@@ -99 +99 @@
     LOGICAL, DIMENSION(:), ALLOCATABLE ::  dvrp_mask
 
-    REAL(4) ::  center(3), distance, slicer_position, surface_value,         &
-                tmp_alpha, tmp_alpha_w, tmp_b, tmp_c_alpha, tmp_g, tmp_norm, &
-                tmp_pos, tmp_r, tmp_t, tmp_th
+    REAL(4) ::  slicer_position, tmp_alpha, tmp_alpha_w, tmp_b, tmp_c_alpha, &
+                tmp_g, tmp_norm, tmp_pos, tmp_r, tmp_t, tmp_th
     REAL(4), DIMENSION(:),     ALLOCATABLE   ::  psize, p_x, p_y, p_z
     REAL(4), DIMENSION(:,:,:), ALLOCATABLE   ::  local_pf