Ignore:
Timestamp:
Apr 16, 2007 3:40:52 PM (17 years ago)
Author:
raasch
Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:
1 edited

Legend:

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

    r77 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Call of local_getenv removed, preprocessor directives for old systems removed
    77!
    88! Former revisions:
     
    4242
    4343    CHARACTER (LEN=2)   ::  suffix
    44     CHARACTER (LEN=20)  ::  return_addres, return_usern, xtext = 'time in s'
     44    CHARACTER (LEN=20)  ::  xtext = 'time in s'
    4545    CHARACTER (LEN=30)  ::  filename
    4646    CHARACTER (LEN=40)  ::  avs_coor_file, avs_coor_file_localname, &
     
    151151                        STATUS='OLD' )
    152152          ELSE
    153 #if defined( __t3eh ) || defined( __t3eb ) || defined( __t3ej5 )
    154 !
    155 !--          Declare a cache layer for faster I/O
    156              CALL ASNUNIT ( 13, '-F cachea:512:1:1', ierr1 )
    157 #endif
    158153             OPEN ( 13, FILE='BININ/'//myid_char, FORM='UNFORMATTED', &
    159154                        STATUS='OLD' )
     
    174169!--          directory created by PE0 can open their file
    175170             CALL MPI_BARRIER( comm2d, ierr )
    176 #endif
    177 #if defined( __t3eh ) || defined( __t3eb ) || defined( __t3ej5 )
    178 !
    179 !--          Declare a cache layer for faster I/O
    180              CALL ASNUNIT ( 14, '-F cachea:512:1:1', ierr1 )
    181171#endif
    182172             OPEN ( 14, FILE='BINOUT/'//myid_char_14, FORM='UNFORMATTED', &
     
    342332       CASE ( 30 )
    343333
    344 
    345 #if defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej5 )
    346 !
    347 !--       In case of active data compression 32Bit integer output
    348           IF ( do3d_compress )  THEN
    349              CALL ASNUNIT( 30, '-F f77 -N ieee_32', ierr1 )
    350           ENDIF
    351 #endif
    352 
    353334          OPEN ( 30, FILE='PLOT3D_DATA'//myid_char, FORM='UNFORMATTED' )
    354335!
     
    369350!--          Therefore path information has to be obtained first.
    370351             IF ( avs_output )  THEN
    371                 CALL local_getenv( 'return_addres', 13, return_addres, iaddres )
    372                 CALL local_getenv( 'return_username', 15, return_usern, iusern )
     352                iaddres = LEN_TRIM( return_addres )
     353                iusern  = LEN_TRIM( return_username )
    373354
    374355                OPEN ( 3, FILE='OUTPUT_FILE_CONNECTIONS', FORM='FORMATTED' )
     
    433414!--                   really transferred.
    434415                      command = TRIM( batch_scp ) // ' -n -u ' // &
    435                          return_usern(1:iusern) // ' ' // &
     416                         return_username(1:iusern) // ' ' // &
    436417                         return_addres(1:iaddres) // ' /etc/passwd "' // &
    437418                         TRIM( avs_coor_file_catalog ) // '" ' // &
     
    445426!--                   Determine the data file name
    446427                      command = TRIM( batch_scp ) // ' -n -u ' // &
    447                          return_usern(1:iusern) // ' ' // &
     428                         return_username(1:iusern) // ' ' // &
    448429                         return_addres(1:iaddres) // ' /etc/passwd "' // &
    449430                         TRIM( avs_data_file_catalog ) // '" ' // &
Note: See TracChangeset for help on using the changeset viewer.