Changeset 12498 for branches/UKMO/dev_r5518_obs_oper_update_utils335/NEMOGCM/NEMO/OPA_SRC/OBS/obs_level_search.h90
- Timestamp:
- 2020-03-02T12:48:18+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update_utils335/NEMOGCM/NEMO/OPA_SRC/OBS/obs_level_search.h90
r7960 r12498 13 13 !! ** Method : Straightforward search 14 14 !! 15 !! ** Action : 15 !! ** Action : Will return level associated with T-point below the obs 16 !! depth, except when observation is in the top box will 17 !! return level 2. Also, if obs depth greater than depth 18 !! of last wet T-point (kpk-1) will return level kpk. 16 19 !! 17 20 !! History : … … 43 46 DO ji = 1, kobs 44 47 kobsk(ji) = 1 45 depk: DO jk = 2, kgrd 48 depk: DO jk = 2, kgrd-1 46 49 IF ( pgrddep(jk) >= pobsdep(ji) ) EXIT depk 47 50 END DO depk
Note: See TracChangeset
for help on using the changeset viewer.