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

    r3246 r3248  
    2525! -----------------
    2626! $Id$
     27! Minor formating changes
     28!
     29! 3246 2018-09-13 15:14:50Z sward
    2730! Added error handling for input namelist via parin_fail_message
    2831!
     
    49964999       REWIND ( 11 )
    49975000       line = ' '
    4998        DO   WHILE ( INDEX( line, '&land_surface_parameters' ) == 0 )
     5001       DO WHILE ( INDEX( line, '&land_surface_parameters' ) == 0 )
    49995002          READ ( 11, '(A)', END=12 )  line
    50005003       ENDDO
     
    50125015
    50135016 10    BACKSPACE( 11 )
    5014        READ( 11 ,fmt='(A)') line
    5015        CALL parin_fail_message ( 'land_surface_parameters', line )
     5017       READ( 11 , '(A)') line
     5018       CALL parin_fail_message( 'land_surface_parameters', line )
    50165019!
    50175020!--    Try to find old namelist
    50185021 12    REWIND ( 11 )
    50195022       line = ' '
    5020        DO   WHILE ( INDEX( line, '&lsm_par' ) == 0 )
     5023       DO WHILE ( INDEX( line, '&lsm_par' ) == 0 )
    50215024          READ ( 11, '(A)', END=14 )  line
    50225025       ENDDO
     
    50395042
    50405043 13    BACKSPACE( 11 )
    5041        READ( 11 ,fmt='(A)') line
    5042        CALL parin_fail_message ( 'lsm_par', line )
     5044       READ( 11 , '(A)') line
     5045       CALL parin_fail_message( 'lsm_par', line )
    50435046
    50445047
Note: See TracChangeset for help on using the changeset viewer.