Changeset 1468 for palm/trunk/UTIL/combine_plot_fields.f90

Timestamp:

Sep 24, 2014 2:06:57 PM (10 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:

• palm/trunk/UTIL/combine_plot_fields.f90 (modified) (6 diffs)

palm/trunk/UTIL/combine_plot_fields.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Adapted for use on up to 6-digit processor cores (not tested)
 !
 ! Former revisions:
@@ -87 +87 @@
 !-- Local variables
     CHARACTER (LEN=2)    ::  modus, model_string
-    CHARACTER (LEN=4)    ::  id_string
+    CHARACTER (LEN=6)    ::  id_string
     CHARACTER (LEN=10)   ::  dimname, var_name
     CHARACTER (LEN=40)   ::  filename
@@ -187 +187 @@
 !--       create any output for this cross-section.
           danz = 0
-          WRITE (id_string,'(I4.4)')  danz
+          WRITE (id_string,'(I6.6)')  danz
           INQUIRE ( &
                FILE='PLOT2D_'//modus//TRIM( model_string )//'_'//id_string, &
@@ -200 +200 @@
                   FORM='UNFORMATTED' )
              danz = danz + 1
-             WRITE (id_string,'(I4.4)')  danz
+             WRITE (id_string,'(I6.6)')  danz
              INQUIRE ( &
                   FILE='PLOT2D_'//modus//TRIM( model_string )//'_'//id_string, &
@@ -604 +604 @@
        IF ( .NOT. netcdf_parallel )  THEN
           danz = 0
-          WRITE (id_string,'(I4.4)')  danz
+          WRITE (id_string,'(I6.6)')  danz
           INQUIRE ( &
                FILE='PLOT3D_DATA'//TRIM( model_string )//'_'//TRIM( id_string ),  &
@@ -626 +626 @@
                FORM='UNFORMATTED')
           danz = danz + 1
-          WRITE (id_string,'(I4.4)')  danz
+          WRITE (id_string,'(I6.6)')  danz
           INQUIRE ( &
                FILE='PLOT3D_DATA'//TRIM( model_string )//'_'//TRIM(id_string), &