Diff of /MITgcm/pkg/seaice/seaice_jfnk.F

Parent Directory | Revision Log | Revision Graph | Patch

--- MITgcm/pkg/seaice/seaice_jfnk.F	2016/01/28 12:54:12	1.30
+++ MITgcm/pkg/seaice/seaice_jfnk.F	2017/06/08 15:33:50	1.31
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_jfnk.F,v 1.30 2016/01/28 12:54:12 mlosch Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_jfnk.F,v 1.31 2017/06/08 15:33:50 mlosch Exp $
 C $Name:  $
 
 #include "SEAICE_OPTIONS.h"
@@ -228,6 +228,7 @@
        iCode         = 0
 
        JFNKconverged = JFNKresidual.LT.JFNKtol
+     &      .OR.JFNKresidual.EQ.0. _d 0
 
 C     do Krylov loop only if convergence is not reached