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 ) |