Changeset 13127 for NEMO

Timestamp:

2020-06-18T14:11:23+02:00 (4 years ago)

Author:

dancopsey

Message:

Add missing ice area to convert thickness changes into volume changes.

File:

• NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/icethd_pnd.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/icethd_pnd.F90

@@ -190 +190 @@
             !
             ! available meltwater for melt ponding [m, >0] and fraction 
-            tot_mlt = -( dh_i_sum(ji)*rhoi + dh_s_mlt(ji)*rhos ) * z1_rhow 
+            tot_mlt = -( dh_i_sum(ji)*rhoi + dh_s_mlt(ji)*rhos ) * z1_rhow * a_i_1d(ji)
             IF ( ln_pnd_totfrac ) THEN
                zfr_mlt = rn_pnd_min + ( rn_pnd_max - rn_pnd_min ) * at_i_1d(ji) ! Use total ice fraction