New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7932 for branches/UKMO/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_prof.F90 – NEMO

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

Bug fixes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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) 
Note: See TracChangeset for help on using the changeset viewer.