/[MITgcm]/MITgcm/model/src/freeze_surface.F
ViewVC logotype

Diff of /MITgcm/model/src/freeze_surface.F

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

revision 1.6 by jmc, Sat Dec 4 00:12:14 2004 UTC revision 1.7 by heimbach, Wed Jun 7 01:55:13 2006 UTC
# Line 58  C     Check for water that should have f Line 58  C     Check for water that should have f
58            IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN            IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN
59               surfaceForcingTice(i,j,bi,bj) =               surfaceForcingTice(i,j,bi,bj) =
60       &            ( Tfreezing - theta(i,j,k,bi,bj) )       &            ( Tfreezing - theta(i,j,k,bi,bj) )
61       &                    *drF(k)*hFacC(i,j,k,bi,bj) / dTtracerLev(k)       &                    *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(k)
62               theta(i,j,k,bi,bj) = Tfreezing               theta(i,j,k,bi,bj) = Tfreezing
63            ELSE            ELSE
64               surfaceForcingTice(i,j,bi,bj) = 0. _d 0               surfaceForcingTice(i,j,bi,bj) = 0. _d 0
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22