Changeset 6273

Timestamp:

2016-01-26T18:21:20+01:00 (8 years ago)

Author:

kingr

Message:

Change to QC obs if any of 2x2 grid of interpolation profiles are shallower than observation.

File:

• branches/UKMO/dev_r4650_general_vert_coord_obsoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90 (modified) (1 diff)

branches/UKMO/dev_r4650_general_vert_coord_obsoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

@@ -1884 +1884 @@
                ! Flag if the observation is deeper than the bathymetry 
                ! Or if it is within the mask 
-               IF ( ALL( zgdepw(1:2,1:2,kpk,jobs) < pobsdep(jobsp) ) &
+               IF ( ANY( zgdepw(1:2,1:2,kpk,jobs) < pobsdep(jobsp) ) &
                   &     .OR. & 
                   &  ( SUM( zgmsk(1:2,1:2,kobsk(jobsp)-1:kobsk(jobsp),jobs) ) &