Changeset 5020 for trunk/NEMOGCM

Timestamp:

2015-01-09T09:59:16+01:00 (9 years ago)

Author:

cetlod

Message:

fix for freezing-melting flux for BGCM, see ticket #1433

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

@@ -180 +180 @@
 
             ! mass flux at the ocean/ice interface
-            fmmflx(ji,jj) = - wfx_ice(ji,jj) * rdt_ice                   ! F/M mass flux save at least for biogeochemical model
+            fmmflx(ji,jj) = - wfx_ice(ji,jj) * r1_rdtice                    ! F/M mass flux save at least for biogeochemical model
             emp(ji,jj)    = zemp - wfx_ice(ji,jj) - wfx_snw(ji,jj)       ! mass flux + F/M mass flux (always ice/ocean mass exchange)