Ignore:
Timestamp:
Dec 6, 2017 4:03:27 PM (4 years ago)
Author:
raasch
Message:

file attributes and activation strings in .palm.iofiles revised, file extensions for nesting, masked output, wind turbine data, etc. changed

File:
1 edited

Legend:

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

    r2516 r2669  
    2525! -----------------
    2626! $Id$
     27! file name extension for masked data files is changed to "_M##" and is now
     28! appended at the end of the filename,
     29! file ids not used any more have been removed
     30!
     31! 2516 2017-10-04 11:03:04Z suehring
    2732! Remove tabs
    2833!
     
    184189    IMPLICIT NONE
    185190
    186     CHARACTER (LEN=2)   ::  mask_char               !<
     191    CHARACTER (LEN=4)   ::  mask_char               !<
    187192    CHARACTER (LEN=2)   ::  suffix                  !<
    188193    CHARACTER (LEN=30)  ::  filename                !<
     
    209214    IF ( openfile(file_id)%opened_before )  THEN
    210215       SELECT CASE ( file_id )
    211           CASE ( 13, 14, 21, 22, 23, 80:85, 117 )
     216          CASE ( 13, 14, 21, 22, 23, 80, 85, 117 )
    212217             IF ( file_id == 14 .AND. openfile(file_id)%opened_before )  THEN
    213218                message_string = 're-open of unit ' //                         &
     
    230235    SELECT CASE ( file_id )
    231236
    232        CASE ( 15, 16, 17, 18, 19, 50:59, 81:84, 104:105, 107, 109, 117 )
     237       CASE ( 15, 16, 17, 18, 19, 50:59, 104:105, 107, 109, 117 )
    233238     
    234239          IF ( myid /= 0 )  THEN
     
    260265          ENDIF
    261266
    262        CASE ( 27, 28, 29, 31, 33, 71:73, 90:99 )
     267       CASE ( 90:99 )
    263268
    264269!
     
    479484          ENDIF
    480485
    481        CASE ( 81 )
    482 
    483              OPEN ( 81, FILE='PLOTSP_X_PAR'//TRIM( coupling_char ),            &
    484                         FORM='FORMATTED', DELIM='APOSTROPHE', RECL=1500,       &
    485                         POSITION='APPEND' )
    486 
    487        CASE ( 82 )
    488 
    489              OPEN ( 82, FILE='PLOTSP_X_DATA'//TRIM( coupling_char ),           &
    490                         FORM='FORMATTED', POSITION = 'APPEND' )
    491 
    492        CASE ( 83 )
    493 
    494              OPEN ( 83, FILE='PLOTSP_Y_PAR'//TRIM( coupling_char ),            &
    495                         FORM='FORMATTED', DELIM='APOSTROPHE', RECL=1500,       &
    496                         POSITION='APPEND' )
    497 
    498        CASE ( 84 )
    499 
    500              OPEN ( 84, FILE='PLOTSP_Y_DATA'//TRIM( coupling_char ),           &
    501                         FORM='FORMATTED', POSITION='APPEND' )
    502 
    503486       CASE ( 85 )
    504487
     
    10781061          IF ( file_id <= 200+max_masks )  THEN
    10791062             mid = file_id - 200
    1080              WRITE ( mask_char,'(I2.2)') mid
    1081              filename = 'DATA_MASK_' // mask_char // '_NETCDF' //              &
    1082                         TRIM( coupling_char )
     1063             WRITE ( mask_char,'(A2,I2.2)')  '_M', mid
     1064             filename = 'DATA_MASK_NETCDF' // TRIM( coupling_char ) //         &
     1065                        mask_char
    10831066             av = 0
    10841067          ELSE
    10851068             mid = file_id - (200+max_masks)
    1086              WRITE ( mask_char,'(I2.2)') mid
    1087              filename = 'DATA_MASK_' // mask_char // '_AV_NETCDF' //           &
    1088                         TRIM( coupling_char )
     1069             WRITE ( mask_char,'(A2,I2.2)')  '_M', mid
     1070             filename = 'DATA_MASK_AV_NETCDF' // TRIM( coupling_char ) //      &
     1071                        mask_char
    10891072             av = 1
    10901073          ENDIF
Note: See TracChangeset for help on using the changeset viewer.