/[MITgcm]/MITgcm_contrib/torge/itd/code/seaice_model.F
ViewVC logotype

Diff of /MITgcm_contrib/torge/itd/code/seaice_model.F

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

revision 1.4 by torge, Wed Jun 20 19:58:09 2012 UTC revision 1.5 by torge, Wed Jul 25 17:56:31 2012 UTC
# Line 263  C     (includes Hibler-type ridging) Line 263  C     (includes Hibler-type ridging)
263  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
264          IF (debugMode) CALL DEBUG_CALL( 'SEAICE_ITD_REDIST', myThid )          IF (debugMode) CALL DEBUG_CALL( 'SEAICE_ITD_REDIST', myThid )
265  #endif  #endif
266         CALL SEAICE_ITD_REDIST(myTime, myIter, myThid)         DO bj=myByLo(myThid),myByHi(myThid)
267  C     store the mean ice thickness in HEFF (for dynamic solver and diagnostics)          DO bi=myBxLo(myThid),myBxHi(myThid)
268         CALL SEAICE_ITD_SUM(myTime, myIter, myThid)           CALL SEAICE_ITD_REDIST(myTime, myIter, myThid)
269            ENDDO
270           ENDDO
271    C     update mean ice thickness HEFF and total ice concentration AREA
272    C     to match single category values
273    #ifdef ALLOW_DEBUG
274            IF (debugMode) CALL DEBUG_CALL( 'SEAICE_ITD_SUM', myThid )
275    #endif
276           DO bj=myByLo(myThid),myByHi(myThid)
277            DO bi=myBxLo(myThid),myBxHi(myThid)
278             CALL SEAICE_ITD_SUM(myTime, myIter, myThid)
279            ENDDO
280           ENDDO
281  #endif  #endif
282  C>>>ToM  C>>>ToM
283  #ifdef SEAICE_GROWTH_LEGACY  #ifdef SEAICE_GROWTH_LEGACY
# Line 325  C---+-|--1----+----2----+----3----+----4 Line 337  C---+-|--1----+----2----+----3----+----4
337  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
338          IF (debugMode) CALL DEBUG_CALL( 'SEAICE_ITD_REDIST', myThid )          IF (debugMode) CALL DEBUG_CALL( 'SEAICE_ITD_REDIST', myThid )
339  #endif  #endif
340         CALL SEAICE_ITD_REDIST(myTime, myIter, myThid)         DO bj=myByLo(myThid),myByHi(myThid)
341            DO bi=myBxLo(myThid),myBxHi(myThid)
342             CALL SEAICE_ITD_REDIST(myTime, myIter, myThid)
343            ENDDO
344           ENDDO
345  C     store the mean ice thickness in HEFF (for dynamic solver and diagnostics)  C     store the mean ice thickness in HEFF (for dynamic solver and diagnostics)
346         CALL SEAICE_ITD_SUM(myTime, myIter, myThid)         DO bj=myByLo(myThid),myByHi(myThid)
347            DO bi=myBxLo(myThid),myBxHi(myThid)
348             CALL SEAICE_ITD_SUM(myTime, myIter, myThid)
349            ENDDO
350           ENDDO
351    
352  C     test if REDIST works (2/2):  C     test if REDIST works (2/2):
353          WRITE(HlimitMsgFormat,'(A,I2,A)') '(A,',nITD,'F6.2)'          WRITE(HlimitMsgFormat,'(A,I2,A)') '(A,',nITD,'F6.2)'
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22