Changeset 240 for palm/trunk/SOURCE/user_header.f90

Timestamp:

Feb 18, 2009 5:50:38 PM (15 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:

• palm/trunk/SOURCE/user_header.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_header.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! new topography case 'single_street_canyon'
 !
 ! Former revisions:
@@ -49 +49 @@
        WRITE ( io, 300 )
        IF ( TRIM( topography_grid_convention ) == ' ' )  THEN
-          IF ( TRIM( topography ) == 'single_building' )  THEN
+          IF ( TRIM( topography ) == 'single_building' .OR.  &
+               TRIM( topography ) == 'single_street_canyon' )  THEN
              WRITE ( io, 301 )
           ELSEIF ( TRIM( topography ) == 'read_from_file' )  THEN