/[MITgcm]/MITgcm/verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F
ViewVC logotype

Diff of /MITgcm/verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F

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

revision 1.2 by jmc, Thu Mar 11 15:36:49 2004 UTC revision 1.3 by edhill, Thu May 6 15:19:20 2004 UTC
# Line 143  C-    Split Ocean and Sea-Ice surf. temp Line 143  C-    Split Ocean and Sea-Ice surf. temp
143           DO J=1,NGP           DO J=1,NGP
144            sti1(J,myThid) = sst1(J,myThid)            sti1(J,myThid) = sst1(J,myThid)
145            IF ( oice1(J) .GT. 1. _d -2 ) THEN            IF ( oice1(J) .GT. 1. _d -2 ) THEN
146              sst1(J,myThid) = MAX(sst1(J,myThid),tFreez);              sst1(J,myThid) = MAX(sst1(J,myThid),tFreez)
147              sti1(J,myThid) = sst1(J,myThid)              sti1(J,myThid) = sst1(J,myThid)
148       &                     +(sti1(J,myThid)-sst1(J,myThid))/oice1(J)       &                     +(sti1(J,myThid)-sst1(J,myThid))/oice1(J)
149            ELSE            ELSE
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22