/[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.26 by jmc, Wed Nov 21 01:53:34 2012 UTC revision 1.27 by jmc, Sun Jan 20 15:09:54 2013 UTC
# Line 278  C--   Exchange fields that are advected Line 278  C--   Exchange fields that are advected
278          _EXCH_XY_RL( iceMask, myThid )          _EXCH_XY_RL( iceMask, myThid )
279        ENDIF        ENDIF
280  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
281        IF ( useRealFreshWaterFlux .AND. (useEXF.OR.useSEAICE ) )        IF ( useRealFreshWaterFlux .AND.
282         &    ( useEXF .OR. useSEAICE .OR. thSIceAdvScheme.GT.0 ) )
283       &  _EXCH_XY_RS( sIceLoad, myThid )       &  _EXCH_XY_RS( sIceLoad, myThid )
284  #endif  #endif
285    
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22