Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.1.2.3 by dimitri, Fri Dec 27 08:01:55 2002 UTC | revision 1.1.2.4 by dimitri, Fri Feb 14 22:30:16 2003 UTC | |
|---|---|---|
| # | Line 62 C NOW DETERMINE MIXED LAYER TEMPERATURE | Line 62 C NOW DETERMINE MIXED LAYER TEMPERATURE |
| 62 | TMIX(I,J,bi,bj)=theta(I,J,1,bi,bj)+273.16 _d +00 | TMIX(I,J,bi,bj)=theta(I,J,1,bi,bj)+273.16 _d +00 |
| 63 | #ifdef SEAICE_DEBUG | #ifdef SEAICE_DEBUG |
| 64 | TMIX(I,J,bi,bj)=MAX(TMIX(I,J,bi,bj),271.2 _d +00) | TMIX(I,J,bi,bj)=MAX(TMIX(I,J,bi,bj),271.2 _d +00) |
| 65 | #endif SEAICE_DEBUG | #endif |
| 66 | ENDDO | ENDDO |
| 67 | ENDDO | ENDDO |
| 68 | ||
| # | Line 87 C NOW DO ICE | Line 87 C NOW DO ICE |
| 87 | ENDDO | ENDDO |
| 88 | ENDDO | ENDDO |
| 89 | ||
| 90 | #endif ALLOW_SEAICE | #endif /* ALLOW_SEAICE */ |
| 91 | ||
| 92 | RETURN | RETURN |
| 93 | END | END |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |