Changeset 11568 for NEMO/branches/2019/ENHANCE-02_ISF_domcfg/src/domzgr.F90

Timestamp:

2019-09-18T17:52:11+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF: fix compatibility issue between rn_hmin and ice shelf (ticket #2142)

File:

• NEMO/branches/2019/ENHANCE-02_ISF_domcfg/src/domzgr.F90 (modified) (1 diff)

NEMO/branches/2019/ENHANCE-02_ISF_domcfg/src/domzgr.F90

@@ -612 +612 @@
          zhmin = gdepw_1d(ik+1)                                                        ! minimum depth = ik+1 w-levels 
          WHERE( bathy(:,:) <= 0._wp )   ;   bathy(:,:) = 0._wp                         ! min=0     over the lands
-         ELSE WHERE                     ;   bathy(:,:) = MAX(  zhmin , bathy(:,:)  )   ! min=zhmin over the oceans
+         ELSE WHERE ( risfdep == 0._wp );   bathy(:,:) = MAX(  zhmin , bathy(:,:)  )   ! min=zhmin over the oceans
          END WHERE
          IF(lwp) write(numout,*) 'Minimum ocean depth: ', zhmin, ' minimum number of ocean levels : ', ik