Ignore:
Timestamp:
Nov 10, 2016 5:14:35 PM (5 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

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

    r2041 r2063  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! bugfix: opening of PROGRESS file moved out of the NetCDF block
    2323!
    2424! Former revisions:
     
    621621          ENDIF
    622622
     623!
     624!--    Progress file that is used by the PALM watchdog
     625       CASE ( 117 )
     626
     627          OPEN ( 117, FILE='PROGRESS'//TRIM( coupling_char ),                  &
     628                      STATUS='REPLACE', FORM='FORMATTED' )
     629
    623630#if defined( __netcdf )
    624631       CASE ( 101, 111 )
     
    10981105          ENDIF
    10991106
    1100 
    1101 !
    1102 !--    Progress file that is used by the PALM watchdog
    1103        CASE ( 117 )
    1104 
    1105           OPEN ( 117, FILE='PROGRESS'//TRIM( coupling_char ),                  &
    1106                       STATUS='REPLACE', FORM='FORMATTED' )
    11071107!
    11081108!--    nc-file for virtual flight measurements
Note: See TracChangeset for help on using the changeset viewer.