Changeset 12168
- Timestamp:
- 2019-12-11T10:16:47+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcrnf.F90
r11993 r12168 341 341 IF( h_rnf(ji,jj) > 0._wp ) THEN 342 342 jk = 2 343 DO WHILE ( jk /=mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ; jk = jk + 1343 DO WHILE ( jk < mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ; jk = jk + 1 344 344 END DO 345 345 nk_rnf(ji,jj) = jk … … 398 398 IF( zrnfcl(ji,jj,1) > 0._wp ) THEN 399 399 jk = 2 400 DO WHILE ( jk /=mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ; jk = jk + 1400 DO WHILE ( jk < mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ; jk = jk + 1 401 401 END DO 402 402 nk_rnf(ji,jj) = jk
Note: See TracChangeset
for help on using the changeset viewer.