/[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.4 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.4.12.1 by dimitri, Mon Jan 20 03:05:55 2003 UTC
# Line 35  C     == Routine Arguments == Line 35  C     == Routine Arguments ==
35  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
36  C     == Local variables ==  C     == Local variables ==
37  C     Tfreezing :: Freezing threshold temperature.  C     Tfreezing :: Freezing threshold temperature.
38    C     Tboiling  :: Upper temperature bound.
39        INTEGER i,j        INTEGER i,j
40        _RL Tfreezing        _RL Tfreezing, Tboiling
41  CEOP  CEOP
42    
43        Tfreezing=-1.9        Tfreezing=-1.9
44          Tboiling =35.0
45    
46  C     Check for water that should have frozen  C     Check for water that should have frozen
47         DO j=jMin,jMax         DO j=jMin,jMax
# Line 47  C     Check for water that should have f Line 49  C     Check for water that should have f
49           IF (gT(i,j,k,bi,bj) .LT. Tfreezing) THEN           IF (gT(i,j,k,bi,bj) .LT. Tfreezing) THEN
50            gT(i,j,k,bi,bj)=Tfreezing            gT(i,j,k,bi,bj)=Tfreezing
51           ENDIF           ENDIF
52    #ifdef COUPLED_UCLA
53    cdm this is a temporary hack and needs to go ASAP!
54             IF (gT(i,j,k,bi,bj) .GT. Tboiling ) THEN
55              gT(i,j,k,bi,bj)=Tboiling
56             ENDIF
57    #endif
58          ENDDO          ENDDO
59         ENDDO         ENDDO
60    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.12.1
  ViewVC Help
Powered by ViewVC 1.1.22