Changeset 7932


Ignore:
Timestamp:
2017-04-19T13:07:37+02:00 (3 years ago)
Author:
jwhile
Message:

Bug fixes

Location:
branches/UKMO/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS
Files:
3 edited

Legend:

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

    r7915 r7932  
    144144         &              surfdata%nsurf,   surfdata%nyea, surfdata%nmon, & 
    145145         &              surfdata%nday,    surfdata%nhou, surfdata%nmin, & 
    146          &              surfdata%nqc,     surfdata%mstp, iotdobs,       & 
    147          &              kqc_cutoff = iqc_cutoff  ) 
     146         &              surfdata%nqc,     surfdata%mstp, iotdobs        ) 
    148147 
    149148      CALL obs_mpp_sum_integer( iotdobs, iotdobsmpp ) 
     
    170169         &                 iosdsobs,     ilansobs,     & 
    171170         &                 inlasobs,     ld_nea,       & 
    172          &                 ibdysobs,     ld_bound_reject        ) 
     171         &                 ibdysobs,     ld_bound_reject, & 
     172         &                 iqc_cutoff                     ) 
    173173 
    174174      CALL obs_mpp_sum_integer( iosdsobs, iosdsobsmpp ) 
     
    14501450   END SUBROUTINE obs_pro_rej 
    14511451 
    1452    SUBROUTINE obs_uv_rej( profdata, knumu, knumv, kqc_cutof ) 
     1452   SUBROUTINE obs_uv_rej( profdata, knumu, knumv, kqc_cutoff ) 
    14531453      !!---------------------------------------------------------------------- 
    14541454      !!                    ***  ROUTINE obs_uv_rej *** 
  • branches/UKMO/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_prof.F90

    r7915 r7932  
    409409                     IF ( ( .NOT. BTEST(inpfiles(jj)%ivlqc(ij,ji,1),2) .AND. & 
    410410                        &   .NOT. BTEST(inpfiles(jj)%idqc(ij,ji),2) .AND. & 
    411                         &    ldt3d ) .OR. & 
     411                        &    ldvar1 ) .OR. & 
    412412                        & ( .NOT. BTEST(inpfiles(jj)%ivlqc(ij,ji,2),2) .AND. & 
    413413                        &   .NOT. BTEST(inpfiles(jj)%idqc(ij,ji),2) .AND. & 
     
    618618                     IF ( ( .NOT. BTEST(inpfiles(jj)%ivlqc(ij,ji,1),2) .AND. & 
    619619                        &   .NOT. BTEST(inpfiles(jj)%idqc(ij,ji),2) .AND. & 
    620                         &    ldt3d ) .OR. & 
     620                        &    ldvar1 ) .OR. & 
    621621                        & ( .NOT. BTEST(inpfiles(jj)%ivlqc(ij,ji,2),2) .AND. & 
    622622                        &   .NOT. BTEST(inpfiles(jj)%idqc(ij,ji),2) .AND. & 
    623                         &   lds3d ) ) THEN 
     623                        &   ldvar2 ) ) THEN 
    624624                        ip3dt = ip3dt + 1 
    625625                     ELSE 
     
    631631                  IF ( ( .NOT. BTEST(inpfiles(jj)%ivlqc(ij,ji,1),2) .AND. & 
    632632                    &   .NOT. BTEST(inpfiles(jj)%idqc(ij,ji),2) .AND. & 
    633                     &    ldt3d ) .OR. ldsatt ) THEN 
     633                    &    ldvar1 ) .OR. ldsatt ) THEN 
    634634 
    635635                     IF (ldsatt) THEN 
     
    693693                  ENDIF 
    694694 
    695                   IF ( .NOT. BTEST(inpfiles(jj)%ivlqc(ij,ji,2),2) .AND. & 
    696                      & .NOT. BTEST(inpfiles(jj)%idqc(ij,ji),2) ) THEN 
     695                  IF ( ( .NOT. BTEST(inpfiles(jj)%ivlqc(ij,ji,2),2) .AND. & 
     696                     &   .NOT. BTEST(inpfiles(jj)%idqc(ij,ji),2)    .AND. & 
    697697                     &   ldvar2 ) .OR. ldsatt ) THEN 
    698698 
     
    726726 
    727727                     ! Profile var2 value 
    728                   IF ( ( .NOT. BTEST(inpfiles(jj)%ivlqc(ij,ji,2),2) .AND. & 
    729                     &   .NOT. BTEST(inpfiles(jj)%idqc(ij,ji),2) .AND. & 
     728                  IF (  ( .NOT. BTEST(inpfiles(jj)%ivlqc(ij,ji,2),2) ) .AND. & 
     729                    &   ( .NOT. BTEST(inpfiles(jj)%idqc(ij,ji),2)    )  ) THEN 
    730730                        profdata%var(2)%vobs(ivar2t) = & 
    731731                           &                inpfiles(jj)%pob(ij,ji,2) 
  • branches/UKMO/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_readmdt.F90

    r7915 r7932  
    154154 
    155155! mark any masked data with a QC flag 
    156          IF( zobsmask(1) == 0 )   sladata%nqc(jobs) = IBSET(sladata(jslano)%nqc(jobs),15) 
     156         IF( zobsmask(1) == 0 )   sladata%nqc(jobs) = IBSET(sladata%nqc(jobs),15) 
    157157 
    158158         END DO 
Note: See TracChangeset for help on using the changeset viewer.