New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12168 – NEMO

Changeset 12168


Ignore:
Timestamp:
2019-12-11T10:16:47+01:00 (4 years ago)
Author:
smasson
Message:

trunk: minor bugfix in sbcrfn, see #2340

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcrnf.F90

    r11993 r12168  
    341341               IF( h_rnf(ji,jj) > 0._wp ) THEN 
    342342                  jk = 2 
    343                   DO WHILE ( jk /= mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ;  jk = jk + 1 
     343                  DO WHILE ( jk < mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ;  jk = jk + 1 
    344344                  END DO 
    345345                  nk_rnf(ji,jj) = jk 
     
    398398               IF( zrnfcl(ji,jj,1) > 0._wp ) THEN 
    399399                  jk = 2 
    400                   DO WHILE ( jk /= mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ;  jk = jk + 1 
     400                  DO WHILE ( jk < mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ;  jk = jk + 1 
    401401                  END DO 
    402402                  nk_rnf(ji,jj) = jk 
Note: See TracChangeset for help on using the changeset viewer.