/[MITgcm]/MITgcm/pkg/thsice/thsice_main.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_main.F

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

revision 1.29 by jmc, Sat Mar 30 18:38:50 2013 UTC revision 1.30 by jmc, Thu Apr 4 00:42:06 2013 UTC
# Line 217  C--   Balance net Fresh-Water flux from Line 217  C--   Balance net Fresh-Water flux from
217        ENDIF        ENDIF
218  #endif  #endif
219    
       DO bj=myByLo(myThid),myByHi(myThid)  
        DO bi=myBxLo(myThid),myBxHi(myThid)  
         CALL THSICE_AVE(  
      I                     bi,bj, myTime, myIter, myThid )  
        ENDDO  
       ENDDO  
   
220  C     add a small piece of code to check AddFluid implementation:  C     add a small piece of code to check AddFluid implementation:
221  c#include "thsice_test_addfluid.h"  c#include "thsice_test_addfluid.h"
222    
# Line 255  C     otherwise, call it from here, afte Line 248  C     otherwise, call it from here, afte
248    
249        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
250         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
251    C--   Cumulate time-averaged fields and also fill-up flux diagnostics
252    C     (if not done in THSICE_DO_ADVECT call)
253    #ifdef OLD_THSICE_CALL_SEQUENCE
254            IF ( .TRUE. ) THEN
255    #else /* OLD_THSICE_CALL_SEQUENCE */
256            IF ( thSIceAdvScheme.LE.0 ) THEN
257    #endif /* OLD_THSICE_CALL_SEQUENCE */
258             CALL THSICE_AVE(
259         I                     bi,bj, myTime, myIter, myThid )
260            ENDIF
261  C--   note: If useSEAICE=.true., the stress is computed in seaice_model,  C--   note: If useSEAICE=.true., the stress is computed in seaice_model,
262  C--   and stressReduction is always set to zero  C--   and stressReduction is always set to zero
263  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22