/[MITgcm]/MITgcm/pkg/seaice/seaice_growth.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_growth.F

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

revision 1.27 by dimitri, Fri Sep 21 00:18:48 2007 UTC revision 1.28 by dimitri, Fri Sep 21 06:46:30 2007 UTC
# Line 571  C set HSALT = 0 if HSALT < 0 and compute Line 571  C set HSALT = 0 if HSALT < 0 and compute
571  C saltWtrIce > 0 : m of sea ice that is created  C saltWtrIce > 0 : m of sea ice that is created
572            IF ( saltWtrIce(I,J) .GE. 0.0 ) THEN            IF ( saltWtrIce(I,J) .GE. 0.0 ) THEN
573               saltFlux(I,J,bi,bj) = HEFFM(I,J,bi,bj)*saltWtrIce(I,J)*               saltFlux(I,J,bi,bj) = HEFFM(I,J,bi,bj)*saltWtrIce(I,J)*
574       &            ICE2WATR*rhoConstFresh*SEAICE_salinity/       &            ICE2WATR*rhoConstFresh*SEAICE_salinity*
575       &            SEAICE_deltaTtherm       &            salt(I,J,1,bi,bj)*SEAICE_deltaTtherm
576  C saltWtrIce < 0 : m of sea ice that is melted  C saltWtrIce < 0 : m of sea ice that is melted
577            ELSE            ELSE
578               saltFlux(I,J,bi,bj) = HEFFM(I,J,bi,bj)*saltWtrIce(I,J)*               saltFlux(I,J,bi,bj) = HEFFM(I,J,bi,bj)*saltWtrIce(I,J)*
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22