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/wind_turbine_model_mod.f90

    r3246 r3248  
    2626! -----------------
    2727! $Id$
     28! Minor formating changes
     29!
     30! 3246 2018-09-13 15:14:50Z sward
    2831! Added error handling for input namelist via parin_fail_message
    2932!
     
    537540       REWIND ( 11 )
    538541       line = ' '
    539        DO  WHILE ( INDEX( line, '&wind_turbine_parameters' ) == 0 )
     542       DO WHILE ( INDEX( line, '&wind_turbine_parameters' ) == 0 )
    540543          READ ( 11, '(A)', END=12 )  line
    541544       ENDDO
     
    552555
    553556 10    BACKSPACE( 11 )
    554        READ( 11 ,fmt='(A)') line
    555        CALL parin_fail_message ( 'wind_turbine_parameters', line )
     557       READ( 11 , '(A)') line
     558       CALL parin_fail_message( 'wind_turbine_parameters', line )
    556559
    557560!
     
    559562 12    REWIND ( 11 )
    560563       line = ' '
    561        DO  WHILE ( INDEX( line, '&wind_turbine_par' ) == 0 )
     564       DO WHILE ( INDEX( line, '&wind_turbine_par' ) == 0 )
    562565          READ ( 11, '(A)', END=14 )  line
    563566       ENDDO
     
    580583
    581584 13    BACKSPACE( 11 )
    582        READ( 11 ,fmt='(A)') line
    583        CALL parin_fail_message ( 'wind_turbine_par', line )
     585       READ( 11 , '(A)') line
     586       CALL parin_fail_message( 'wind_turbine_par', line )
    584587
    585588 14    CONTINUE   ! TBD Change from continue, mit ierrn machen
Note: See TracChangeset for help on using the changeset viewer.