Ignore:
Timestamp:
May 16, 2007 4:00:18 PM (14 years ago)
Author:
raasch
Message:

small bugfixes

File:
1 edited

Legend:

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

    r77 r86  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix: field_chr renamed field_char
    77!
    88! Former revisions:
     
    163163!
    164164!    IF ( initializing_actions == 'read_restart_data' )  THEN
    165 !       READ ( 13 )  field_chr
    166 !       DO  WHILE ( TRIM( field_chr ) /= '*** end user ***' )
    167 !
    168 !          SELECT CASE ( TRIM( field_chr ) )
     165!       READ ( 13 )  field_char
     166!       DO  WHILE ( TRIM( field_char ) /= '*** end user ***' )
     167!
     168!          SELECT CASE ( TRIM( field_char ) )
    169169!
    170170!             CASE ( 'u2_av' )
     
    174174!             CASE DEFAULT
    175175!                PRINT*, '+++ user_init: unknown variable named "', &
    176 !                        TRIM( field_chr ), '" found in'
     176!                        TRIM( field_char ), '" found in'
    177177!                PRINT*, '               data from prior run on PE ', myid
    178178!                CALL local_stop
     
    180180!          END SELECT
    181181!
    182 !          READ ( 13 )  field_chr
     182!          READ ( 13 )  field_char
    183183!
    184184!       ENDDO
Note: See TracChangeset for help on using the changeset viewer.