Changeset 9428


Ignore:
Timestamp:
2018-03-26T16:11:23+02:00 (2 years ago)
Author:
clem
Message:

simplification

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icethd_dh.F90

    r9274 r9428  
    465465            ! Contribution to Energy and Salt Fluxes                                     
    466466            zfmdt          = - rhoic * dh_i_bott(ji)                                                  ! Mass flux x time step (kg/m2, < 0) 
    467  
    468             ztmelts        = - tmut * s_i_new(ji)                                                     ! New ice melting point (C) 
    469              
    470             zt_i_new       = zswitch_sal * t_bo_1d(ji) + ( 1. - zswitch_sal) * t_i_1d(ji, nlay_i) 
    471              
    472             zEi            = cpic * ( zt_i_new - (ztmelts+rt0) ) &                                    ! Specific enthalpy of forming ice (J/kg, <0) 
    473                &           - lfus * ( 1.0 - ztmelts / ( zt_i_new - rt0 ) ) + rcp  * ztmelts           
    474              
    475             zEw            = rcp  * ( t_bo_1d(ji) - rt0 )                                             ! Specific enthalpy of seawater (J/kg, < 0) 
    476              
    477             zdE            = zEi - zEw                                                                ! Specific enthalpy difference (J/kg, <0) 
    478467             
    479468            hfx_thd_1d(ji) = hfx_thd_1d(ji) + zfmdt * a_i_1d(ji) * zEw * r1_rdtice                           ! Heat flux to the ocean [W.m-2], >0 
Note: See TracChangeset for help on using the changeset viewer.