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/plant_canopy_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!
     
    10311034       REWIND ( 11 )
    10321035       line = ' '
    1033        DO   WHILE ( INDEX( line, '&plant_canopy_parameters' ) == 0 )
     1036       DO WHILE ( INDEX( line, '&plant_canopy_parameters' ) == 0 )
    10341037          READ ( 11, '(A)', END=12 )  line
    10351038       ENDDO
     
    10471050
    10481051 10    BACKSPACE( 11 )
    1049        READ( 11 ,fmt='(A)') line
    1050        CALL parin_fail_message ( 'plant_canopy_parameters', line )
     1052       READ( 11 , '(A)') line
     1053       CALL parin_fail_message( 'plant_canopy_parameters', line )
    10511054!
    10521055!--    Try to find old namelist
    10531056 12    REWIND ( 11 )
    10541057       line = ' '
    1055        DO   WHILE ( INDEX( line, '&canopy_par' ) == 0 )
     1058       DO WHILE ( INDEX( line, '&canopy_par' ) == 0 )
    10561059          READ ( 11, '(A)', END=14 )  line
    10571060       ENDDO
     
    10741077
    10751078 13    BACKSPACE( 11 )
    1076        READ( 11 ,fmt='(A)') line
    1077        CALL parin_fail_message ( 'canopy_par', line )
     1079       READ( 11 , '(A)') line
     1080       CALL parin_fail_message( 'canopy_par', line )
    10781081
    10791082 14    CONTINUE
Note: See TracChangeset for help on using the changeset viewer.