Ignore:
Timestamp:
Mar 11, 2009 3:17: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/parin.f90

    r256 r257  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
     6! Output of messages replaced by message handling routine.
    67! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left,
    78! canyon_wall_south, conserve_volume_flow_mode, dp_external, dp_level_b,
     
    176177    READ ( 11, inipar, ERR=10, END=11 )
    177178    GOTO 12
    178  10 IF ( myid == 0 )  THEN
    179        PRINT*, '+++ parin: errors in \$inipar'
    180        PRINT*, '           or no \$inipar-namelist found (CRAY-machines only)'
    181     ENDIF
    182     CALL local_stop
    183  11 IF ( myid == 0 )  THEN
    184        PRINT*, '+++ parin: no \$inipar-namelist found'
    185     ENDIF
    186     CALL local_stop
     179 10 message_string = 'errors in \$inipar &or no \$inipar-namelist found (CRAY-machines only)'
     180    CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
     181
     182 11 message_string = 'no \$inipar-namelist found'
     183    CALL message( 'parin', 'PA0272', 1, 2, 0, 6, 0 )
    187184
    188185!
     
    230227
    231228       IF ( nx <= 0 )  THEN
    232           IF ( myid == 0 )  THEN
    233              PRINT*, '+++ parin: no value or wrong value given for nx: nx=', nx
    234           ENDIF
    235           CALL local_stop
     229          WRITE( message_string, * ) 'no value or wrong value given for nx: nx=', nx
     230          CALL message( 'parin', 'PA0273', 1, 2, 0, 6, 0 )
    236231       ENDIF
    237232       IF ( ny <= 0 )  THEN
    238           IF ( myid == 0 )  THEN
    239              PRINT*, '+++ parin: no value or wrong value given for ny: ny=', ny
    240           ENDIF
    241           CALL local_stop
     233          WRITE( message_string, * ) 'no value or wrong value given for ny: ny=', ny
     234          CALL message( 'parin', 'PA0274', 1, 2, 0, 6, 0 )
    242235       ENDIF
    243236       IF ( nz <= 0 )  THEN
    244           IF ( myid == 0 )  THEN
    245              PRINT*, '+++ parin: no value or wrong value given for nz: nz=', nz
    246           ENDIF
    247           CALL local_stop
     237          WRITE( message_string, * ) 'no value or wrong value given for nz: nz=', nz
     238          CALL message( 'parin', 'PA0275', 1, 2, 0, 6, 0 )
    248239       ENDIF
    249240!
     
    270261    RETURN
    271262
    272  30 IF ( myid == 0 )  THEN
    273        PRINT*, '+++ parin: WARNING: local file ENVPAR not found'
    274        PRINT*, '           some variables for steering may not be properly set'
    275     ENDIF
     263 30 message_string = 'local file ENVPAR not found' // &
     264                     '&some variables for steering may not be properly set'
     265    CALL message( 'parin', 'PA0276', 0, 1, 0, 6, 0 )
    276266    RETURN
    277267
    278  31 IF ( myid == 0 )  THEN
    279        PRINT*, '+++ parin: WARNING: errors in local file ENVPAR'
    280        PRINT*, '           some variables for steering may not be properly set'
    281     ENDIF
     268 31 message_string = 'errors in local file ENVPAR' // &
     269                     '&some variables for steering may not be properly set'
     270    CALL message( 'parin', 'PA0277', 0, 1, 0, 6, 0 )
    282271    RETURN
    283272
    284  32 IF ( myid == 0 )  THEN
    285        PRINT*, '+++ parin: WARNING: no envpar-NAMELIST found in local file ', &
    286                            'ENVPAR'
    287        PRINT*, '           some variables for steering may not be properly set'
    288     ENDIF
     273 32 message_string = 'no envpar-NAMELIST found in local file ENVPAR'  // &
     274                     '&some variables for steering may not be properly set'
     275    CALL message( 'parin', 'PA0278', 0, 1, 0, 6, 0 )
    289276
    290277 END SUBROUTINE parin
Note: See TracChangeset for help on using the changeset viewer.