Problem with writing restart file – in #9: CCLM

in #9: CCLM

Please check, if the file 7780OUT_DIR/restarts/lrfd2010051100o already exists.
If so, either delete the file or better:
In io_utilities.f90 in open_file around about line 770 change ‘ NEW ’ to ‘ UNKNOWN ’ for the file opening


CASE (‘bina’)

IF (my_id 0) THEN IF (ymode(1:1) ‘r’) THEN OPEN (nudat, FILE = TRIM , FORM =‘ UNFORMATTED ’, STATUS =‘ OLD ’, & ACTION =‘ READ ’, IOSTAT =ierror) ELSEIF ((ymode(1:1) 'w') .OR. (ymode(1:1) ‘a’)) THEN ! there is no append for restart-files. They are NEW ! OPEN (nudat, FILE = TRIM , FORM =‘ UNFORMATTED ’, STATUS =‘ NEW ’, & OPEN (nudat, FILE = TRIM , FORM =‘ UNFORMATTED ’, STATUS =‘ UNKNOWN ’, & ACTION =‘ WRITE ’, IOSTAT =ierror)


and compile a new binary.
This generally changed in the climate version, but not yet done for the “fresh” release of the version cosmo5.0

  @burkhardtrockel in #9cbe8d9

Please check, if the file 7780OUT_DIR/restarts/lrfd2010051100o already exists.
If so, either delete the file or better:
In io_utilities.f90 in open_file around about line 770 change ‘ NEW ’ to ‘ UNKNOWN ’ for the file opening


CASE (‘bina’)

IF (my_id 0) THEN IF (ymode(1:1) ‘r’) THEN OPEN (nudat, FILE = TRIM , FORM =‘ UNFORMATTED ’, STATUS =‘ OLD ’, & ACTION =‘ READ ’, IOSTAT =ierror) ELSEIF ((ymode(1:1) 'w') .OR. (ymode(1:1) ‘a’)) THEN ! there is no append for restart-files. They are NEW ! OPEN (nudat, FILE = TRIM , FORM =‘ UNFORMATTED ’, STATUS =‘ NEW ’, & OPEN (nudat, FILE = TRIM , FORM =‘ UNFORMATTED ’, STATUS =‘ UNKNOWN ’, & ACTION =‘ WRITE ’, IOSTAT =ierror)


and compile a new binary.
This generally changed in the climate version, but not yet done for the “fresh” release of the version cosmo5.0

Please check, if the file 7780OUT_DIR/restarts/lrfd2010051100o already exists.
If so, either delete the file or better:
In io_utilities.f90 in open_file around about line 770 change ‘ NEW ’ to ‘ UNKNOWN ’ for the file opening


CASE (‘bina’)

IF (my_id 0) THEN IF (ymode(1:1) ‘r’) THEN OPEN (nudat, FILE = TRIM , FORM =‘ UNFORMATTED ’, STATUS =‘ OLD ’, & ACTION =‘ READ ’, IOSTAT =ierror) ELSEIF ((ymode(1:1) 'w') .OR. (ymode(1:1) ‘a’)) THEN ! there is no append for restart-files. They are NEW ! OPEN (nudat, FILE = TRIM , FORM =‘ UNFORMATTED ’, STATUS =‘ NEW ’, & OPEN (nudat, FILE = TRIM , FORM =‘ UNFORMATTED ’, STATUS =‘ UNKNOWN ’, & ACTION =‘ WRITE ’, IOSTAT =ierror)


and compile a new binary.
This generally changed in the climate version, but not yet done for the “fresh” release of the version cosmo5.0