Ignore:
Timestamp:
2010-12-29T16:48:14+01:00 (10 years ago)
Author:
rblod
Message:

Correction in domzgr, see ticket #782

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r2528 r2535  
    500500      !                                               !     set a minimum depth     ! 
    501501      !                                               ! =========================== ! 
    502       IF( rn_hmin < 0._wp ) THEN    ;   ik = INT( rn_hmin ) + 1                                    ! from a nb of level 
     502      IF( rn_hmin < 0._wp ) THEN    ;   ik = ABS(INT( rn_hmin ))                                   ! from a nb of level 
    503503      ELSE                          ;   ik = MINLOC( gdepw_0, mask = gdepw_0 > rn_hmin, dim = 1 )  ! from a depth 
    504504      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.