Ignore:
Timestamp:
May 23, 2018 12:19:17 PM (3 years ago)
Author:
raasch
Message:

bugfix: close unit 151 instead of 90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r3014 r3029  
    2828! -----------------
    2929! $Id$
     30! bugfix: close unit 151 instead of 90
     31!
     32! 3014 2018-05-09 08:42:38Z maronga
    3033! Added pc_transpiration_rate
    3134!
     
    67096712                CALL message( 'usm_read_urban_surface_types', 'PA0514', 1, 2, 0, 6, 0 )
    67106713
    6711  25             CLOSE( 90 )
     6714 25             CLOSE( 151 )
    67126715
    67136716            ENDIF
Note: See TracChangeset for help on using the changeset viewer.