Ignore:
Timestamp:
Aug 8, 2007 7:12:55 AM (14 years ago)
Author:
raasch
Message:

bugs in check_open and user_interface removed

File:
1 edited

Legend:

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

    r102 r105  
    156156                        FORM='UNFORMATTED', STATUS='OLD' )
    157157          ELSE
    158              OPEN ( 13, FILE='BININ'//coupling_char//'/'//myid_char, &
     158             OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/'//myid_char, &
    159159                        FORM='UNFORMATTED', STATUS='OLD' )
    160160          ENDIF
     
    175175             CALL MPI_BARRIER( comm2d, ierr )
    176176#endif
    177              OPEN ( 14, FILE='BINOUT'//coupling_char//'/'//myid_char_14, &
     177             OPEN ( 14, FILE='BINOUT'//TRIM(coupling_char)//'/'//myid_char_14, &
    178178                        FORM='UNFORMATTED', POSITION='APPEND' )
    179179          ENDIF
     
    205205          ENDIF
    206206          IF ( myid_char == '' )  THEN
    207              OPEN ( 20, FILE='DATA_LOG'//coupling_char//'/_0000', &
     207             OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/_0000', &
    208208                        FORM='UNFORMATTED', POSITION='APPEND' )
    209209          ELSE
     
    214214             CALL MPI_BARRIER( comm2d, ierr )
    215215#endif
    216              OPEN ( 20, FILE='DATA_LOG'//coupling_char//'/'//myid_char, &
     216             OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/'//myid_char,&
    217217                        FORM='UNFORMATTED', POSITION='APPEND' )
    218218          ENDIF
     
    221221
    222222          IF ( data_output_2d_on_each_pe )  THEN
    223              OPEN ( 21, FILE='PLOT2D_XY'//coupling_char//myid_char, &
     223             OPEN ( 21, FILE='PLOT2D_XY'//TRIM( coupling_char )//myid_char, &
    224224                        FORM='UNFORMATTED', POSITION='APPEND' )
    225225          ELSE
     
    262262
    263263          IF ( data_output_2d_on_each_pe )  THEN
    264              OPEN ( 22, FILE='PLOT2D_XZ'//coupling_char//myid_char, &
     264             OPEN ( 22, FILE='PLOT2D_XZ'//TRIM( coupling_char )//myid_char, &
    265265                        FORM='UNFORMATTED', POSITION='APPEND' )
    266266          ELSE
     
    300300
    301301          IF ( data_output_2d_on_each_pe )  THEN
    302              OPEN ( 23, FILE='PLOT2D_YZ'//coupling_char//myid_char, &
     302             OPEN ( 23, FILE='PLOT2D_YZ'//TRIM( coupling_char )//myid_char, &
    303303                        FORM='UNFORMATTED', POSITION='APPEND' )
    304304          ELSE
     
    337337       CASE ( 30 )
    338338
    339           OPEN ( 30, FILE='PLOT3D_DATA'//coupling_char//myid_char, &
     339          OPEN ( 30, FILE='PLOT3D_DATA'//TRIM( coupling_char )//myid_char, &
    340340                     FORM='UNFORMATTED' )
    341341!
     
    511511             WRITE ( suffix, '(''_'',I1)' )  file_id - 40
    512512          ENDIF
    513           OPEN ( file_id, FILE='PLOT1D_DATA'//coupling_char//TRIM( suffix ), &
     513          OPEN ( file_id, FILE='PLOT1D_DATA'//TRIM( coupling_char )// &
     514                               TRIM( suffix ),                        &
    514515                          FORM='FORMATTED' )
    515516!
     
    525526             WRITE ( suffix, '(''_'',I1)' )  file_id - 50
    526527          ENDIF
    527           OPEN ( file_id, FILE='PLOTTS_DATA'//coupling_char//TRIM( suffix ), &
     528          OPEN ( file_id, FILE='PLOTTS_DATA'//TRIM( coupling_char )// &
     529                               TRIM( suffix ),                        &
    528530                          FORM='FORMATTED', RECL=496 )
    529531!
     
    543545!
    544546!--       Write RAHMEN parameter
    545           OPEN ( 90, FILE='PLOTTS_PAR'//coupling_char//TRIM( suffix ), &
     547          OPEN ( 90, FILE='PLOTTS_PAR'//TRIM( coupling_char )// &
     548                           TRIM( suffix ),                      &
    546549                     FORM='FORMATTED', DELIM='APOSTROPHE' )
    547550          WRITE ( 90, RAHMEN )
     
    579582
    580583          IF ( myid_char == '' )  THEN
    581              OPEN ( 80, FILE='PARTICLE_INFOS'//coupling_char//myid_char, &
     584             OPEN ( 80, FILE='PARTICLE_INFOS'//TRIM(coupling_char)//myid_char, &
    582585                        FORM='FORMATTED', POSITION='APPEND' )
    583586          ELSE
     
    596599             ENDIF
    597600#endif
    598              OPEN ( 80, FILE='PARTICLE_INFOS'//coupling_char//'/'//myid_char, &
     601             OPEN ( 80, FILE='PARTICLE_INFOS'//TRIM( coupling_char )//'/'// &
     602                             myid_char,                                     &
    599603                        FORM='FORMATTED', POSITION='APPEND' )
    600604          ENDIF
     
    627631
    628632          IF ( myid_char == '' )  THEN
    629              OPEN ( 85, FILE='PARTICLE_DATA'//coupling_char//myid_char, &
     633             OPEN ( 85, FILE='PARTICLE_DATA'//TRIM(coupling_char)//myid_char, &
    630634                        FORM='UNFORMATTED', POSITION='APPEND' )
    631635          ELSE
     
    639643             CALL MPI_BARRIER( comm2d, ierr )
    640644#endif
    641              OPEN ( 85, FILE='PARTICLE_DATA'//coupling_char//'/'//myid_char, &
     645             OPEN ( 85, FILE='PARTICLE_DATA'//TRIM( coupling_char )//'/'// &
     646                        myid_char,                                         &
    642647                        FORM='UNFORMATTED', POSITION='APPEND' )
    643648          ENDIF
     
    10661071             filename = 'DATA_PRT_NETCDF' // coupling_char
    10671072          ELSE
    1068              filename = 'DATA_PRT_NETCDF' // coupling_char // '/' // myid_char
     1073             filename = 'DATA_PRT_NETCDF' // TRIM( coupling_char ) // '/' // &
     1074                        myid_char
    10691075          ENDIF
    10701076!
     
    11021108                THEN    ! needs modification in case of non-extendable sets
    11031109                   CALL local_system( 'mkdir  DATA_PRT_NETCDF' // &
    1104                                        coupling_char // '/' )
     1110                                       TRIM( coupling_char ) // '/' )
    11051111                ENDIF
    11061112#if defined( __parallel )
Note: See TracChangeset for help on using the changeset viewer.