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

    r3246 r3248  
    2727! -----------------
    2828! $Id$
     29! Minor formating changes
     30!
     31! 3246 2018-09-13 15:14:50Z sward
    2932! Added error handling for input namelist via parin_fail_message
    3033!
     
    869872      REWIND ( 11 )
    870873      line = ' '
    871       DO   WHILE ( INDEX( line, '&chemistry_parameters' ) == 0 )
     874      DO WHILE ( INDEX( line, '&chemistry_parameters' ) == 0 )
    872875         READ ( 11, '(A)', END=20 )  line
    873876      ENDDO
     
    882885
    883886 10   BACKSPACE( 11 )
    884       READ( 11 ,fmt='(A)') line
    885       CALL parin_fail_message ( 'chemistry_parameters', line )
     887      READ( 11 , '(A)') line
     888      CALL parin_fail_message( 'chemistry_parameters', line )
    886889
    887890 20   CONTINUE
Note: See TracChangeset for help on using the changeset viewer.