Changeset 7841 for branches/UKMO/dev_rev5518_OBS_DoNotAssim/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_seaice.F90
- Timestamp:
- 2017-03-29T12:14:30+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_rev5518_OBS_DoNotAssim/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_seaice.F90
r4990 r7841 282 282 ENDIF 283 283 llvalprof = .FALSE. 284 IF ( ( inpfiles(jj)%ivlqc(1,ji,1) == 1 ) .OR. & 285 & ( inpfiles(jj)%ivlqc(1,ji,1) == 2 ) ) THEN 284 IF ( .NOT. BTEST(inpfiles(jj)%ivlqc(1,ji,1),2) ) THEN 286 285 iobs = iobs + 1 287 286 ENDIF … … 355 354 ! Set observation information 356 355 357 IF ( ( inpfiles(jj)%ivlqc(1,ji,1) == 1 ) .OR. & 358 & ( inpfiles(jj)%ivlqc(1,ji,1) == 2 ) ) THEN 356 IF ( .NOT. BTEST(inpfiles(jj)%ivlqc(1,ji,1),2) ) THEN 359 357 360 358 iobs = iobs + 1
Note: See TracChangeset
for help on using the changeset viewer.