Changeset 2535 for trunk/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2010-12-29T16:48:14+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r2528 r2535 500 500 ! ! set a minimum depth ! 501 501 ! ! =========================== ! 502 IF( rn_hmin < 0._wp ) THEN ; ik = INT( rn_hmin ) + 1! from a nb of level502 IF( rn_hmin < 0._wp ) THEN ; ik = ABS(INT( rn_hmin )) ! from a nb of level 503 503 ELSE ; ik = MINLOC( gdepw_0, mask = gdepw_0 > rn_hmin, dim = 1 ) ! from a depth 504 504 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.