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/init_dvrp.f90

    r83 r130  
    44! Actual revisions:
    55! -----------------
     6! allow two instead of one digit to specify isosurface and slicer variables
    67! Test output of isosurface on camera file
    78! TEST: print* statements
     
    395396             IF ( mode_dvrp(pn)(1:10) == 'isosurface' )  THEN
    396397
    397                 READ ( mode_dvrp(pn), '(10X,I1)' )  vn
     398                READ ( mode_dvrp(pn), '(10X,I2)' )  vn
    398399                steering_dvrp(pn)%name = do3d(0,vn)
    399400                tv = tv + 1
     
    417418             ELSEIF ( mode_dvrp(pn)(1:6) == 'slicer' )  THEN
    418419
    419                 READ ( mode_dvrp(pn), '(6X,I1)' )  vn
     420                READ ( mode_dvrp(pn), '(6X,I2)' )  vn
    420421                steering_dvrp(pn)%name = do2d(0,vn)
    421422                name_c = TRIM( do2d(0,vn) )
Note: See TracChangeset for help on using the changeset viewer.