Ignore:
Timestamp:
Sep 14, 2018 9:42:06 AM (3 years ago)
Author:
sward
Message:

Minor format changes

File:
1 edited

Legend:

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

    r3246 r3248  
    2828! -----------------
    2929! $Id$
     30! Minor formating changes
     31!
     32! 3246 2018-09-13 15:14:50Z sward
    3033! Added error handling for input namelist via parin_fail_message
    3134!
     
    53595362       REWIND ( 11 )
    53605363       line = ' '
    5361        DO   WHILE ( INDEX( line, '&urban_surface_parameters' ) == 0 )
     5364       DO WHILE ( INDEX( line, '&urban_surface_parameters' ) == 0 )
    53625365          READ ( 11, '(A)', END=12 )  line
    53635366       ENDDO
     
    53755378
    53765379 10    BACKSPACE( 11 )
    5377        READ( 11 ,fmt='(A)') line
    5378        CALL parin_fail_message ( 'urban_surface_parameters', line )
     5380       READ( 11 , '(A)') line
     5381       CALL parin_fail_message( 'urban_surface_parameters', line )
    53795382!
    53805383!--    Try to find old namelist
    53815384 12    REWIND ( 11 )
    53825385       line = ' '
    5383        DO   WHILE ( INDEX( line, '&urban_surface_par' ) == 0 )
     5386       DO WHILE ( INDEX( line, '&urban_surface_par' ) == 0 )
    53845387          READ ( 11, '(A)', END=14 )  line
    53855388       ENDDO
     
    54025405
    54035406 13    BACKSPACE( 11 )
    5404        READ( 11 ,fmt='(A)') line
    5405        CALL parin_fail_message ( 'urban_surface_par', line )
     5407       READ( 11 , '(A)') line
     5408       CALL parin_fail_message( 'urban_surface_par', line )
    54065409
    54075410
Note: See TracChangeset for help on using the changeset viewer.