Changeset 15356 for branches/UKMO/dev_r5518_obs_oper_update_DepthBug/NEMOGCM/NEMO/OPA_SRC/OBS/obs_level_search.h90

Timestamp:

2021-10-12T15:52:10+02:00 (2 years ago)

Author:

kingr

Message:

Chnages to fix test in obs_level_search to ensure index of level below obdepth is returned, and to obs_prep to remove code which altered obdepths, and to vertical interpolation routine to deal with obs in top half of top box or bottom half of bottom box.

File:

• branches/UKMO/dev_r5518_obs_oper_update_DepthBug/NEMOGCM/NEMO/OPA_SRC/OBS/obs_level_search.h90 (modified) (1 diff)

branches/UKMO/dev_r5518_obs_oper_update_DepthBug/NEMOGCM/NEMO/OPA_SRC/OBS/obs_level_search.h90

@@ -47 +47 @@
          kobsk(ji) = 1
          depk: DO jk = 2, kgrd-1
-            IF ( pgrddep(jk) >= pobsdep(ji) ) EXIT depk
+            IF ( pgrddep(jk) > pobsdep(ji) ) EXIT depk
          END DO depk
          kobsk(ji) = jk