Changeset 3801

Timestamp:

2013-02-12T08:04:04+01:00 (11 years ago)

Author:

gm

Message:

dev_v3_4_STABLE_2012: #897 in LIM3, correct a bug freshwater flux

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90 (modified) (1 diff)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90

@@ -244 +244 @@
          ht_s_b(ji)     =  MAX( zzero , zhsnew )
          ! Volume and mass variations of snow
-         dvsbq_1d  (ji) =  a_i_b(ji) * ( ht_s_b(ji) - zhsold(ji) - zdh_s_mel(ji) )
+         dvsbq_1d  (ji) =  a_i_b(ji) * ( ht_s_b(ji) - zhsold(ji) - zdh_s_pre(ji) )
          dvsbq_1d  (ji) =  MIN( zzero, dvsbq_1d(ji) )
          rdmsnif_1d(ji) =  rdmsnif_1d(ji) + rhosn * dvsbq_1d(ji)