Changeset 3029 for palm/trunk

Timestamp:

May 23, 2018 12:19:17 PM (7 years ago)

Author:

raasch

Message:

bugfix: close unit 151 instead of 90

File:

• palm/trunk/SOURCE/urban_surface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! bugfix: close unit 151 instead of 90
+! 
+! 3014 2018-05-09 08:42:38Z maronga
 ! Added pc_transpiration_rate
 ! 
@@ -6709 +6712 @@
                 CALL message( 'usm_read_urban_surface_types', 'PA0514', 1, 2, 0, 6, 0 )
 
- 25             CLOSE( 90 )
+ 25             CLOSE( 151 )
 
             ENDIF