Changeset 1468 for palm/trunk/SOURCE/read_3d_binary.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/SOURCE/read_3d_binary.f90 (modified) (3 diffs)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Adapted for use on up to 6-digit processor cores
 ! 
 ! Former revisions:
@@ -108 +108 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=5)  ::  myid_char_save
+    CHARACTER (LEN=7)  ::  myid_char_save
     CHARACTER (LEN=10) ::  binary_version
     CHARACTER (LEN=10) ::  version_on_file
@@ -296 +296 @@
 !
 !--    Set the filename (underscore followed by four digit processor id)
-       WRITE (myid_char,'(''_'',I4.4)')  j
+       WRITE (myid_char,'(''_'',I6.6)')  j
        WRITE (9,*) 'myid=',myid,' opening file "',myid_char,'"'
        CALL local_flush( 9 )
 
 !
-!--    Open the restart file. If this file has been created by PE0 (_0000),
+!--    Open the restart file. If this file has been created by PE0 (_000000),
 !--    the global variables at the beginning of the file have to be skipped
 !--    first.