- Timestamp:
- 2020-04-21T14:01:44+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis4/NEMOGCM/NEMO/OPA_SRC/OBS/obs_level_search.h90
r11639 r12789 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 : … … 21 24 !! ! 2006-10 (A. Weaver) Cleanup 22 25 !! ! 2008-10 (K. Mogensen) Remove assumptions on grid. 23 !! ! 2019-07 (R. Renshaw) Don't exceed model bottom. 26 !! ! 2020-04 (R. King/RJR) Add Rob's fix 27 !! ! https://code.metoffice.gov.uk/trac/utils/ticket/335 24 28 !!---------------------------------------------------------------------- 25 29 … … 44 48 DO ji = 1, kobs 45 49 kobsk(ji) = 1 46 depk: DO jk = 2, kgrd 50 depk: DO jk = 2, kgrd-1 47 51 IF ( pgrddep(jk) >= pobsdep(ji) ) EXIT depk 48 52 END DO depk 49 kobsk(ji) = MIN( jk, kgrd )53 kobsk(ji) = jk 50 54 END DO 51 55
Note: See TracChangeset
for help on using the changeset viewer.