Changeset 1468 for palm/trunk/UTIL


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

Location:
palm/trunk/UTIL
Files:
2 edited

Legend:

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

    r1395 r1468  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Adapted for use on up to 6-digit processor cores (not tested)
    2323!
    2424! Former revisions:
     
    8787!-- Local variables
    8888    CHARACTER (LEN=2)    ::  modus, model_string
    89     CHARACTER (LEN=4)    ::  id_string
     89    CHARACTER (LEN=6)    ::  id_string
    9090    CHARACTER (LEN=10)   ::  dimname, var_name
    9191    CHARACTER (LEN=40)   ::  filename
     
    187187!--       create any output for this cross-section.
    188188          danz = 0
    189           WRITE (id_string,'(I4.4)')  danz
     189          WRITE (id_string,'(I6.6)')  danz
    190190          INQUIRE ( &
    191191               FILE='PLOT2D_'//modus//TRIM( model_string )//'_'//id_string, &
     
    200200                  FORM='UNFORMATTED' )
    201201             danz = danz + 1
    202              WRITE (id_string,'(I4.4)')  danz
     202             WRITE (id_string,'(I6.6)')  danz
    203203             INQUIRE ( &
    204204                  FILE='PLOT2D_'//modus//TRIM( model_string )//'_'//id_string, &
     
    604604       IF ( .NOT. netcdf_parallel )  THEN
    605605          danz = 0
    606           WRITE (id_string,'(I4.4)')  danz
     606          WRITE (id_string,'(I6.6)')  danz
    607607          INQUIRE ( &
    608608               FILE='PLOT3D_DATA'//TRIM( model_string )//'_'//TRIM( id_string ),  &
     
    626626               FORM='UNFORMATTED')
    627627          danz = danz + 1
    628           WRITE (id_string,'(I4.4)')  danz
     628          WRITE (id_string,'(I6.6)')  danz
    629629          INQUIRE ( &
    630630               FILE='PLOT3D_DATA'//TRIM( model_string )//'_'//TRIM(id_string), &
  • 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.