Ignore:
Timestamp:
2017-04-18T10:24:44+02:00 (3 years ago)
Author:
jwhile
Message:

Added code for 'Do not assimilate flags'

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_surf.F90

    r7837 r7915  
    294294                  ENDIF 
    295295                  llvalprof = .FALSE. 
    296                   IF ( ( inpfiles(jj)%ivlqc(1,ji,1) == 1 ) .OR. & 
    297                      & ( inpfiles(jj)%ivlqc(1,ji,1) == 2 ) ) THEN 
     296                  IF ( .NOT. BTEST(inpfiles(jj)%ivlqc(1,ji,1),2) ) THEN 
    298297                     iobs = iobs + 1 
    299298                  ENDIF 
     
    367366            ! Set observation information 
    368367 
    369             IF ( ( inpfiles(jj)%ivlqc(1,ji,1) == 1 ) .OR. & 
    370                & ( inpfiles(jj)%ivlqc(1,ji,1) == 2 ) ) THEN 
     368            IF ( .NOT. BTEST(inpfiles(jj)%ivlqc(1,ji,1),2) ) THEN 
    371369 
    372370               iobs = iobs + 1 
Note: See TracChangeset for help on using the changeset viewer.