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

Timestamp:

Mar 8, 2009 8:56:27 AM (15 years ago)

Author:

letzel

Message:

• topography_grid_convention moved from userpar to inipar
• documentation and examples updated

File:

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

palm/trunk/SOURCE/user_header.f90

@@ -5 +5 @@
 ! -----------------
 ! new topography case 'single_street_canyon'
+! topography_grid_convention moved to header
 !
 ! Former revisions:
@@ -46 +47 @@
     ENDIF
 
-    IF ( TRIM( topography ) /= 'flat' )  THEN
-       WRITE ( io, 300 )
-       IF ( TRIM( topography_grid_convention ) == ' ' )  THEN
-          IF ( TRIM( topography ) == 'single_building' .OR.  &
-               TRIM( topography ) == 'single_street_canyon' )  THEN
-             WRITE ( io, 301 )
-          ELSEIF ( TRIM( topography ) == 'read_from_file' )  THEN
-             WRITE ( io, 302 )
-          ENDIF
-       ELSEIF ( TRIM( topography_grid_convention ) == 'cell_edge' )  THEN
-          WRITE ( io, 301 )
-       ELSEIF ( TRIM( topography_grid_convention ) == 'cell_center' )  THEN
-          WRITE ( io, 302 )
-       ENDIF
-    ENDIF
-
 !
 !-- Format-descriptors
@@ -70 +55 @@
 200 FORMAT (' Output of profiles and time series for following regions:' /)
 201 FORMAT (4X,'Region ',I1,':   ',A)
-300 FORMAT (' Topography grid definition convention:'/)
-301 FORMAT (' cell edge (staggered grid points'/  &
-            ' (u in x-direction, v in y-direction))' /)
-302 FORMAT (' cell center (scalar grid points)' /)