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

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

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

revision 1.17 by dimitri, Thu Oct 23 07:14:49 2003 UTC revision 1.17.2.1 by dimitri, Mon Nov 1 20:03:35 2004 UTC
# Line 101  C--   Apply mask and test consistancy Line 101  C--   Apply mask and test consistancy
101        ENDIF        ENDIF
102    
103  C--   Check that there are no values of temperature below freezing point.  C--   Check that there are no values of temperature below freezing point.
104        Tfreezing=-1.9        Tfreezing=-3
105        IF ( allowFreezing ) THEN        IF ( allowFreezing ) THEN
106         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
107          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.17.2.1

  ViewVC Help
Powered by ViewVC 1.1.22