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

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

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

revision 1.18 by jmc, Wed Apr 4 02:40:42 2007 UTC revision 1.19 by jmc, Sun Apr 15 21:58:33 2007 UTC
# Line 278  C--    Net fluxes : Line 278  C--    Net fluxes :
278            Tsrf(i,j,bi,bj)     = tOceMxL(i,j,bi,bj)            Tsrf(i,j,bi,bj)     = tOceMxL(i,j,bi,bj)
279            Tice1(i,j,bi,bj)    = 0. _d 0            Tice1(i,j,bi,bj)    = 0. _d 0
280            Tice2(i,j,bi,bj)    = 0. _d 0            Tice2(i,j,bi,bj)    = 0. _d 0
281            Qice1(i,j,bi,bj)    = 0. _d 0            Qice1(i,j,bi,bj)    = Lfresh
282            Qice2(i,j,bi,bj)    = 0. _d 0            Qice2(i,j,bi,bj)    = Lfresh
283          ENDIF          ENDIF
284    
285  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22