/[MITgcm]/MITgcm/pkg/seaice/seaice_jfnk.F
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by mlosch, Fri Nov 9 14:11:43 2012 UTC revision 1.9 by mlosch, Mon Nov 12 09:46:38 2012 UTC
# Line 74  C     parameters to compute convergence Line 74  C     parameters to compute convergence
74  C      C    
75        _RL     recip_deltaT        _RL     recip_deltaT
76        LOGICAL JFNKconverged, krylovConverged        LOGICAL JFNKconverged, krylovConverged
77          LOGICAL writeNow
78        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
79  C  C
80  C     u/vIceRes :: residual of sea-ice momentum equations  C     u/vIceRes :: residual of sea-ice momentum equations
# Line 307  C     Record failure Line 308  C     Record failure
308         ENDIF         ENDIF
309        ENDIF        ENDIF
310  C     Decide whether it is time to dump and reset the counter  C     Decide whether it is time to dump and reset the counter
311        IF ( DIFFERENT_MULTIPLE(SEAICE_monFreq,myTime+deltaTClock,        writeNow = DIFFERENT_MULTIPLE(SEAICE_monFreq,
312       &     deltaTClock) ) THEN       &     myTime+deltaTClock, deltaTClock)
313    #ifdef ALLOW_CAL
314          IF ( useCAL ) THEN
315           CALL CAL_TIME2DUMP(
316         I      zeroRL, SEAICE_monFreq,  deltaTClock,
317         U      writeNow,
318         I      myTime+deltaTclock, myIter+1, myThid )
319          ENDIF
320    #endif
321          IF ( writeNow ) THEN
322         _BEGIN_MASTER( myThid )         _BEGIN_MASTER( myThid )
323         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
324       &' // ======================================================='       &' // ======================================================='
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22