/[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.17 by dimitri, Sun Jun 24 14:21:36 2007 UTC revision 1.18 by dimitri, Sat Jun 30 21:21:46 2007 UTC
# Line 523  C NOW GET FRESH WATER FLUX Line 523  C NOW GET FRESH WATER FLUX
523       &         - RUNOFF(I,J,bi,bj)       &         - RUNOFF(I,J,bi,bj)
524  #endif  #endif
525       &         + frWtrIce(I,J)*ICE2WATR/SEAICE_deltaTtherm       &         + frWtrIce(I,J)*ICE2WATR/SEAICE_deltaTtherm
526         &         + saltWtrIce(I,J)*ICE2WATR/SEAICE_deltaTtherm
527       &         )       &         )
528  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
529            frWtrAtm(I,J)   = maskC(I,J,kSurface,bi,bj)*(            frWtrAtm(I,J)   = maskC(I,J,kSurface,bi,bj)*(
# Line 534  C NOW GET FRESH WATER FLUX Line 535  C NOW GET FRESH WATER FLUX
535  #endif  #endif
536    
537  C NOW GET SALT FLUX  C NOW GET SALT FLUX
538            saltFlux(I,J,bi,bj) = -maskC(I,J,kSurface,bi,bj)*            saltFlux(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*
539       &         saltWtrIce(I,J)*ICE2WATR/SEAICE_deltaTtherm*       &         saltWtrIce(I,J)*ICE2WATR/SEAICE_deltaTtherm*
540       &         rhoConstFresh*SEAICE_salinity       &         rhoConstFresh*SEAICE_salinity
541    
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22