Ignore:
Timestamp:
Feb 18, 2009 5:50:38 PM (13 years ago)
Author:
letzel
Message:
  • External pressure gradient (check_parameters, init_3d_model, header, modules, parin, prognostic_equations)
  • New topography case 'single_street_canyon'
File:
1 edited

Legend:

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

    r226 r240  
    44! Actual revisions:
    55! -----------------
    6 !
     6! add default topography_grid_convention for the new topography case
     7! 'single_street_canyon'
    78!
    89! Former revisions:
     
    3031       IF ( TRIM( topography_grid_convention ) == ' ' )  THEN
    3132          IF ( TRIM( topography ) /= 'single_building' .AND.  &
     33               TRIM( topography ) /= 'single_street_canyon' .AND.  &
    3234               TRIM( topography ) /= 'read_from_file' )  THEN
    3335!--          The default value is not applicable here, because it is only valid
    3436!--          for the two standard cases 'single_building' and 'read_from_file'
    3537!--          defined in init_grid.
    36              message_string = 'The value for "topography_grid_convention" '//  &
    37                   'is not set. Its default value is & only valid for '//  &
    38                   '"topography" = ''single_building'' or ''read_from_file''.'//&
     38             WRITE( message_string, * )  &
     39                  'The value for "topography_grid_convention" ',  &
     40                  'is not set. Its default value is & only valid for ',  &
     41                  '"topography" = ''single_building'', ',  &
     42                  '''single_street_canyon'' & or ''read_from_file''.',  &
    3943                  ' & Choose ''cell_edge'' or ''cell_center''.'
    4044             CALL message( 'user_check_parameters', 'UI0001', 1, 2, 0, 6, 0 )
     
    4246!--          The default value is applicable here.
    4347!--          Set convention according to topography.
    44              IF ( TRIM( topography ) == 'single_building' )  THEN
     48             IF ( TRIM( topography ) == 'single_building' .OR.  &
     49                  TRIM( topography ) == 'single_street_canyon' )  THEN
    4550                topography_grid_convention = 'cell_edge'
    4651             ELSEIF ( TRIM( topography ) == 'read_from_file' )  THEN
     
    5055       ELSEIF ( TRIM( topography_grid_convention ) /= 'cell_edge' .AND.  &
    5156                TRIM( topography_grid_convention ) /= 'cell_center' )  THEN
    52           message_string = 'The value for "topography_grid_convention" is '// &
     57          WRITE( message_string, * )  &
     58               'The value for "topography_grid_convention" is ', &
    5359               'not recognized. & Choose ''cell_edge'' or ''cell_center''.'
    5460          CALL message( 'user_check_parameters', 'UI0002', 1, 2, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.