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.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), &
Note: See TracChangeset for help on using the changeset viewer.