- Timestamp:
- 2019-12-14T13:46:52+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcrnf.F90
r12202 r12251 364 364 IF( h_rnf(ji,jj) > 0._wp ) THEN 365 365 jk = 2 366 DO WHILE ( jk /=mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ; jk = jk + 1366 DO WHILE ( jk < mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ; jk = jk + 1 367 367 END DO 368 368 nk_rnf(ji,jj) = jk … … 421 421 IF( zrnfcl(ji,jj,1) > 0._wp ) THEN 422 422 jk = 2 423 DO WHILE ( jk /=mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ; jk = jk + 1423 DO WHILE ( jk < mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ; jk = jk + 1 424 424 END DO 425 425 nk_rnf(ji,jj) = jk
Note: See TracChangeset
for help on using the changeset viewer.