Changeset 1468 for palm/trunk/UTIL

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

Location:

palm/trunk/UTIL

Files:

• combine_plot_fields.f90 (modified) (6 diffs)
• combine_plot_fields_single_open.f90 (modified) (8 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), &

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' )