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_header.f90

    r226 r240  
    44! Actual revisions:
    55! -----------------
    6 !
     6! new topography case 'single_street_canyon'
    77!
    88! Former revisions:
     
    4949       WRITE ( io, 300 )
    5050       IF ( TRIM( topography_grid_convention ) == ' ' )  THEN
    51           IF ( TRIM( topography ) == 'single_building' )  THEN
     51          IF ( TRIM( topography ) == 'single_building' .OR.  &
     52               TRIM( topography ) == 'single_street_canyon' )  THEN
    5253             WRITE ( io, 301 )
    5354          ELSEIF ( TRIM( topography ) == 'read_from_file' )  THEN
Note: See TracChangeset for help on using the changeset viewer.