Changeset 1468 for palm/trunk/UTIL/combine_plot_fields_single_open.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_single_open.f90 (modified) (8 diffs)

palm/trunk/UTIL/combine_plot_fields_single_open.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! Adapted for use on up to 6-digit processor cores (not tested)
 !
 ! Former revisions:
@@ -43 +44 @@
 !-- Lokale Variablen
     CHARACTER (LEN=2) ::  modus
-    CHARACTER (LEN=7) ::  id_char
+    CHARACTER (LEN=9) ::  id_char
 
     INTEGER, PARAMETER ::  spk = SELECTED_REAL_KIND( 6 )
@@ -67 +68 @@
 !--    Pruefen, ob Basisdatei von PE0 vorhanden
        danz = 0
-       WRITE (id_char,'(A2,''_'',I4.4)')  modus, danz
+       WRITE (id_char,'(A2,''_'',I6.6)')  modus, danz
        INQUIRE ( FILE='PLOT2D_'//id_char, EXIST=found )
 !
@@ -74 +75 @@
 
           danz = danz + 1
-          WRITE (id_char,'(A2,''_'',I4.4)')  modus, danz
+          WRITE (id_char,'(A2,''_'',I6.6)')  modus, danz
           INQUIRE ( FILE='PLOT2D_'//id_char, EXIST=found )
 
@@ -98 +99 @@
 !
 !--          Prozessordatei oeffnen
-             WRITE (id_char,'(A2,''_'',I4.4)')  modus, id
+             WRITE (id_char,'(A2,''_'',I6.6)')  modus, id
              OPEN ( 1, FILE='PLOT2D_'//id_char, FORM='UNFORMATTED', &
                        POSITION='ASIS' )
@@ -168 +169 @@
 !-- Pruefen, ob Basisdatei von PE0 vorhanden
     danz = 0
-    WRITE (id_char,'(I4.4)')  danz
+    WRITE (id_char,'(I6.6)')  danz
     INQUIRE ( FILE='PLOT3D_DATA_'//TRIM( id_char ), EXIST=found )
 
@@ -180 +181 @@
 
        danz = danz + 1
-       WRITE (id_char,'(I4.4)')  danz
+       WRITE (id_char,'(I6.6)')  danz
        INQUIRE ( FILE='PLOT3D_DATA_'//TRIM( id_char ), EXIST=found )
 
@@ -209 +210 @@
 !
 !--       Prozessordatei oeffnen
-          WRITE (id_char,'(I4.4)')  id
+          WRITE (id_char,'(I6.6)')  id
           OPEN ( 1, FILE='PLOT3D_DATA_'//TRIM( id_char ), FORM='UNFORMATTED', &
                     POSITION='ASIS' )