New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5074 for branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 – NEMO

Ignore:
Timestamp:
2015-02-10T09:39:36+01:00 (9 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.