update dfresh diagnostic calculation in icepack_therm_itd

CICE-Consortium · Nov 29, 2019 · cf1ecc0 · cf1ecc0
1 parent 9b4af6b
commit cf1ecc0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/columnphysics/icepack_therm_itd.F90 b/columnphysics/icepack_therm_itd.F90
@@ -1066,7 +1066,7 @@ subroutine lateral_melt (dt,         ncat,       &
             ! fluxes to coupler
             ! dfresh > 0, dfsalt > 0, dfpond > 0
 
-            dfresh = (rhoi*vsnon(n) + rhos*vicen(n))      * rsiden(n) / dt
+            dfresh = (rhoi*vicen(n) + rhos*vsnon(n))      * rsiden(n) / dt
             dfsalt =  rhoi*vicen(n)*ice_ref_salinity*p001 * rsiden(n) / dt
             fresh  = fresh + dfresh
             fsalt  = fsalt + dfsalt