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

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

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

revision 1.17 by jmc, Sat May 24 22:43:14 2008 UTC revision 1.18 by jmc, Tue Apr 28 18:21:18 2009 UTC
# Line 159  C     Tf = -mu_Tf*salinity = -1.70 deg C Line 159  C     Tf = -mu_Tf*salinity = -1.70 deg C
159          ENDIF          ENDIF
160        ENDIF        ENDIF
161    
162        _EXCH_XY_R8(iceMask,myThid)        _EXCH_XY_RL(iceMask,myThid)
163        _EXCH_XY_R8(iceHeight, myThid)        _EXCH_XY_RL(iceHeight, myThid)
164        _EXCH_XY_R8(snowHeight,myThid)        _EXCH_XY_RL(snowHeight,myThid)
165        _EXCH_XY_R8(Tsrf,   myThid)        _EXCH_XY_RL(Tsrf,   myThid)
166        _EXCH_XY_R8(Tice1,  myThid)        _EXCH_XY_RL(Tice1,  myThid)
167        _EXCH_XY_R8(Tice2,  myThid)        _EXCH_XY_RL(Tice2,  myThid)
168        _EXCH_XY_R8(Qice1,  myThid)        _EXCH_XY_RL(Qice1,  myThid)
169        _EXCH_XY_R8(Qice2,  myThid)        _EXCH_XY_RL(Qice2,  myThid)
170        _EXCH_XY_R8(snowAge,myThid)        _EXCH_XY_RL(snowAge,myThid)
171    
172  C--     Initialise Sea-Ice Loading for SeaIce-Dynamics :  C--     Initialise Sea-Ice Loading for SeaIce-Dynamics :
173        IF ( useSEAICE ) THEN        IF ( useSEAICE ) THEN
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22