Ignore:
Timestamp:
Apr 9, 2009 8:59:36 AM (12 years ago)
Author:
raasch
Message:

bugfix concerning dvr

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_dvrp.f90

    r284 r287  
    9393    CHARACTER (LEN=6) ::  output_variable
    9494    INTEGER ::  c_mode, c_size_x, c_size_y, c_size_z, dvrp_nop, dvrp_not,     &
    95                 gradient_normals, i, ip, j, jp, k, l, m, n, n_isosurfave,     &
     95                gradient_normals, i, ip, j, jp, k, l, m, n, n_isosurface,     &
    9696                n_slicer, nn, section_mode, vn
    9797    INTEGER, DIMENSION(:), ALLOCATABLE ::  p_c, p_t
     
    9999    LOGICAL, DIMENSION(:), ALLOCATABLE ::  dvrp_mask
    100100
    101     REAL(4) ::  center(3), distance, slicer_position, surface_value,         &
    102                 tmp_alpha, tmp_alpha_w, tmp_b, tmp_c_alpha, tmp_g, tmp_norm, &
    103                 tmp_pos, tmp_r, tmp_t, tmp_th
     101    REAL(4) ::  slicer_position, tmp_alpha, tmp_alpha_w, tmp_b, tmp_c_alpha, &
     102                tmp_g, tmp_norm, tmp_pos, tmp_r, tmp_t, tmp_th
    104103    REAL(4), DIMENSION(:),     ALLOCATABLE   ::  psize, p_x, p_y, p_z
    105104    REAL(4), DIMENSION(:,:,:), ALLOCATABLE   ::  local_pf
Note: See TracChangeset for help on using the changeset viewer.