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

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

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

revision 1.2 by cnh, Sun Feb 4 14:38:47 2001 UTC revision 1.3 by adcroft, Wed Sep 19 02:43:27 2001 UTC
# Line 31  C     == Local variables == Line 31  C     == Local variables ==
31  C     Check for water that should have frozen  C     Check for water that should have frozen
32         DO j=jMin,jMax         DO j=jMin,jMax
33          DO i=iMin,iMax          DO i=iMin,iMax
34           IF (gTNm1(i,j,k,bi,bj) .LT. Tfreezing) THEN           IF (gT(i,j,k,bi,bj) .LT. Tfreezing) THEN
35            gTNm1(i,j,k,bi,bj)=Tfreezing            gT(i,j,k,bi,bj)=Tfreezing
36           ENDIF           ENDIF
37          ENDDO          ENDDO
38         ENDDO         ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22