Changeset 130 for palm/trunk/SOURCE/data_output_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/data_output_dvrp.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_dvrp.f90

@@ -32 +32 @@
 ! Actual revisions:
 ! -----------------
+! allow two instead of one digit to specify isosurface and slicer variables
+! for unknown variables (CASE DEFAULT) call new subroutine 
+! user_data_output_dvrp
 ! TEST: different colours for isosurfaces
 ! TEST: write statements
@@ -116 +119 @@
 !--    isosurfaces)
        IF ( mode_dvrp(m)(1:10) == 'isosurface' )  THEN
-          READ ( mode_dvrp(m), '(10X,I1)' )  vn
+          READ ( mode_dvrp(m), '(10X,I2)' )  vn
           output_variable = do3d(0,vn)
           tv = tv + 1
        ELSEIF ( mode_dvrp(m)(1:6) == 'slicer' )  THEN
-          READ ( mode_dvrp(m), '(6X,I1)' )  vn
+          READ ( mode_dvrp(m), '(6X,I2)' )  vn
           output_variable = do2d(0,vn)
           l = MAX( 2, LEN_TRIM( do2d(0,vn) ) )
@@ -410 +413 @@
 
              CASE DEFAULT
-                IF ( myid == 0 )  THEN
-                   PRINT*,'+++ data_output_dvrp: no output possible for: ', &
-                          output_variable
-                ENDIF
+!
+!--             The DEFAULT case is reached either if output_variable contains
+!--             unsupported variable or if the user has coded a special case in
+!--             the user interface. There, the subroutine user_data_output_dvrp 
+!--             checks which of these two conditions applies.
+                CALL user_data_output_dvrp( output_variable, local_pf )
+
 
           END SELECT