Changeset 12789


Ignore:
Timestamp:
2020-04-21T14:01:44+02:00 (6 months ago)
Author:
rrenshaw
Message:

adopt one of Rob's profile fixes

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  
    1313      !! ** Method  : Straightforward search 
    1414      !! 
    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. 
    1619      !! 
    1720      !! History : 
     
    2124      !!        !  2006-10  (A. Weaver) Cleanup 
    2225      !!        !  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 
    2428      !!---------------------------------------------------------------------- 
    2529 
     
    4448      DO ji = 1, kobs  
    4549         kobsk(ji) = 1 
    46          depk: DO jk = 2, kgrd 
     50         depk: DO jk = 2, kgrd-1 
    4751            IF ( pgrddep(jk) >= pobsdep(ji) ) EXIT depk 
    4852         END DO depk 
    49          kobsk(ji) = MIN( jk, kgrd ) 
     53         kobsk(ji) = jk 
    5054      END DO 
    5155 
Note: See TracChangeset for help on using the changeset viewer.