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

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

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

revision 1.35 by jmc, Tue Mar 6 01:28:11 2012 UTC revision 1.36 by mlosch, Mon Apr 28 11:50:33 2014 UTC
# Line 401  C     Calculate the flux terms based on Line 401  C     Calculate the flux terms based on
401            F_lh(I,J)   = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj))            F_lh(I,J)   = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj))
402  #ifdef SEAICE_CAP_SUBLIM  #ifdef SEAICE_CAP_SUBLIM
403  C     if the latent heat flux implied by tsurfLoc exceeds  C     if the latent heat flux implied by tsurfLoc exceeds
404  C     F_lh_max, cap F_lh and decouple the flux magnitude from TICE  C     F_lh_max, cap F_lh and decouple the flux magnitude from tIce (tsurfLoc)
405            IF (F_lh(I,J) .GT. F_lh_max(I,J)) THEN            IF (F_lh(I,J) .GT. F_lh_max(I,J)) THEN
406               F_lh(I,J)  = F_lh_max(I,J)               F_lh(I,J)  = F_lh_max(I,J)
407               dqh_dTs(I,J) = ZERO               dqh_dTs(I,J) = ZERO
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22