Changeset 184 for palm/trunk/SOURCE/init_1d_model.f90

Timestamp:

Aug 4, 2008 3:53:39 PM (17 years ago)

Author:

letzel

Message:

• init_1d_model: provisional solution for run_control_1d output: add 'CALL check_open( 15 )'

File:

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

palm/trunk/SOURCE/init_1d_model.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! provisional solution for run_control_1d output: add 'CALL check_open( 15 )'
 !
 ! Former revisions:
@@ -753 +753 @@
 !--    If necessary, write header
        IF ( .NOT. run_control_header_1d )  THEN
+          CALL check_open( 15 )
           WRITE ( 15, 100 )
           run_control_header_1d = .TRUE.