Changeset 389 for trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90
- Timestamp:
- 2006-03-09T18:22:04+01:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90
r359 r389 272 272 & .OR. kindic < 0 & 273 273 & .OR. ( kt == 1 .AND. kindic > 0) ) THEN 274 OPEN (14,FILE='datrj.out',FORM='FORMATTED', STATUS='UNKNOWN',POSITION='APPEND 274 OPEN (14,FILE='datrj.out',FORM='FORMATTED', STATUS='UNKNOWN',POSITION='APPEND') 275 275 276 276 IF (lwp) WRITE(14,'(f10.4,1x,i8)') adatrj, ndastp
Note: See TracChangeset
for help on using the changeset viewer.