Changeset 4368 for branches/2013

Timestamp:

2014-01-23T14:13:33+01:00 (10 years ago)

Author:

jchanut

Message:

fixed restartability problem, ticket #1230

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90 (modified) (1 diff)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

@@ -345 +345 @@
                   IF( h_rnf(ji,jj) > 0._wp ) THEN
                      jk = 2
-                     DO WHILE ( jk /= mbkt(ji,jj) .AND. fsdept(ji,jj,jk) < h_rnf(ji,jj) ) ;  jk = jk + 1 ;  END DO
+                     DO WHILE ( jk /= mbkt(ji,jj) .AND. gdept_0(ji,jj,jk) < h_rnf(ji,jj) ) ;  jk = jk + 1 ;  END DO
                      nk_rnf(ji,jj) = jk
                   ELSEIF( h_rnf(ji,jj) == -1._wp   ) THEN   ;  nk_rnf(ji,jj) = 1