Changeset 14960 for NEMO/branches/UKMO/NEMO_4.0.4_GO8_package

Timestamp:

2021-06-08T16:37:12+02:00 (3 years ago)

Author:

davestorkey

Message:

Fix restartability issue in ISF code. See:
​https://code.metoffice.gov.uk/trac/gmed/ticket/587#comment:3

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC/sbcisf.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC/sbcisf.F90

@@ -355 +355 @@
                 ik = 2
 !!gm potential bug: use gdepw_0 not _n
-                DO WHILE ( ik <= mbkt(ji,jj) .AND. gdepw_n(ji,jj,ik) < rzisf_tbl(ji,jj) ) ;  ik = ik + 1 ;  END DO
+!!DS following Gurvan's suggestion here because it fixes a restartability issue.
+                DO WHILE ( ik <= mbkt(ji,jj) .AND. gdepw_0(ji,jj,ik) < rzisf_tbl(ji,jj) ) ;  ik = ik + 1 ;  END DO
                 misfkt(ji,jj) = ik-1
             END DO