Changeset 3248 for palm/trunk/SOURCE/wind_turbine_model_mod.f90

Timestamp:

Sep 14, 2018 9:42:06 AM (6 years ago)

Author:

sward

Message:

Minor format changes

File:

• palm/trunk/SOURCE/wind_turbine_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Minor formating changes
+! 
+! 3246 2018-09-13 15:14:50Z sward
 ! Added error handling for input namelist via parin_fail_message
 ! 
@@ -537 +540 @@
        REWIND ( 11 )
        line = ' '
-       DO  WHILE ( INDEX( line, '&wind_turbine_parameters' ) == 0 )
+       DO WHILE ( INDEX( line, '&wind_turbine_parameters' ) == 0 )
           READ ( 11, '(A)', END=12 )  line
        ENDDO
@@ -552 +555 @@
 
  10    BACKSPACE( 11 )
-       READ( 11 ,fmt='(A)') line
-       CALL parin_fail_message ( 'wind_turbine_parameters', line )
+       READ( 11 , '(A)') line
+       CALL parin_fail_message( 'wind_turbine_parameters', line )
 
 !
@@ -559 +562 @@
  12    REWIND ( 11 )
        line = ' '
-       DO  WHILE ( INDEX( line, '&wind_turbine_par' ) == 0 )
+       DO WHILE ( INDEX( line, '&wind_turbine_par' ) == 0 )
           READ ( 11, '(A)', END=14 )  line
        ENDDO
@@ -580 +583 @@
 
  13    BACKSPACE( 11 )
-       READ( 11 ,fmt='(A)') line
-       CALL parin_fail_message ( 'wind_turbine_par', line )
+       READ( 11 , '(A)') line
+       CALL parin_fail_message( 'wind_turbine_par', line )
 
  14    CONTINUE   ! TBD Change from continue, mit ierrn machen