Changeset 214 for palm


Ignore:
Timestamp:
Nov 14, 2008 10:06:34 AM (16 years ago)
Author:
raasch
Message:

further replacement of output messages

File:
1 edited

Legend:

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

    r213 r214  
    403403    IF ( momentum_advec /= 'pw-scheme' .AND. momentum_advec /= 'ups-scheme' ) &
    404404    THEN
    405        IF ( myid == 0 )  PRINT*, '+++ check_parameters:  unknown advection ', &
    406                                  'scheme: momentum_advec=', momentum_advec
    407        CALL local_stop
     405       message_string = 'unknown advection scheme: momentum_advec = "' // &
     406                        TRIM( momentum_advec ) // '"'
     407       CALL handle_palm_message( 'check_parameters', 'PA0022', 1, 2, 0, 6, 0 )
    408408    ENDIF
    409409    IF ( ( momentum_advec == 'ups-scheme'  .OR.  scalar_advec == 'ups-scheme' )&
    410410                                      .AND.  timestep_scheme /= 'euler' )  THEN
    411        IF ( myid == 0 )  PRINT*, '+++ check_parameters:  momentum_advec=', &
    412                                  momentum_advec, ' is not allowed with ', &
    413                                  'timestep_scheme=', timestep_scheme
    414        CALL local_stop
     411       message_string = 'momentum_advec = "' // TRIM( momentum_advec ) // &
     412                        '" is not allowed with timestep_scheme = "' //    &
     413                        TRIM( timestep_scheme ) // '"'
     414       CALL handle_palm_message( 'check_parameters', 'PA0023', 1, 2, 0, 6, 0 )
    415415    ENDIF
    416416
    417417    IF ( scalar_advec /= 'pw-scheme'  .AND.  scalar_advec /= 'bc-scheme'  .AND.&
    418418         scalar_advec /= 'ups-scheme' )  THEN
    419        IF ( myid == 0 )  PRINT*, '+++ check_parameters:  unknown advection ', &
    420                                  'scheme: scalar_advec=', scalar_advec
    421        CALL local_stop
     419       message_string = 'unknown advection scheme: scalar_advec = "' // &
     420                        TRIM( scalar_advec ) // '"'
     421       CALL handle_palm_message( 'check_parameters', 'PA0024', 1, 2, 0, 6, 0 )
    422422    ENDIF
    423423
    424424    IF ( use_sgs_for_particles  .AND.  .NOT. use_upstream_for_tke )  THEN
    425425       use_upstream_for_tke = .TRUE.
    426        IF ( myid == 0 )  THEN
    427           PRINT*, '+++ WARNING: check_parameters:  use_upstream_for_tke set ', &
    428                        '.TRUE. because use_sgs_for_particles = .TRUE.'
    429        ENDIF
     426       message_string = 'use_upstream_for_tke set .TRUE. because ' // &
     427                        'use_sgs_for_particles = .TRUE.'
     428       CALL handle_palm_message( 'check_parameters', 'PA0025', 0, 1, 0, 6, 0 )
    430429    ENDIF
    431430
    432431    IF ( use_upstream_for_tke  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    433        IF ( myid == 0 )  THEN
    434           PRINT*, '+++ check_parameters:  use_upstream_for_tke = .TRUE. ', &
    435                        'not allowed with timestep_scheme=', timestep_scheme
    436        ENDIF
    437        CALL local_stop
     432       message_string = 'use_upstream_for_tke = .TRUE. not allowed with ' // &
     433                        'timestep_scheme = "' // TRIM( timestep_scheme ) // '"'
     434       CALL handle_palm_message( 'check_parameters', 'PA0026', 1, 2, 0, 6, 0 )
    438435    ENDIF
    439436
     
    458455
    459456       CASE DEFAULT
    460           IF ( myid == 0 )  PRINT*, '+++ check_parameters:  unknown timestep ',&
    461                                     'scheme: timestep_scheme=', timestep_scheme
    462           CALL local_stop
     457          message_string = 'unknown timestep scheme: timestep_scheme = "' // &
     458                           TRIM( timestep_scheme ) // '"'
     459          CALL handle_palm_message( 'check_parameters', 'PA0027', 1, 2, 0, 6, &
     460                                    0 )
    463461
    464462    END SELECT
     
    466464    IF ( scalar_advec == 'ups-scheme'  .AND.  timestep_scheme(1:5) == 'runge' )&
    467465    THEN
    468        IF ( myid == 0 )  THEN
    469           PRINT*, '+++ check_parameters:  scalar advection scheme "', &
    470                                           TRIM( scalar_advec ), '"'
    471           PRINT*, '    does not work with timestep_scheme "', &
    472                                           TRIM( timestep_scheme ), '"'
    473        ENDIF
    474        CALL local_stop
     466       message_string = 'scalar advection scheme "' // TRIM( scalar_advec ) // &
     467                        '" & does not work with timestep_scheme "' // &
     468                        TRIM( timestep_scheme ) // '"'
     469       CALL handle_palm_message( 'check_parameters', 'PA0028', 1, 2, 0, 6, 0 )
    475470    ENDIF
    476471
    477472    IF ( momentum_advec /= 'pw-scheme' .AND. timestep_scheme(1:5) == 'runge' ) &
    478473    THEN
    479        IF ( myid == 0 )  THEN
    480           PRINT*, '+++ check_parameters:  momentum advection scheme "', &
    481                                           TRIM( momentum_advec ), '"'
    482           PRINT*, '    does not work with timestep_scheme "', &
    483                                           TRIM( timestep_scheme ), '"'
    484        ENDIF
    485        CALL local_stop
    486     ENDIF
    487 
    488 
    489     IF ( initializing_actions == ' ' )  THEN
    490        IF ( myid == 0 )  THEN
    491           PRINT*, '+++ check parameters:'
    492           PRINT*, '    no value found for initializing_actions'
    493        ENDIF
    494        CALL local_stop
     474       message_string = 'momentum advection scheme "' // &
     475                        TRIM( momentum_advec ) // '" & does not work with ' // &
     476                        'timestep_scheme "' // TRIM( timestep_scheme ) // '"'
     477       CALL handle_palm_message( 'check_parameters', 'PA0029', 1, 2, 0, 6, 0 )
    495478    ENDIF
    496479
     
    498481         TRIM( initializing_actions ) /= 'read_data_for_recycling' )  THEN
    499482!
    500 !--    No model continuation run; several initialising actions are possible
     483!--    No restart run: several initialising actions are possible
    501484       action = initializing_actions
    502485       DO WHILE ( TRIM( action ) /= '' )
     
    509492
    510493             CASE DEFAULT
    511                 IF ( myid == 0 )  PRINT*, '+++ check_parameters: initializi', &
    512                                'ng_action unkown or not allowed: action = "', &
    513                                TRIM(action), '"'
    514                 CALL local_stop
     494                message_string = 'initializing_action = "' // &
     495                                 TRIM( action ) // '" unkown or not allowed'
     496                CALL handle_palm_message( 'check_parameters', 'PA0030', 1, 2, &
     497                                          0, 6, 0 )
    515498
    516499          END SELECT
    517500       ENDDO
    518501    ENDIF
     502
    519503    IF ( INDEX( initializing_actions, 'set_constant_profiles' ) /= 0  .AND. &
    520504         INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 )  THEN
    521        IF ( myid == 0 )  PRINT*, '+++ check_parameters: initializing_actions', &
    522           '"set_constant_profiles" and "set_1d-model_profiles" are not', &
    523           ' allowed simultaneously'
    524        CALL local_stop
    525     ENDIF
     505       message_string = 'initializing_actions = "set_constant_profiles"' // &
     506                        ' and "set_1d-model_profiles" are not allowed ' //  &
     507                        'simultaneously'
     508       CALL handle_palm_message( 'check_parameters', 'PA0031', 1, 2, 0, 6, 0 )
     509    ENDIF
     510
    526511    IF ( INDEX( initializing_actions, 'set_constant_profiles' ) /= 0  .AND. &
    527512         INDEX( initializing_actions, 'by_user' ) /= 0 )  THEN
    528        IF ( myid == 0 )  PRINT*, '+++ check_parameters: initializing_actions', &
    529           '"set_constant_profiles" and "by_user" are not', &
    530           ' allowed simultaneously'
    531        CALL local_stop
    532     ENDIF
     513       message_string = 'initializing_actions = "set_constant_profiles"' // &
     514                        ' and "by_user" are not allowed simultaneously'
     515       CALL handle_palm_message( 'check_parameters', 'PA0032', 1, 2, 0, 6, 0 )
     516    ENDIF
     517
    533518    IF ( INDEX( initializing_actions, 'by_user' ) /= 0  .AND. &
    534519         INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 )  THEN
    535        IF ( myid == 0 )  PRINT*, '+++ check_parameters: initializing_actions', &
    536           '"by_user" and "set_1d-model_profiles" are not', &
    537           ' allowed simultaneously'
    538        CALL local_stop
     520       message_string = 'initializing_actions = "by_user" and ' // &
     521                        '"set_1d-model_profiles" are not allowed simultaneously'
     522       CALL handle_palm_message( 'check_parameters', 'PA0033', 1, 2, 0, 6, 0 )
    539523    ENDIF
    540524
    541525    IF ( cloud_physics  .AND.  .NOT. humidity )  THEN
    542        IF ( myid == 0 )  PRINT*, '+++ check_parameters: cloud_physics =', &
    543                                  cloud_physics, ' is not allowed with ',  &
    544                                  'humidity =', humidity
    545        CALL local_stop
     526       WRITE( message_string, * ) 'cloud_physics = ', cloud_physics, ' is ', &
     527              'not allowed with humidity = ', humidity
     528       CALL handle_palm_message( 'check_parameters', 'PA0034', 1, 2, 0, 6, 0 )
    546529    ENDIF
    547530
    548531    IF ( precipitation  .AND.  .NOT.  cloud_physics )  THEN
    549        IF ( myid == 0 )  PRINT*, '+++ check_parameters: precipitation =', &
    550                                  precipitation, ' is not allowed with ',  &
    551                                  'cloud_physics =', cloud_physics
    552        CALL local_stop
     532       WRITE( message_string, * ) 'precipitation = ', precipitation, ' is ', &
     533              'not allowed with cloud_physics = ', cloud_physics
     534       CALL handle_palm_message( 'check_parameters', 'PA0035', 1, 2, 0, 6, 0 )
    553535    ENDIF
    554536
    555537    IF ( humidity  .AND.  sloping_surface )  THEN
    556        IF ( myid == 0 )  PRINT*, '+++ check_parameters: humidity = TRUE', &
    557                                  'and hang = TRUE are not',               &
    558                                  ' allowed simultaneously'
    559        CALL local_stop       
     538       message_string = 'humidity = .TRUE. and sloping_surface = .TRUE. ' // &
     539                        'are not allowed simultaneously'
     540       CALL handle_palm_message( 'check_parameters', 'PA0036', 1, 2, 0, 6, 0 )
    560541    ENDIF
    561542
    562543    IF ( humidity  .AND.  scalar_advec == 'ups-scheme' )  THEN
    563        IF ( myid == 0 )  PRINT*, '+++ check_parameters: UPS-scheme', &
    564                                  'is not implemented for humidity'
    565        CALL local_stop       
     544       message_string = 'UPS-scheme is not implemented for humidity = .TRUE.'
     545       CALL handle_palm_message( 'check_parameters', 'PA0037', 1, 2, 0, 6, 0 )
    566546    ENDIF
    567547
    568548    IF ( passive_scalar  .AND.  humidity )  THEN
    569        IF ( myid == 0 )  PRINT*, '+++ check_parameters: humidity = TRUE and', &
    570                                  'passive_scalar = TRUE is not allowed ',     &
    571                                  'simultaneously'
    572        CALL local_stop
     549       message_string = 'humidity = .TRUE. and passive_scalar = .TRUE. ' // &
     550                        'is not allowed simultaneously'
     551       CALL handle_palm_message( 'check_parameters', 'PA0038', 1, 2, 0, 6, 0 )
    573552    ENDIF
    574553
    575554    IF ( passive_scalar  .AND.  scalar_advec == 'ups-scheme' )  THEN
    576        IF ( myid == 0 )  PRINT*, '+++ check_parameters: UPS-scheme', &
    577                                  'is not implemented for passive_scalar'
    578        CALL local_stop       
     555       message_string = 'UPS-scheme is not implemented for passive_scalar' // &
     556                        ' = .TRUE.'
     557       CALL handle_palm_message( 'check_parameters', 'PA0039', 1, 2, 0, 6, 0 )
    579558    ENDIF
    580559
    581560    IF ( grid_matching /= 'strict'  .AND.  grid_matching /= 'match' )  THEN
    582        IF ( myid == 0 )  PRINT*, '+++ check_parameters: illegal value "', &
    583                                  TRIM( grid_matching ),                   &
    584                                  '" found for parameter grid_matching'
    585        CALL local_stop       
     561       message_string = 'illegal value "' // TRIM( grid_matching ) // &
     562                        '" found for parameter grid_matching'
     563       CALL handle_palm_message( 'check_parameters', 'PA0040', 1, 2, 0, 6, 0 )
    586564    ENDIF
    587565
    588566    IF ( plant_canopy .AND. ( drag_coefficient == 0.0 ) ) THEN
    589        IF ( myid == 0 )  PRINT*, '+++ check_parameters: plant_canopy = TRUE', &
    590                                  'requires a non-zero drag_coefficient'
    591        CALL local_stop
     567       message_string = 'plant_canopy = .TRUE. requires a non-zero drag ' // &
     568                        'coefficient & given value is drag_coefficient = 0.0'
     569       CALL handle_palm_message( 'check_parameters', 'PA0041', 1, 2, 0, 6, 0 )
    592570    ENDIF
    593571
Note: See TracChangeset for help on using the changeset viewer.