Ignore:
Timestamp:
Sep 24, 2014 2:06:57 PM (7 years ago)
Author:
maronga
Message:

New flag files allow to force unscheduled termination/restarts of batch jobs, progress output is made for batch runs, small adjustments for lxce6 and lccrayh/lccrayb

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/combine_plot_fields_single_open.f90

    r1310 r1468  
    2020! Current revisions:
    2121! -----------------
     22! Adapted for use on up to 6-digit processor cores (not tested)
    2223!
    2324! Former revisions:
     
    4344!-- Lokale Variablen
    4445    CHARACTER (LEN=2) ::  modus
    45     CHARACTER (LEN=7) ::  id_char
     46    CHARACTER (LEN=9) ::  id_char
    4647
    4748    INTEGER, PARAMETER ::  spk = SELECTED_REAL_KIND( 6 )
     
    6768!--    Pruefen, ob Basisdatei von PE0 vorhanden
    6869       danz = 0
    69        WRITE (id_char,'(A2,''_'',I4.4)')  modus, danz
     70       WRITE (id_char,'(A2,''_'',I6.6)')  modus, danz
    7071       INQUIRE ( FILE='PLOT2D_'//id_char, EXIST=found )
    7172!
     
    7475
    7576          danz = danz + 1
    76           WRITE (id_char,'(A2,''_'',I4.4)')  modus, danz
     77          WRITE (id_char,'(A2,''_'',I6.6)')  modus, danz
    7778          INQUIRE ( FILE='PLOT2D_'//id_char, EXIST=found )
    7879
     
    9899!
    99100!--          Prozessordatei oeffnen
    100              WRITE (id_char,'(A2,''_'',I4.4)')  modus, id
     101             WRITE (id_char,'(A2,''_'',I6.6)')  modus, id
    101102             OPEN ( 1, FILE='PLOT2D_'//id_char, FORM='UNFORMATTED', &
    102103                       POSITION='ASIS' )
     
    168169!-- Pruefen, ob Basisdatei von PE0 vorhanden
    169170    danz = 0
    170     WRITE (id_char,'(I4.4)')  danz
     171    WRITE (id_char,'(I6.6)')  danz
    171172    INQUIRE ( FILE='PLOT3D_DATA_'//TRIM( id_char ), EXIST=found )
    172173
     
    180181
    181182       danz = danz + 1
    182        WRITE (id_char,'(I4.4)')  danz
     183       WRITE (id_char,'(I6.6)')  danz
    183184       INQUIRE ( FILE='PLOT3D_DATA_'//TRIM( id_char ), EXIST=found )
    184185
     
    209210!
    210211!--       Prozessordatei oeffnen
    211           WRITE (id_char,'(I4.4)')  id
     212          WRITE (id_char,'(I6.6)')  id
    212213          OPEN ( 1, FILE='PLOT3D_DATA_'//TRIM( id_char ), FORM='UNFORMATTED', &
    213214                    POSITION='ASIS' )
Note: See TracChangeset for help on using the changeset viewer.