/[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.17 by jmc, Thu Aug 30 15:02:51 2007 UTC revision 1.18 by jmc, Sun Aug 24 21:50:12 2008 UTC
# Line 260  C--  end bi,bj loop Line 260  C--  end bi,bj loop
260         ENDDO         ENDDO
261        ENDDO        ENDDO
262    
263    C     add a small piece of code to check AddFluid implementation:
264    c#include "thsice_test_addfluid.h"
265    
266        IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 ) THEN        IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 ) THEN
267  C--   Exchange fields that are advected by seaice dynamics  C--   Exchange fields that are advected by seaice dynamics
268          _EXCH_XY_R8( iceMask, myThid )          _EXCH_XY_R8( iceMask, myThid )
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22