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 15069 for NEMO – NEMO

Changeset 15069 for NEMO


Ignore:
Timestamp:
2021-07-02T12:06:47+02:00 (3 years ago)
Author:
agn
Message:

correct bug found by Simon M. email 18May

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90

    r14759 r15069  
    29262926 
    29272927                     !                    zhbl_s = MIN(zhbl_s, gdepw_n(ji,jj, mbkt(ji,jj) + 1) - depth_tol) 
    2928                      IF ( zhbl_s >= mbkt(ji,jj) + 1 ) THEN 
     2928                     IF ( zhbl_s >= gdepw_n(ji,jj, mbkt(ji,jj) + 1) ) THEN 
    29292929                        zhbl_s = MIN(zhbl_s,  gdepw_n(ji,jj, mbkt(ji,jj) + 1) - depth_tol) 
    29302930                        lpyc(ji,jj) = .FALSE. 
Note: See TracChangeset for help on using the changeset viewer.