Changeset 9438
- Timestamp:
- 2018-03-27T15:37:21+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r9168 r9438 1936 1936 WRITE(kout,*) ' we stop. verify the file ' 1937 1937 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(*,*) 1938 1949 ENDIF 1939 1950 CALL FLUSH( kout )
Note: See TracChangeset
for help on using the changeset viewer.