Changeset 9428

Timestamp:

2018-03-26T16:11:23+02:00 (7 years ago)

Author:

clem

Message:

simplification

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icethd_dh.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icethd_dh.F90

@@ -465 +465 @@
             ! Contribution to Energy and Salt Fluxes                                    
             zfmdt          = - rhoic * dh_i_bott(ji)                                                  ! Mass flux x time step (kg/m2, < 0)
-
-            ztmelts        = - tmut * s_i_new(ji)                                                     ! New ice melting point (C)
-            
-            zt_i_new       = zswitch_sal * t_bo_1d(ji) + ( 1. - zswitch_sal) * t_i_1d(ji, nlay_i)
-            
-            zEi            = cpic * ( zt_i_new - (ztmelts+rt0) ) &                                    ! Specific enthalpy of forming ice (J/kg, <0)
-               &           - lfus * ( 1.0 - ztmelts / ( zt_i_new - rt0 ) ) + rcp  * ztmelts          
-            
-            zEw            = rcp  * ( t_bo_1d(ji) - rt0 )                                             ! Specific enthalpy of seawater (J/kg, < 0)
-            
-            zdE            = zEi - zEw                                                                ! Specific enthalpy difference (J/kg, <0)
             
             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