Changeset 9219 for branches/UKMO

Timestamp:

2018-01-12T17:27:40+01:00 (6 years ago)

Author:

dford

Message:

Bug fix to profile read.

File:

• branches/UKMO/dev_r5518_obs_oper_update_bgc3d/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_prof.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_obs_oper_update_bgc3d/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_prof.F90

@@ -692 +692 @@
                            & .NOT. BTEST(inpfiles(jj)%idqc(ij,ji),2) ) THEN
                            profdata%var(jvar)%vobs(ivart(jvar)) = &
-                              &                inpfiles(jj)%pob(ij,ji,1)
+                              &                inpfiles(jj)%pob(ij,ji,jvar)
                            IF ( ldmod ) THEN
                               profdata%var(jvar)%vmod(ivart(jvar)) = &
-                                 &                inpfiles(jj)%padd(ij,ji,1,1)
+                                 &                inpfiles(jj)%padd(ij,ji,1,jvar)
                            ENDIF
                            ! Count number of profile var1 data as function of type
@@ -706 +706 @@
                         ! Profile jvar qc
                         profdata%var(jvar)%nvqc(ivart(jvar)) = &
-                           & inpfiles(jj)%ivlqc(ij,ji,1)
+                           & inpfiles(jj)%ivlqc(ij,ji,jvar)
 
                         ! Profile jvar qc flags
                         profdata%var(jvar)%nvqcf(:,ivart(jvar)) = &
-                           & inpfiles(jj)%ivlqcf(:,ij,ji,1)
+                           & inpfiles(jj)%ivlqcf(:,ij,ji,jvar)
 
                         ! Profile insitu T value