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/radiation_model_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!
     
    27892792       REWIND ( 11 )
    27902793       line = ' '
    2791        DO   WHILE ( INDEX( line, '&radiation_parameters' ) == 0 )
     2794       DO WHILE ( INDEX( line, '&radiation_parameters' ) == 0 )
    27922795          READ ( 11, '(A)', END=12 )  line
    27932796       ENDDO
     
    28052808
    28062809 10    BACKSPACE( 11 )
    2807        READ( 11 ,fmt='(A)') line
    2808        CALL parin_fail_message ( 'radiation_parameters', line )
     2810       READ( 11 , '(A)') line
     2811       CALL parin_fail_message( 'radiation_parameters', line )
    28092812!
    28102813!--    Try to find old namelist
    28112814 12    REWIND ( 11 )
    28122815       line = ' '
    2813        DO   WHILE ( INDEX( line, '&radiation_par' ) == 0 )
     2816       DO WHILE ( INDEX( line, '&radiation_par' ) == 0 )
    28142817          READ ( 11, '(A)', END=14 )  line
    28152818       ENDDO
     
    28382841
    28392842 13    BACKSPACE( 11 )
    2840        READ( 11 ,fmt='(A)') line
    2841        CALL parin_fail_message ( 'radiation_par', line )
     2843       READ( 11 , '(A)') line
     2844       CALL parin_fail_message( 'radiation_par', line )
    28422845
    28432846 14    CONTINUE
Note: See TracChangeset for help on using the changeset viewer.