Changeset 9438


Ignore:
Timestamp:
2018-03-27T15:37:21+02:00 (3 years ago)
Author:
acc
Message:

Branch 2017/dev_merge_2017. Reorganisation of nemogcm.F90 and mppini.F90. Stage 3: Better error handling in ctl_opn; see ticket #2070

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r9168 r9438  
    19361936            WRITE(kout,*) '           we stop. verify the file ' 
    19371937            WRITE(kout,*) 
     1938         ELSE  !!! Force writing to make sure we get the information - at least once - in this violent STOP!! 
     1939            WRITE(*,*) 
     1940            WRITE(*,*) ' ===>>>> : bad opening file: ', clfile 
     1941            WRITE(*,*) ' =======   ===  ' 
     1942            WRITE(*,*) '           unit   = ', knum 
     1943            WRITE(*,*) '           status = ', cdstat 
     1944            WRITE(*,*) '           form   = ', cdform 
     1945            WRITE(*,*) '           access = ', cdacce 
     1946            WRITE(*,*) '           iostat = ', iost 
     1947            WRITE(*,*) '           we stop. verify the file ' 
     1948            WRITE(*,*) 
    19381949         ENDIF 
    19391950         CALL FLUSH( kout )  
Note: See TracChangeset for help on using the changeset viewer.