Changeset 4932 for branches/2014/dev_r4879_UKMO_NOC_MERGE/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_prof.F90
- Timestamp:
- 2014-12-01T11:08:54+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4879_UKMO_NOC_MERGE/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_prof.F90
r4292 r4932 143 143 INTEGER :: is3dt 144 144 INTEGER :: ip3dt 145 INTEGER :: ios 146 INTEGER :: ioserrcount 145 147 INTEGER, DIMENSION(kvars) :: & 146 148 & iv3dt … … 280 282 & krefdate = irefdate(jj) ) 281 283 284 ioserrcount=0 282 285 IF ( ldavtimset ) THEN 283 286 DO ji = 1, inpfiles(jj)%nobs … … 287 290 ! to be the end of the day 288 291 ! 289 READ( inpfiles(jj)%cdtyp(ji), '(I4)' ) itype 292 READ( inpfiles(jj)%cdtyp(ji), '(I4)', IOSTAT = ios, ERR = 900 ) itype 293 900 IF ( ios /= 0 ) THEN 294 itype = 0 ! Set type to zero if there is a problem in the string conversion 295 ENDIF 290 296 IF ( ANY (idailyavtypes == itype ) ) THEN 291 297 inpfiles(jj)%ptim(ji) = & … … 468 474 itypsmpp(:) = 0 469 475 470 476 ioserrcount = 0 471 477 DO jk = 1, iproftot 472 478 … … 552 558 553 559 ! Instrument type 554 READ( inpfiles(jj)%cdtyp(ji), '(I4)' ) itype 560 READ( inpfiles(jj)%cdtyp(ji), '(I4)', IOSTAT = ios, ERR = 901 ) itype 561 901 IF ( ios /= 0 ) THEN 562 IF (ioserrcount == 0) CALL ctl_warn ( 'Problem converting an instrument type to integer. Setting type to zero' ) 563 ioserrcount = ioserrcount + 1 564 itype = 0 565 ENDIF 566 555 567 profdata%ntyp(iprof) = itype 556 568
Note: See TracChangeset
for help on using the changeset viewer.