/[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.27 by heimbach, Sat Oct 16 12:29:39 2010 UTC revision 1.28 by heimbach, Sat Oct 16 19:22:34 2010 UTC
# Line 227  CADJ STORE iceMask(:,:,bi,bj) = comlev1_ Line 227  CADJ STORE iceMask(:,:,bi,bj) = comlev1_
227  #endif  #endif
228    
229        CALL THSICE_CALC_THICKN(        CALL THSICE_CALC_THICKN(
230       I          bi, bj, siLo, siHi, sjLo, sjHi,       I          bi, bj,
231       I          iMin,iMax, jMin,jMax, dBugFlag,       I          iMin,iMax, jMin,jMax, dBugFlag,
232       I          iceMask(siLo,sjLo,bi,bj), tFrzOce,       I          iceMask(siLo,sjLo,bi,bj), tFrzOce,
233       I          tOceMxL(siLo,sjLo,bi,bj), v2ocMxL(siLo,sjLo,bi,bj),       I          tOceMxL(siLo,sjLo,bi,bj), v2ocMxL(siLo,sjLo,bi,bj),
# Line 302  C    part.3 : freezing of sea-water Line 302  C    part.3 : freezing of sea-water
302  C     over ice-free fraction and what is left from ice-covered fraction  C     over ice-free fraction and what is left from ice-covered fraction
303  C-------  C-------
304        CALL THSICE_EXTEND(        CALL THSICE_EXTEND(
305       I          bi, bj, siLo, siHi, sjLo, sjHi,       I          bi, bj,
306       I          iMin,iMax, jMin,jMax, dBugFlag,       I          iMin,iMax, jMin,jMax, dBugFlag,
307       I          frzmltMxL, tFrzOce,       I          frzmltMxL, tFrzOce,
308       I          tOceMxL(siLo,sjLo,bi,bj),       I          tOceMxL(siLo,sjLo,bi,bj),
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22