/[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.125 by gforget, Wed Jun 8 03:04:50 2011 UTC revision 1.126 by gforget, Wed Jun 8 03:41:34 2011 UTC
# Line 1272  Cgf note: flooding does count negatively Line 1272  Cgf note: flooding does count negatively
1272            tmpscal3 = tmpscal1*salt(I,j,kSurface,bi,bj)*HEFFM(I,J,bi,bj)            tmpscal3 = tmpscal1*salt(I,j,kSurface,bi,bj)*HEFFM(I,J,bi,bj)
1273       &            /SEAICE_deltaTtherm * SEAICE_rhoIce       &            /SEAICE_deltaTtherm * SEAICE_rhoIce
1274            saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0)            saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0)
1275         &            *SPsalFRAC
1276  #endif /* ALLOW_SALT_PLUME */  #endif /* ALLOW_SALT_PLUME */
1277           ENDDO           ENDDO
1278          ENDDO          ENDDO
# Line 1319  C saltPlumeFlux is defined only during f Line 1320  C saltPlumeFlux is defined only during f
1320       &            HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm       &            HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm
1321       &            *(1-SIsalFRAC)*salt(I,j,kSurface,bi,bj)       &            *(1-SIsalFRAC)*salt(I,j,kSurface,bi,bj)
1322       &            *tmpscal1*SEAICE_rhoIce       &            *tmpscal1*SEAICE_rhoIce
1323         &            *SPsalFRAC
1324  C if SaltPlumeSouthernOcean=.FALSE. turn off salt plume in Southern Ocean  C if SaltPlumeSouthernOcean=.FALSE. turn off salt plume in Southern Ocean
1325               IF ( .NOT. SaltPlumeSouthernOcean ) THEN               IF ( .NOT. SaltPlumeSouthernOcean ) THEN
1326                IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 )                IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 )
Legend:
Removed from v.1.125  
changed lines
  Added in v.1.126
  ViewVC Help
Powered by ViewVC 1.1.22