Changeset 130 for palm/trunk/SOURCE/init_dvrp.f90

Timestamp:

Nov 13, 2007 2:08:40 PM (16 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:

• palm/trunk/SOURCE/init_dvrp.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_dvrp.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! allow two instead of one digit to specify isosurface and slicer variables
 ! Test output of isosurface on camera file
 ! TEST: print* statements
@@ -395 +396 @@
              IF ( mode_dvrp(pn)(1:10) == 'isosurface' )  THEN
 
-                READ ( mode_dvrp(pn), '(10X,I1)' )  vn
+                READ ( mode_dvrp(pn), '(10X,I2)' )  vn
                 steering_dvrp(pn)%name = do3d(0,vn)
                 tv = tv + 1
@@ -417 +418 @@
              ELSEIF ( mode_dvrp(pn)(1:6) == 'slicer' )  THEN
 
-                READ ( mode_dvrp(pn), '(6X,I1)' )  vn
+                READ ( mode_dvrp(pn), '(6X,I2)' )  vn
                 steering_dvrp(pn)%name = do2d(0,vn)
                 name_c = TRIM( do2d(0,vn) )