Changeset 4368


Ignore:
Timestamp:
2014-01-23T14:13:33+01:00 (7 years ago)
Author:
jchanut
Message:

fixed restartability problem, ticket #1230

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r4292 r4368  
    345345                  IF( h_rnf(ji,jj) > 0._wp ) THEN 
    346346                     jk = 2 
    347                      DO WHILE ( jk /= mbkt(ji,jj) .AND. fsdept(ji,jj,jk) < h_rnf(ji,jj) ) ;  jk = jk + 1 ;  END DO 
     347                     DO WHILE ( jk /= mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ;  jk = jk + 1 ;  END DO 
    348348                     nk_rnf(ji,jj) = jk 
    349349                  ELSEIF( h_rnf(ji,jj) == -1._wp   ) THEN   ;  nk_rnf(ji,jj) = 1 
Note: See TracChangeset for help on using the changeset viewer.