Ignore:
Timestamp:
2015-02-10T09:39:36+01:00 (6 years ago)
Author:
hliu
Message:

prevent nla10 from being 0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r5044 r5074  
    300300      zrefdep = 10._wp - 0.1_wp * MINVAL( e3w_1d )                   ! ref. depth with tolerance (10% of minimum layer thickness) 
    301301      nlb10 = MINLOC( gdepw_1d, mask = gdepw_1d > zrefdep, dim = 1 ) ! shallowest W level Below ~10m 
     302      nlb10 = MAX(nlb10, 2)                                          ! prevent nla10 = 0  
    302303      nla10 = nlb10 - 1                                              ! deepest    W level Above ~10m 
    303304!!gm end bug 
Note: See TracChangeset for help on using the changeset viewer.