Changeset 3905 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

Timestamp:

2013-05-24T15:40:39+02:00 (11 years ago)

Author:

cetlod

Message:

bugfix : store the flux due to freezing/melting, needed at least for PISCES, see ticket #1100

File:

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

trunk/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

@@ -226 +226 @@
             zemp_snw = rdm_snw(ji,jj) * r1_rdtice                         ! snow melting = pure water that enters the ocean
             zfmm     = rdm_ice(ji,jj) * r1_rdtice                         ! Freezing minus mesting  
+
+            fmmflx(ji,jj) = zfmm                                     ! F/M mass flux save at least for biogeochemical model
 
             emp(ji,jj) = zemp + zemp_snw + zfmm  ! mass flux + F/M mass flux (always ice/ocean mass exchange)