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

    r240 r256  
    55! -----------------
    66! new topography case 'single_street_canyon'
     7! topography_grid_convention moved to header
    78!
    89! Former revisions:
     
    4647    ENDIF
    4748
    48     IF ( TRIM( topography ) /= 'flat' )  THEN
    49        WRITE ( io, 300 )
    50        IF ( TRIM( topography_grid_convention ) == ' ' )  THEN
    51           IF ( TRIM( topography ) == 'single_building' .OR.  &
    52                TRIM( topography ) == 'single_street_canyon' )  THEN
    53              WRITE ( io, 301 )
    54           ELSEIF ( TRIM( topography ) == 'read_from_file' )  THEN
    55              WRITE ( io, 302 )
    56           ENDIF
    57        ELSEIF ( TRIM( topography_grid_convention ) == 'cell_edge' )  THEN
    58           WRITE ( io, 301 )
    59        ELSEIF ( TRIM( topography_grid_convention ) == 'cell_center' )  THEN
    60           WRITE ( io, 302 )
    61        ENDIF
    62     ENDIF
    63 
    6449!
    6550!-- Format-descriptors
     
    7055200 FORMAT (' Output of profiles and time series for following regions:' /)
    7156201 FORMAT (4X,'Region ',I1,':   ',A)
    72 300 FORMAT (' Topography grid definition convention:'/)
    73 301 FORMAT (' cell edge (staggered grid points'/  &
    74             ' (u in x-direction, v in y-direction))' /)
    75 302 FORMAT (' cell center (scalar grid points)' /)
    7657
    7758
Note: See TracChangeset for help on using the changeset viewer.