/[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.18 by jmc, Sun Aug 24 21:50:12 2008 UTC revision 1.19 by jmc, Tue Apr 28 18:21:18 2009 UTC
# Line 265  c#include "thsice_test_addfluid.h" Line 265  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_RL( iceMask, myThid )
269          _EXCH_XY_R8( iceHeight, myThid )          _EXCH_XY_RL( iceHeight, myThid )
270          _EXCH_XY_R8( snowHeight, myThid )          _EXCH_XY_RL( snowHeight, myThid )
271          _EXCH_XY_R8( Qice1, myThid )          _EXCH_XY_RL( Qice1, myThid )
272          _EXCH_XY_R8( Qice2, myThid )          _EXCH_XY_RL( Qice2, myThid )
273  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
274          IF (useRealFreshWaterFlux)          IF (useRealFreshWaterFlux)
275       &  _EXCH_XY_RS( sIceLoad, myThid )       &  _EXCH_XY_RS( sIceLoad, myThid )
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22