Ignore:
Timestamp:
Nov 13, 2007 2:08:40 PM (15 years ago)
Author:
letzel
Message:

DVRP output modifications:

  • The user can now visualize user-defined quantities using dvrp.

data_output_dvrp calls the new user_interface subroutine
user_data_output_dvrp in case of unknown variables (CASE DEFAULT).

  • Two instead of one digit are allowed to specify isosurface and slicer

variables with the parameter mode_dvrp.

File:
1 edited

Legend:

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

    r117 r130  
    44! Actual revisions:
    55! -----------------
     6! allow two instead of one digit to specify isosurface and slicer variables
    67! Output of sorting frequency of particles
    78!
     
    866867       DO WHILE ( mode_dvrp(i) /= ' ' )
    867868          IF ( mode_dvrp(i)(1:10) == 'isosurface' )  THEN
    868              READ ( mode_dvrp(i), '(10X,I1)' )  j
     869             READ ( mode_dvrp(i), '(10X,I2)' )  j
    869870             l = l + 1
    870871             IF ( do3d(0,j) /= ' ' )  THEN
     
    872873             ENDIF
    873874          ELSEIF ( mode_dvrp(i)(1:6) == 'slicer' )  THEN
    874              READ ( mode_dvrp(i), '(6X,I1)' )  j
     875             READ ( mode_dvrp(i), '(6X,I2)' )  j
    875876             IF ( do2d(0,j) /= ' ' )  WRITE ( io, 362 )  TRIM( do2d(0,j) )
    876877          ELSEIF ( mode_dvrp(i)(1:9) == 'particles' )  THEN
Note: See TracChangeset for help on using the changeset viewer.