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

Parent Directory | Revision Log | Revision Graph | Patch

--- MITgcm/pkg/seaice/seaice_jfnk.F	2012/12/03 15:49:17	1.11
+++ MITgcm/pkg/seaice/seaice_jfnk.F	2012/12/17 10:08:16	1.12
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_jfnk.F,v 1.11 2012/12/03 15:49:17 mlosch Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_jfnk.F,v 1.12 2012/12/17 10:08:16 mlosch Exp $
 C $Name:  $
 
 #include "SEAICE_OPTIONS.h"
@@ -103,8 +103,8 @@
       recip_deltaT        = 1. _d 0 / SEAICE_deltaTdyn
 
       iOutFGMRES=0
-C     iOutFgmres=1 gives a little bit of output
-      IF ( debugLevel.GE.debLevA .AND.
+C     with iOutFgmres=1, seaice_fgmres prints the residual at each iteration
+      IF ( debugLevel.GE.debLevC .AND.
      &     DIFFERENT_MULTIPLE( SEAICE_monFreq, myTime, deltaTClock ) )
      &     iOutFGMRES=1
 
@@ -144,6 +144,7 @@
      I      uIce, vIce, 
      O      uIceRes, vIceRes, 
      I      newtonIter, 0, myTime, myIter, myThid )
+C     probably not necessary, will be removed later:
        CALL EXCH_UV_XY_RL( uIceRes, vIceRes,.TRUE.,myThid)
 C     local copies of precomputed coefficients that are to stay
 C     constant for the preconditioner