Changeset 2535 for trunk/NEMOGCM/NEMO/OPA_SRC

Timestamp:

2010-12-29T16:48:14+01:00 (13 years ago)

Author:

rblod

Message:

Correction in domzgr, see ticket #782

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -500 +500 @@
       !                                               !     set a minimum depth     !
       !                                               ! =========================== !
-      IF( rn_hmin < 0._wp ) THEN    ;   ik = INT( rn_hmin ) + 1                                    ! from a nb of level
+      IF( rn_hmin < 0._wp ) THEN    ;   ik = ABS(INT( rn_hmin ))                                   ! from a nb of level
       ELSE                          ;   ik = MINLOC( gdepw_0, mask = gdepw_0 > rn_hmin, dim = 1 )  ! from a depth
       ENDIF