Changeset 2063 for palm/trunk

Timestamp:

Nov 10, 2016 5:14:35 PM (8 years ago)

Author:

raasch

Message:

bugfix: opening of PROGRESS file moved out of the NetCDF block

File:

• palm/trunk/SOURCE/check_open.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix: opening of PROGRESS file moved out of the NetCDF block
 ! 
 ! Former revisions:
@@ -621 +621 @@
           ENDIF
 
+!
+!--    Progress file that is used by the PALM watchdog
+       CASE ( 117 )
+
+          OPEN ( 117, FILE='PROGRESS'//TRIM( coupling_char ),                  &
+                      STATUS='REPLACE', FORM='FORMATTED' )
+
 #if defined( __netcdf )
        CASE ( 101, 111 )
@@ -1098 +1105 @@
           ENDIF
 
-
-!
-!--    Progress file that is used by the PALM watchdog
-       CASE ( 117 )
-
-          OPEN ( 117, FILE='PROGRESS'//TRIM( coupling_char ),                  &
-                      STATUS='REPLACE', FORM='FORMATTED' )
 !
 !--    nc-file for virtual flight measurements