Ignore:
Timestamp:
Nov 13, 2007 2:08:40 PM (14 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/data_output_dvrp.f90

    r106 r130  
    3232! Actual revisions:
    3333! -----------------
     34! allow two instead of one digit to specify isosurface and slicer variables
     35! for unknown variables (CASE DEFAULT) call new subroutine
     36! user_data_output_dvrp
    3437! TEST: different colours for isosurfaces
    3538! TEST: write statements
     
    116119!--    isosurfaces)
    117120       IF ( mode_dvrp(m)(1:10) == 'isosurface' )  THEN
    118           READ ( mode_dvrp(m), '(10X,I1)' )  vn
     121          READ ( mode_dvrp(m), '(10X,I2)' )  vn
    119122          output_variable = do3d(0,vn)
    120123          tv = tv + 1
    121124       ELSEIF ( mode_dvrp(m)(1:6) == 'slicer' )  THEN
    122           READ ( mode_dvrp(m), '(6X,I1)' )  vn
     125          READ ( mode_dvrp(m), '(6X,I2)' )  vn
    123126          output_variable = do2d(0,vn)
    124127          l = MAX( 2, LEN_TRIM( do2d(0,vn) ) )
     
    410413
    411414             CASE DEFAULT
    412                 IF ( myid == 0 )  THEN
    413                    PRINT*,'+++ data_output_dvrp: no output possible for: ', &
    414                           output_variable
    415                 ENDIF
     415!
     416!--             The DEFAULT case is reached either if output_variable contains
     417!--             unsupported variable or if the user has coded a special case in
     418!--             the user interface. There, the subroutine user_data_output_dvrp
     419!--             checks which of these two conditions applies.
     420                CALL user_data_output_dvrp( output_variable, local_pf )
     421
    416422
    417423          END SELECT
Note: See TracChangeset for help on using the changeset viewer.