Ignore:
Timestamp:
Mar 8, 2009 8:56:27 AM (13 years ago)
Author:
letzel
Message:
  • topography_grid_convention moved from userpar to inipar
  • documentation and examples updated
File:
1 edited

Legend:

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

    r240 r256  
    44! Actual revisions:
    55! -----------------
    6 ! add default topography_grid_convention for the new topography case
    7 ! 'single_street_canyon'
    86!
    97! Former revisions:
     
    2523
    2624!
    27 !-- In case of non-flat topography, check whether the convention how to
    28 !-- define the topography grid has been set correctly, or whether the default
    29 !-- is applicable. If this is not possible, abort.
    30     IF ( TRIM( topography ) /= 'flat' )  THEN
    31        IF ( TRIM( topography_grid_convention ) == ' ' )  THEN
    32           IF ( TRIM( topography ) /= 'single_building' .AND.  &
    33                TRIM( topography ) /= 'single_street_canyon' .AND.  &
    34                TRIM( topography ) /= 'read_from_file' )  THEN
    35 !--          The default value is not applicable here, because it is only valid
    36 !--          for the two standard cases 'single_building' and 'read_from_file'
    37 !--          defined in init_grid.
    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''.',  &
    43                   ' & Choose ''cell_edge'' or ''cell_center''.'
    44              CALL message( 'user_check_parameters', 'UI0001', 1, 2, 0, 6, 0 )
    45           ELSE
    46 !--          The default value is applicable here.
    47 !--          Set convention according to topography.
    48              IF ( TRIM( topography ) == 'single_building' .OR.  &
    49                   TRIM( topography ) == 'single_street_canyon' )  THEN
    50                 topography_grid_convention = 'cell_edge'
    51              ELSEIF ( TRIM( topography ) == 'read_from_file' )  THEN
    52                 topography_grid_convention = 'cell_center'
    53              ENDIF
    54           ENDIF
    55        ELSEIF ( TRIM( topography_grid_convention ) /= 'cell_edge' .AND.  &
    56                 TRIM( topography_grid_convention ) /= 'cell_center' )  THEN
    57           WRITE( message_string, * )  &
    58                'The value for "topography_grid_convention" is ', &
    59                'not recognized. & Choose ''cell_edge'' or ''cell_center''.'
    60           CALL message( 'user_check_parameters', 'UI0002', 1, 2, 0, 6, 0 )
    61        ENDIF
    62     ENDIF
    63 
    64 !
    6525!-- Here the user may add code to check the validity of further &userpar
    6626!-- control parameters or deduce further quantities.
Note: See TracChangeset for help on using the changeset viewer.