Ignore:
Timestamp:
Mar 5, 2009 3:33:42 PM (13 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routine.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_dvrp.f90

    r246 r254  
    3030
    3131!------------------------------------------------------------------------------!
    32 ! Actual revisions:
     32! Current revisions:
    3333! -----------------
     34! Output of messages replaced by message handling routine.
    3435! TEST: different colours for isosurfaces
    3536!
     
    398399                         ENDDO
    399400                      ENDDO           
    400                    ELSE
    401                       IF ( myid == 0 )  THEN
    402                          PRINT*, '+++ data_output_dvrp: if humidity/passive_scalar = ', &
    403                                  'FALSE output of ', output_variable,            &
    404                                  'is not provided'
    405                       ENDIF
     401                   ELSE                   
     402                      message_string = 'if humidity/passive_scalar = ' //  &
     403                                       'FALSE output of ' // TRIM( output_variable ) // &
     404                                       'is not provided'
     405                      CALL message( 'data_output_dvrp', 'PA0183', 0, 0, 0, 6, 0 )
    406406                   ENDIF
    407407             
     
    415415                         ENDDO
    416416                      ENDDO
    417                    ELSE
    418                       IF ( myid == 0 ) THEN
    419                          PRINT*, '+++ data_output_dvrp: if cloud_physics = FALSE ', &
    420                                  'output of ', output_variable, 'is not provided'
    421                       ENDIF
     417                   ELSE                     
     418                         message_string = 'if cloud_physics = FALSE ' // &
     419                                          'output of ' // TRIM( output_variable) // &
     420                                         'is not provided'
     421                         CALL message( 'data_output_dvrp', 'PA0184', 0, 0, 0, 6, 0 )
    422422                   ENDIF
    423423
Note: See TracChangeset for help on using the changeset viewer.