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

Timestamp:

Nov 13, 2007 2:08:40 PM (17 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/header.f90 (modified) (3 diffs)

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! allow two instead of one digit to specify isosurface and slicer variables
 ! Output of sorting frequency of particles
 !
@@ -866 +867 @@
        DO WHILE ( mode_dvrp(i) /= ' ' )
           IF ( mode_dvrp(i)(1:10) == 'isosurface' )  THEN
-             READ ( mode_dvrp(i), '(10X,I1)' )  j
+             READ ( mode_dvrp(i), '(10X,I2)' )  j
              l = l + 1
              IF ( do3d(0,j) /= ' ' )  THEN
@@ -872 +873 @@
              ENDIF
           ELSEIF ( mode_dvrp(i)(1:6) == 'slicer' )  THEN
-             READ ( mode_dvrp(i), '(6X,I1)' )  j
+             READ ( mode_dvrp(i), '(6X,I2)' )  j
              IF ( do2d(0,j) /= ' ' )  WRITE ( io, 362 )  TRIM( do2d(0,j) )
           ELSEIF ( mode_dvrp(i)(1:9) == 'particles' )  THEN