Changeset 15764 for branches/UKMO/r6232_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_level_search.h90

Timestamp:

2022-03-21T13:12:29+01:00 (2 years ago)

Author:

jcastill

Message:

Update with the latest changes in branches/UKMO/dev_r5518_obs_oper_update@15400

File:

• branches/UKMO/r6232_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_level_search.h90 (modified) (2 diffs)

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

@@ -13 +13 @@
       !! ** Method  : Straightforward search
       !!
-      !! ** Action  : 
+      !! ** Action  : Will return level associated with T-point below the obs 
+      !!              depth, except when observation is in the top box will  
+      !!              return level 2. Also, if obs depth greater than depth  
+      !!              of last wet T-point (kpk-1) will return level kpk.
       !!
       !! History :
@@ -43 +46 @@
       DO ji = 1, kobs 
          kobsk(ji) = 1
-         depk: DO jk = 2, kgrd
-            IF ( pgrddep(jk) >= pobsdep(ji) ) EXIT depk
+         depk: DO jk = 2, kgrd-1 
+            IF ( pgrddep(jk) > pobsdep(ji) ) EXIT depk
          END DO depk
          kobsk(ji) = jk