Changeset 9219


Ignore:
Timestamp:
2018-01-12T17:27:40+01:00 (3 years ago)
Author:
dford
Message:

Bug fix to profile read.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update_bgc3d/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_prof.F90

    r9202 r9219  
    692692                           & .NOT. BTEST(inpfiles(jj)%idqc(ij,ji),2) ) THEN 
    693693                           profdata%var(jvar)%vobs(ivart(jvar)) = & 
    694                               &                inpfiles(jj)%pob(ij,ji,1) 
     694                              &                inpfiles(jj)%pob(ij,ji,jvar) 
    695695                           IF ( ldmod ) THEN 
    696696                              profdata%var(jvar)%vmod(ivart(jvar)) = & 
    697                                  &                inpfiles(jj)%padd(ij,ji,1,1) 
     697                                 &                inpfiles(jj)%padd(ij,ji,1,jvar) 
    698698                           ENDIF 
    699699                           ! Count number of profile var1 data as function of type 
     
    706706                        ! Profile jvar qc 
    707707                        profdata%var(jvar)%nvqc(ivart(jvar)) = & 
    708                            & inpfiles(jj)%ivlqc(ij,ji,1) 
     708                           & inpfiles(jj)%ivlqc(ij,ji,jvar) 
    709709 
    710710                        ! Profile jvar qc flags 
    711711                        profdata%var(jvar)%nvqcf(:,ivart(jvar)) = & 
    712                            & inpfiles(jj)%ivlqcf(:,ij,ji,1) 
     712                           & inpfiles(jj)%ivlqcf(:,ij,ji,jvar) 
    713713 
    714714                        ! Profile insitu T value 
Note: See TracChangeset for help on using the changeset viewer.