Ignore:
Timestamp:
Sep 24, 2014 2:06:57 PM (9 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/SOURCE/check_open.f90

    r1360 r1468  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Adapted for use on up to 6-digit processor cores
     23! Added file unit 117 (PROGRESS)
    2324!
    2425! Former revisions:
     
    187188    IF ( openfile(file_id)%opened_before )  THEN
    188189       SELECT CASE ( file_id )
    189           CASE ( 13, 14, 21, 22, 23, 80:85 )
     190          CASE ( 13, 14, 21, 22, 23, 80:85, 117 )
    190191             IF ( file_id == 14 .AND. openfile(file_id)%opened_before )  THEN
    191192                message_string = 're-open of unit ' //                         &
     
    209210    SELECT CASE ( file_id )
    210211
    211        CASE ( 15, 16, 17, 18, 19, 50:59, 81:84, 104:105, 107, 109 )
     212       CASE ( 15, 16, 17, 18, 19, 50:59, 81:84, 104:105, 107, 109, 117 )
    212213             
    213214          IF ( myid /= 0 )  THEN
     
    280281          ELSE
    281282!
    282 !--          First opening of unit 13 openes file _0000 on all PEs because only
    283 !--          this file contains the global variables
     283!--          First opening of unit 13 openes file _000000 on all PEs because
     284!--          only this file contains the global variables
    284285             IF ( .NOT. openfile(file_id)%opened_before )  THEN
    285                 OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/_0000',      &
     286                OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/_000000',      &
    286287                           FORM='UNFORMATTED', STATUS='OLD' )
    287288             ELSE
     
    336337          ENDIF
    337338          IF ( myid_char == '' )  THEN
    338              OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/_0000',      &
     339             OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/_000000',      &
    339340                        FORM='UNFORMATTED', POSITION='APPEND' )
    340341          ELSE
     
    10531054
    10541055          ENDIF
     1056
     1057
     1058!
     1059!--    Progress file that is used by the PALM watchdog
     1060       CASE ( 117 )
     1061
     1062          OPEN ( 117, FILE='PROGRESS'//coupling_char, STATUS='REPLACE', FORM='FORMATTED' )
     1063
    10551064
    10561065       CASE ( 201:200+2*max_masks )
Note: See TracChangeset for help on using the changeset viewer.